以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  含文字内容的跨表统计问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169303)

--  作者:HANZHIGANG
--  发布时间:2021/6/11 10:20:00
--  含文字内容的跨表统计问题
如图中问题
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210611101718.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/6/11 10:29:00
--  

表B的DataColChanged事件 中设置如下代码:

If e.DataCol.Name = "调度单号" Then 

if e.datarow.isnull("调度单号") then

e.DataRow("商品车") = nothing

else

Dim g As New GroupTableBuilder("统计表1"DataTables("表A"))
g
.Groups.AddDef("商品车")
g
.Totals.AddDef("台数")

g.filter = "调度单号=\'" & e.newvalue & "\'"

dim dt as datatable = g.Build(true)

dim s as string = ""

for each dr as datarow in dt.datarows

s = s & "," & dr("商品车") & dr("台数") & "台"

next
    e.
DataRow("
商品车") = s.trim(",")

end if
End
 
If