- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求教]代码错误修改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134088)
-- 发布时间：2019/4/27 1:19:00
-- [求教]代码错误修改
两个表组合统计，运行后，出现以下错误，请帮忙看下是哪地儿出现问题了。
Dim jsrQ As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim g1 As New GroupTableBuilder("统计表1", DataTables("明细根表"))
Dim dt1 As fxDataSource
g1.Groups.AddDef("运输审核_结算月")
g1.Groups.AddDef("销售审核_销日")
g1.Totals.AddDef("销量")
g1.VerticalTotal = True
g1.Filter = "[运输审核_结算月] = \'" & jsrQ.text & "\' and [JZFS] = \'泵送\' and [泵车作业_泵号] <> \'工\' and [泵车作业_泵号] <> \'取\' and [泵车作业_泵号] <> \'退\'"\'"
dt1 = g1.BuildDataSource()
Dim g2 As New GroupTableBuilder("统计表2", DataTables("泵送明细"))
Dim dt2 As fxDataSource
g2.Groups.AddDef("财务结算年月")
g2.Groups.AddDef("日")
g2.Totals.AddDef("砼方量_供货")
g2.VerticalTotal = True
g2.Filter = "[财务结算年月] = \'" & jsrQ.text & "\'"
dt2 = g2.BuildDataSource()
dt1.Combine("运输审核_结算月",dt2,"财务结算年月")
Tables("泵送明细_Table2").DataSource = dt1
Tables("泵送明细_Table2").AutoSizeCols()
此主题相关图片如下：无标题.png
-- 发布时间：2019/4/27 9:26:00
--
dim ar1() as string = {"运输审核_结算月","销售审核_销日"}
dim ar2() as string = {"财务结算年月","日"}
dt1.Combine(ar1,dt2,ar2)
-- 发布时间：2019/4/27 12:52:00
--
感谢，完美解决！