Foxtable(狐表)用户栏目专家坐堂 → [求教]代码错误修改


  共有1711人关注过本帖树形打印复制链接

主题:[求教]代码错误修改

帅哥哟,离线,有人找我吗?
hcfbehero
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:109 积分:1074 威望:0 精华:0 注册:2019/1/16 22:56:00
[求教]代码错误修改  发帖心情 Post By: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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/4/27 9:26:00 [只看该作者]

dim ar1() as string = {"运输审核_结算月","销售审核_销日"}
dim ar2() as string = {"财务结算年月",""}

dt1.Combine(ar1,dt2,ar2)

 回到顶部
帅哥哟,离线,有人找我吗?
hcfbehero
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:109 积分:1074 威望:0 精华:0 注册:2019/1/16 22:56:00
  发帖心情 Post By:2019/4/27 12:52:00 [只看该作者]

感谢,完美解决!

 回到顶部