JBTALKS.CC

标题: 我的inventory system 做到後面有問題希望高手幫我看看vb [打印本页]

作者: 无聊的silver 时间: 2010-8-19 02:20 AM
标题: 我的inventory system 做到後面有問題希望高手幫我看看vb
本帖最后由无聊的silver 于 2010-8-19 02:22 AM 编辑

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

[img]

[/img]

error coding

[img]

[/img]

我的user interface

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

。。。。。

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

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

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

哪裡錯了
希望高手教我

作者: shippo 时间: 2010-8-19 04:17 PM
图不能放大啊。。。。。

我只看到你的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 时间: 2010-8-19 04:44 PM

图不能放大啊。。。。。

我只看到你的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 时间: 2010-8-19 09:17 PM
erm....不明白你的问题。。。。。你的code 里没有任何有提到radio button 啊。。。。

作者: shippo 时间: 2010-8-19 09:23 PM
你的意思是不是一按其他的radio button你的total_payment_textbox里的字就消失了？

作者: 无聊的silver 时间: 2010-8-20 03:08 AM
本帖最后由无聊的silver 于 2010-8-20 03:09 AM 编辑

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

作者: shippo 时间: 2010-8-20 01:44 PM
所以勒？？

你的问题是？？

作者: johnnytan1982 时间: 2010-8-20 02:42 PM
你的textbox 一开始是放空，没有数据的吗？如没数据，当使用int.parse就会出现以上问题

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

作者: 宅男-兜着走 时间: 2010-8-21 01:40 AM

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

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

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

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

作者: shippo 时间: 2010-8-21 02:30 AM
。。。
这类型的program基本大同小异。。你可以去找别人得来参考。。

做summary。。可以用个种不同方法。。。
看你要summary在别的file(用console,crystal report,excel,access,甚至是txt,xml)还是只把它show在 form(textbox,label)里..

你要summary上个月的东西你就必须具备save,load 的方法。。重点是怎么拿出上个月的数据-〉运算-〉显示-〉。。。。

erm.....你应该没有用任何方法记录你的数据吧？
还是不明白你的问题在哪里。。。

建议你以后发问不要前言不对后语。。。直接说重点。。。。

int::parse 怎么出现error??
summary 怎么serializa到 xxxx file??
怎么存取data...？？

作者: 宅男-兜着走 时间: 2010-8-21 01:49 PM

。。。
这类型的program基本大同小异。。你可以去找别人得来参考。。

做summary。。可以用个种不同方法 ...
shippo 发表于 2010-8-21 02:30 AM

这位兄台，我非常认同你说的。
重点就好

可是新手还不熟悉，日子久了就会懂得自己的问题了。

作者: 无聊的silver 时间: 2010-8-22 12:25 AM
哈哈
哦
原来
可是现在那个summary我不会
是放在database 还是excel做？
不明白

作者: shippo 时间: 2010-8-22 12:45 AM
。。
当然是在你program里。。。database只负责提供你数据。。。
你的数据能存了对吧？？
那你现在只要能把它们拿出来就行了。。。。。。。
你从哪里学到怎么存。。就去同个地方学怎么拿。。。。

作者: 无聊的silver 时间: 2010-8-22 03:49 AM
我会edit，拿出来，存进我的database
可是有一个我不会就是
如果我store了日期进database
我要怎样set 那个code 给它
好像选2010 /5 / 3 的data 出來？

作者: 宅男-兜着走 时间: 2010-8-22 02:39 PM

我会edit，拿出来，存进我的database
可是有一个我不会就是
如果我store了日期进database
我要怎样set ...
无聊的silver 发表于 2010-8-22 03:49 AM

有一个 Object 叫 DateTime, 你存日期的 Datatype 最好为 DateTime。

DateTime toDay = new DateTime();
// C# 的写法，你换成VB 吧。

复制代码

所以， Insert Data 的时候。

Adapter.Insert(urdata, urdata, urdata, DateTime.Now);
//DateTime.Now 能提取现今的时间。

复制代码

//格式转换法。
MessageBox.Show(DateTime.Now.ToString("dd-MM-yyyy"))
MessageBox.Show(DateTime.Now.ToString("dd/MM/yyyy"))
MessageBox.Show(DateTime.Now.ToString("yyyy-MM-dd"))

复制代码

这个只是小问题，上网很多例子的。

作者: shippo 时间: 2010-8-22 09:47 PM
楼上正解。。。。。。
lol

作者: 无聊的silver 时间: 2010-8-23 12:39 AM
本帖最后由无聊的silver 于 2010-8-23 02:26 AM 编辑

oo
可是還是有點blur 哈哈
我要慢慢研究
hmm 對了好像我每次按payment button 它就會save 進database 說是現在的時間
就是寫
Adapter.Insert(urdata, urdata, urdata, DateTime.Now);

想问

DateAndTime = Now

         .Database3DataSet.Table1.Rows(0).Item("y") = DateAndTime.ToString("yyyy")
         .Table1TableAdapter.Update(.Database3DataSet.Table1)

这个是save date 对吗？
可是我不知道怎样弄到那个row 0 变去1,2,3,4,5,6
我试过loop 可是没用 TT

这个是open new row

         Dim NewRow As DataRow = Me.Database3DataSet.Table1.NewRow 'add new row for the summary datatable
         Me.Database3DataSet.Table1.Rows.Add(NewRow)
         Me.Table1TableAdapter.Update(Me.Database3DataSet.Table1)

作者: shippo 时间: 2010-8-23 11:12 PM
本帖最后由 shippo 于 2010-8-23 11:13 PM 编辑

Private Sub AddRow(ByVal dataSet As DataSet)
Dim table As DataTable = dataSet.Tables.Add("testing")
table.Columns.Add("x")
For i = 0 To 2
table.Rows.Add(i)
table.Rows(i).Item("x") = "aaa"
Next
End Sub

复制代码

给你一个example。。。
可以loop没问题啊。。。

作者: 无聊的silver 时间: 2010-8-24 03:40 AM

给你一个example。。。
可以loop没问题啊。。。
shippo 发表于 2010-8-23 11:12 PM

哈哈
很懷念
可是明天我有presentation
明天我才testing 嘻嘻
謝謝哦

作者: shippo 时间: 2010-8-24 09:10 AM
在哪里读？

作者: 无聊的silver 时间: 2010-8-25 02:33 AM
segi colllege subang

欢迎光临 JBTALKS.CC (https://mobile.jbtalks.cc/)