以文本方式查看主题

-  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=157372)

--  作者:tld
--  发布时间:2020/10/13 20:12:00
--  窗口表显示统计结果
老师好,  窗口有三个表, 分别 是 tb1  tb2  tb3  ,  如何将分组统计的结果显示在    tables(e.form.name & "_table3") 中 ?  最好能直接在 tb3中显示

Dim bd2 As New GroupTableBuilder("统计2",DataTables("流水"))
Dim dt1 As fxDataSource
bd2.Groups.AddDef("付款单位")
bd2.Groups.AddDef("结算单位")
bd2.Groups.AddDef("付款id")
bd2.Groups.AddDef("开票id")
bd2.Totals.AddDef("税后核定")
bd2.Decimals = 2
bd2.FromServer = True
bd2.Filter = "[付款单位] = \'" & tb1.Current("付款单位") & "\' and [委托编号] >= \'" & cong & "\' and [委托编号] <= \'" & dao & "\'"
dt1 = bd2.BuildDataSource()

谢谢!

--  作者:有点蓝
--  发布时间:2020/10/13 20:19:00
--  
Dim bd2 As New GroupTableBuilder("统计2",DataTables("流水"))
bd2.Groups.AddDef("付款单位")
bd2.Groups.AddDef("结算单位")
bd2.Groups.AddDef("付款id")
bd2.Groups.AddDef("开piaoid")
bd2.Totals.AddDef("税后核定")
bd2.Decimals = 2
bd2.FromServer = True
bd2.Filter = "[付款单位] = \'" & tb1.Current("付款单位") & "\' and [委托编号] >= \'" & cong & "\' and [委托编号] <= \'" & dao & "\'"
tables(e.form.name & "_table3").
datasource =  bd2.BuildDataSource()