[求助]明白人帮指导一下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

入库表对入库汇总和实时库存进行数据写入操作：怎么操作呢？

[此贴子已经被作者于2012-11-20 19:11:43编辑过]

呵呵，挺凶的呀，你1楼也没说有窗体嘛我看看哈。

Dim s As Row=Tables("入库").Current
Dim t As String = s("货号")
If Tables("入库").Current.IsNull("货号") Then
    MessageBox.Show("货号不能为空!")
Else
    Dim dt1,dt2,dt3 As DataTable
    dt1 = DataTables("入库")
    dt2 = DataTables("实时")
    dt3 = DataTables("入库汇总")
    For Each dr As DataRow In dt1.DataRows
        Dim dr2 As DataRow = dt2.find("货号 = '"& t &"'")
        Dim dr3 As DataRow = dt3.find("货号 = '"& t &"'")
        If dr2 Is Nothing Then
            dr2 = dt2.AddNew
            dr2("货号") = dr("货号")
            dr2("数量") = dr("数量")
            dr2("单价") = dr("单价")
        Else
            dr2("数量") = dr2("数量") + s("数量")
        End If
        If dr3 Is Nothing Then
            dr3 = dt3.AddNew
            dr3("货号") = dr("货号")
            dr3("数量") = dr("数量")
            dr3("单价") = dr("单价")
        Else
            dr3("数量") = dr3("数量") + s("数量")
        End If
    Next
    MessageBox.Show("商品入库成功!")
    Tables("入库").AddNew()
End If

你只要保存当前入库的行，是不需要循环的·

        Dim dr2 As DataRow = dt2.find("货号 = '"& t &"'")
        Dim dr3 As DataRow = dt3.find("货号 = '"& t &"'")
        If dr2 Is Nothing Then
            dr2 = dt2.AddNew
            dr2("货号") = t
            dr2("数量") = s("数量")
            dr2("单价") = s("单价")
        Else
            dr2("数量") = dr2("数量") + s("数量")
        End If
        If dr3 Is Nothing Then
            dr3 = dt3.AddNew
            dr3("货号") = t
            dr3("数量") = s("数量")
            dr3("单价") = s("单价")
        Else
            dr3("数量") = dr3("数量") + s("数量")
        End If

MessageBox.Show("商品入库成功!")
Tables("入库").AddNew()
End If

[此贴子已经被作者于2012-11-21 9:12:23编辑过]

主题：[求助]明白人帮指导一下