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

shippo

。。。
这类型的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...？？

宅男-兜着走

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

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

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

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

无聊的silver

哈哈
哦
原来
可是现在那个summary我不会
是放在database 还是excel做？
不明白

shippo

。。
当然是在你program里。。。database只负责提供你数据。。。
你的数据能存了对吧？？
那你现在只要能把它们拿出来就行了。。。。。。。
你从哪里学到怎么存。。就去同个地方学怎么拿。。。。

无聊的silver

我会edit，拿出来，存进我的database
可是有一个我不会就是
如果我store了日期进database
我要怎样set 那个code 给它
好像选2010 /5 / 3 的data 出來？

宅男-兜着走

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

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

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

复制代码

所以， Insert Data 的时候。

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

复制代码

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

复制代码

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

shippo

楼上正解。。。。。。
lol

无聊的silver

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

1. 
   
2.   Private Sub AddRow(ByVal dataSet As DataSet)
   
3. 
   
4.         Dim table As DataTable = dataSet.Tables.Add("testing")
   
5. 
   
6.         table.Columns.Add("x")
   
7. 
   
8.         For i = 0 To 2
   
9.             table.Rows.Add(i)
   
10.             table.Rows(i).Item("x") = "aaa"
    
11.         Next
    
12. 
    
13.   End Sub
    

复制代码

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

无聊的silver

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

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