以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据引用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152525)
--  作者：朱女士
--  发布时间：2020/7/14 11:22:00
--  数据引用
老师您好！
    我的订单表中有净重列，订单明细表中有重量列，两个表用zzh关联，将明细表中数据按zzh分组统计后，再按zzh填充到订单表中的净重列。我的问题代码：
For Each nm As String In DataTables("订单表").GetValues("zzh")
 Dim dr As DataRow  

Dim Val As Double=DataTables("订单明细").compute("sum(数量)","zzh=\'" & nm & "\'")
   dr("净重") = val
Next
  MainTable = Tables("订单表")
Tables("订单评审表数据回填_table1").datasource=DataTables("订单表")
谢谢指正！
--  作者：有点蓝
--  发布时间：2020/7/14 11:25:00
--  
参考：http://www.foxtable.com/webhelp/topics/1472.htm