主题：外部数据表的流水账问题

cmd.C  后面漏掉了   请补上去

我测试正常.

我的代码试告诉你数据源中"物品入库" 表和 "物品出库" 表中,当前行该物品名称的累计入库和出库的总计是多少. 当前行没有物品名称的话当然就出错了,可以加个判断条件,If Tables("物品入库").current.IsNull("物品名称") = False ...End If  

你现在要增加入库和出库, 怎样计算现在的库存余数应该没有问题了吧............

自己做啊，有问题再问大家吧。  想要现成，不如下载一个免费的软件使用就是了，这里是交流的地方，大家可以互相解决学习中碰到的问题。

你的要求好象不太现实,如果不加载数据就意味着从后台直接调取数据来计算出每个产品的库存量,但如果从后台直接调取数据,当进行出库输入出库数量时,此时后台数据并未生成,怎么来调取数据?难不成每输入一个出库数量就保存一次?

下面的代码只做为参考.

出库表DataColChanged事件代码:

Dim r As DataRow = e.DataRow
If e.DataCol.name =  "出库数量" Then
    If r.isnull("日期") = False And r.isnull("物品名称") = False Then
        DataTables("物品出库").Save()
        Dim Filter As String
        Dim Val As Double
        For Each dr As DataRow In DataTables("物品出库").DataRows
            Filter = "物品名称 = '" & dr("物品名称") & "' And [_SortKey] <= " & dr("_SortKey")
            Dim cmd As New SQLCommand
            cmd.ConnectionName  = "wp"

            cmd.CommandText = "SELECT SUM(入库数量) FROM {物品入库} WHERE [物品名称]= '" & dr("物品名称") & "'"
            Val = cmd.ExecuteScalar()
            cmd.CommandText = "SELECT SUM(出库数量) FROM {物品出库} WHERE " & Filter
            dr("库存") = Val - cmd.ExecuteScalar()
        Next
    End If
End If

加载出库表代码:

DataTables("物品出库").LoadFilter = "[日期] > #2010-07-01#"
DataTables("物品出库").Load

For Each dr As DataRow In DataTables("物品出库").DataRows
    Dim Filter As String = "物品名称 = '" & dr("物品名称") & "' And [_SortKey] <= " & dr("_SortKey")
    Dim cmd As New SQLCommand
    cmd.ConnectionName  = "wp"

    cmd.CommandText = "SELECT SUM(入库数量) FROM {物品入库} WHERE [物品名称]= '" & dr("物品名称") & "'"
    Dim Val As Double = cmd.ExecuteScalar()
    cmd.CommandText = "SELECT SUM(出库数量) FROM {物品出库} WHERE " & Filter
    dr("库存") = Val - cmd.ExecuteScalar()
Next