以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  跨表计算(已解决)  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185764)

--  作者:青丘狐
--  发布时间:2023/3/15 14:17:00
--  跨表计算(已解决)

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

 

采购明细 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

[此贴子已经被作者于2023/3/16 15:39:54编辑过]

--  作者:有点蓝
--  发布时间:2023/3/15 14:21:00
--  
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
--  作者:青丘狐
--  发布时间:2023/3/15 15:34:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据管理.rar

 

 

没有计算老师请帮忙看下


--  作者:青丘狐
--  发布时间:2023/3/15 15:36:00
--  
入库明细中入库重量可能是分多个入库单代码没有计算
--  作者:有点蓝
--  发布时间:2023/3/15 15:40:00
--  
已有数据改代码后要重置一下列
--  作者:青丘狐
--  发布时间:2023/3/15 16:05:00
--  
重置列 没有计算数据,之前手工填料了下数据

--  作者:有点蓝
--  发布时间:2023/3/15 16:26:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据管理.zip


--  作者:青丘狐
--  发布时间:2023/3/15 17:01:00
--  
请问改了哪里?数据有变化,没有吧多个入库单的入库重量数据统计到已交重量
--  作者:青丘狐
--  发布时间:2023/3/15 17:08:00
--  

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


--  作者:有点蓝
--  发布时间:2023/3/15 17:29:00
--  
您的代码只是查询了一个单,如果要统计求和,参考这种:http://www.foxtable.com/webhelp/topics/1472.htm