主题：跨表计算（已解决）

采购明细中的已交重量是统计库明细中入库重量怎样写代码

 

采购明细 DataColChanged

 

If e.DataCol.Name = "采购重量" Then
    Dim dr As DataRow = DataTables("入库明细").Find("采购ID = '" & e.DataRow("采购ID") & "' and 物资编号 = '" & e.DataRow("物资编号") & "'")
    If dr IsNot Nothing Then
        e.DataRow("已交重量") = dr("入库重量") - e.OldValue + e.NewValue
    End If
End If

If e.DataCol.Name = "采购ID" orelse e.DataCol.Name = "物资编号" Then
    Dim dr As DataRow = DataTables("入库明细").Find("采购ID = '" & e.DataRow("采购ID") & "' and 物资编号 = '" & e.DataRow("物资编号") & "'")
    If dr IsNot Nothing Then
        e.DataRow("已交重量") = dr("入库重量")
    End If
End If

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

点击浏览该文件:数据管理.rar

 

 

没有计算老师请帮忙看下

入库明细中入库重量可能是分多个入库单代码没有计算

已有数据改代码后要重置一下列

重置列 没有计算数据，之前手工填料了下数据

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

点击浏览该文件:数据管理.zip

请问改了哪里？数据有变化，没有吧多个入库单的入库重量数据统计到已交重量

测试老师改的输入数据有变化，为减少文件，删了部分窗口，打开查看提问部分的代码没有变化请问改了哪里？没有把多个入库单的入库重量数据统计到已交重量，已交重量有可能是多次入库

您的代码只是查询了一个单，如果要统计求和，参考这种：http://www.foxtable.com/webhelp/topics/1472.htm