主题：如何设计统计代码

代码在项目的MainTableChanged事件中

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

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

楼上的代码比较符有误，改成下面这样：

If MainTable.Name = "仓库存在统计表" Then
    Dim f As New Filler
    f.SourceTable = DataTables("仓库入货明细")
    f.DataTable = DataTables("仓库存在统计表")
    f.ExcludeExistValue = True
    f.ExcludeNullValue = True
    f.Fill()
   
    Dim fl As New Filler
    fl.SourceTable = DataTables("仓库出货明细")
    fl.DataTable = DataTables("仓库存在统计表")
    fl.ExcludeExistValue = True
    fl.ExcludeNullValue = True
    fl.Fill()
   
    '以下统计
    Dim dt As DataTable = DataTables("仓库入货明细")
    Dim dt1 As DataTable = DataTables("仓库出货明细")
    For Each dr As DataRow In DataTables("仓库存在统计表").DataRows
        Dim Filter As String = "类别 = '" & dr("类别") & "' And "
        Filter = Filter & "品名 = '" & dr("品名") & "' And "
        Filter = Filter & "规格与色号 = '" & dr("规格与色号") & "' And "
        Filter = Filter  & "单位 = '" & dr("单位") & "' And "
        Filter = Filter & "单价 = " & dr("单价")
        dr("上月结存_数量") = dt.Compute("Sum(数量)",Filter & " And 年月 < " & dr("年月")) - dt1.Compute("Sum(数量)",Filter & " And 年月 < " & dr("年月"))
        dr("本月_入库_数量") = dt.Compute("Sum(数量)",Filter & " And 年月 = " & dr("年月"))
        dr("本月_出库_数量") = dt1.Compute("Sum(数量)",Filter & " And 年月 = " & dr("年月"))
    Next
End If

说的明明白白是项目的MainTableChanged事件，你却放到了表DataColChanged事件中，不崩溃才怪呢。

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

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

实际应用中这种状况是不存在的。

如果真有需要可以这样：

If MainTable.Name = "仓库存在统计表" Then

    DataTables("仓库存在统计表").DataRows.Clear()
……

End If

别胡扯，你试试12楼的文件会这样吗？