主题：[求助]对每天变动的库存余量进行统计汇总问题

 加一个判断

Dim dt As DataTable = DataTables("库存余量")
Dim Total As Double=0

dr("日期")=Date.Today
dr("总余量")=Total

问题没头没尾，谁知道怎么帮你写代码啊

要么，上传一个例子；

要么，用下面的代码测试一下

Dim dt As DataTable = DataTables("库存余量")
Dim Total As Double=0

Dim sp As List(Of String)
sp = dt.GetValues("商品编号")
Dim dr As DataRow=DataTables("总库存").addnew

For Each sp1 As String In sp
    Dim dr1 As DataRow
    dr1=DataTables("资产变动").find("商品编号='" & sp1 & "'","日期 desc")
    If dr1 IsNot Nothing Then
        iif(dr1("余量") Is Nothing ,total,total=total+dr1("余量")  )
    End If
Next

dr("日期")=Date.Today
dr("总余量")=Total

 回复11楼，复制10楼代码测试。10楼代码不会出现错误提示的。

 如果测试不成功，就上传一个例子。

不要说一句没一句的，信息量不足，别人理解不了你的意思的。请上传一个例子最实际，别人猜不出代码的。

代码这样写，两个事件，还不行的话，就请 上传例子

datacolchanged

If e.DataCol.name = "时间" Then
    Dim sp As List(Of String)
    sp = DataTables("库存表").GetValues("商品编号")
    For Each s As String In sp
        Dim dr As DataRow
        dr = DataTables("库存表").find("商品编号 = '" & s & "' and 时间 <= #" & e.DataRow("时间") & "#","时间 desc")
        Total = Total + dr("余量")
    Next
    e.DataRow("总余量") = total
End If

datarowadded

e.DataRow("时间") = Date.Today

 回复20楼，你先入门吧 http://www.foxtable.com/help/topics/0966.htm

 问问题，先上传例子，别人好写代码。

 回复22楼，请做好两个表，做好一个窗口，上传例子。

 这是最基本的礼貌。

 代码大概如下，自己改改

Dim sp As List(Of String())
sp = DataTables("库存表").GetValues("商品编号|时间", "商品编号 = 'A'")
For Each s As String() In sp
    Dim dr As DataRow
    dr = DataTables("库存表").find("商品编号 = '" & s(0) & "' and 时间 <= #" & s(1) & "#","时间 desc")
    msgbox(dr("余量"))
Next

请上例子，我帮你写，可好？

 如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.table