123 / 3 页下一页

楼主: 无聊的silver

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

[复制链接]

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 嘻嘻
謝謝哦

123 / 3 页下一页

返回列表

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

浏览过的版块