我的inventory system 做到後面有問題希望高手幫我看看vb

无聊的silver

我想放edit price 的
這個是那個coding

[img]   [/img]


error coding

[img]   [/img]

我的user interface



可是我還沒放integer 進去就出現這個問題。。。

。。。。。

這個是我的selling 我以為沒問題的




因為f5 test 沒事可是按 main menu 就出現error 了




這個是我的calculation 是有問題嗎？




哪裡錯了
希望高手教我

shippo

图不能放大啊。。。。。

我只看到你的error 是 input format no correct...其他code太小看不到。。。。。。
不过应该不是你的calculation有问题。。

因为你用了int::parse 这个function 来把string 转换成int...
如果你的textbox 有任何除了数字以外的东西。你按了转换就会出现error.

两个方法来防止这种问题：
你先预设好textbox 里的该出现的数字，然后用keydown 或 keypress来防止user 输入号码以外的字。

第二种比较简单
用on error goto 或 try...catch 来跳过这个error..

无聊的silver

图不能放大啊。。。。。

我只看到你的error 是 input format no correct...其他code太小看不到。。。。。 ...
shippo 发表于 2010-8-19 04:17 PM

    oo
try catch
對哦
忘了這個謝謝

我還想問
Private Sub open_bill_tyre_textbox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open_bill_tyre_textbox1.TextChanged, open_bill_tyre_textbox2.TextChanged, labour_charge_textbox.TextChanged

        With Me
            Dim quantity1, quantity2, labour, price1, price2, total_payment As Integer

      

            If .open_bill_tyre_textbox1.Text = "" Then

                quantity1 = 0


            Else

                quantity1 = Integer.Parse(open_bill_tyre_textbox1.Text)

            End If


            If .open_bill_tyre_textbox2.Text = "" Then

                quantity2 = 0

            Else

                quantity2 = Integer.Parse(open_bill_tyre_textbox2.Text)

            End If

            If .labour_charge_textbox.Text = "" Then

                labour = 0

            Else

                labour = Integer.Parse(labour_charge_textbox.Text)

            End If

            If price_textbox1.Text = "" Then

                price1 = 0

            Else
                price1 = Integer.Parse(price_textbox1.Text)

            End If


            If price_textbox2.Text = "" Then

                price1 = 0

            Else

                price2 = Integer.Parse(price_textbox2.Text)

            End If


            total_payment = (price1 * quantity1) + (price2 * quantity2) + labour

            total_payment_textbox.Text = total_payment.ToString("C")



        End With
    End Sub

如果coding 是這樣是給那個textbox auto display 的
爲什麽我只可以display 到一個radio button 其他不可以的？

shippo

erm....不明白你的问题。。。。。你的code 里没有任何有提到radio button 啊。。。。

shippo

你的意思是不是一按其他的radio button你的total_payment_textbox里的字就消失了？

无聊的silver

我按check box 然後放integer 在textbox
那個textbox 是 quantity 然後會乘我的 price textbox 然後自動計算然後出現在答案在total payment textbox

shippo

所以勒？？

你的问题是？？

johnnytan1982

你的textbox 一开始是放空，没有数据的吗？如没数据，当使用int.parse就会出现以上问题

无聊的silver

別理那個
你會做summary 好像可以選上個月
看會賣了多少東西

宅男-兜着走

別理那個
你會做summary 好像可以選上個月
看會賣了多少東西
无聊的silver 发表于 2010-8-21 12:25 AM

Summary 的话， 就从Database 里面选指定的月份出来， 相加出来做个Summary 搞定。

不过通常Summary 都是以 Report 方式呈现。

Report 有很多种做法。就不提了。