其他代码测试都没有问题,就是加了黄色代码就有提示
Dim t As Table = Tables("对账表_Table1")
Dim r As Row = Tables("供应商列表_tb统计").Current
e.Form.Controls("TextBox1").value = r("供应商简称")
Dim bd1 As New SQLGroupTableBuilder("统计表1","入库单")
bd1.C
bd1.Filter = "供应商简称 = '" & r("供应商简称") & "'"
'bd1.Filter = "供应商简称 = '" & r("供应商简称") & " 'and 申请单号 not in"
Dim dt1 As fxDataSource
bd1.Groups.AddDef("申请单号") '根据申请单号分组
bd1.Totals.AddDef("含税金额","入库金额") '对数量进行统计
dt1 = bd1.BuildDataSource()
Dim bd2 As New SQLGroupTableBuilder("统计表2","流水账")
bd2.C
bd2.Filter = "科目 = '" & r("供应商简称") & " '"
Dim dt2 As fxDataSource
bd2.Groups.AddDef("申请单号")
bd2.Totals.AddDef("支出","已付款")
dt2 = bd2.BuildDataSource()
Dim bd3 As New SQLGroupTableBuilder("统计表","申请单")
bd3.C
bd3.Filter = "申请企业 = '" & r("供应商简称") & "'"
Dim dt3 As fxDataSource
bd3.Groups.AddDef("申请单号") '根据型号分组
bd3.Totals.AddDef("期初余额") '对数量进行统计
dt3 = bd3.BuildDataSource()
dt1.Combine("申请单号",dt2,"申请单号") '将已付款数据组合到入库统计数据
dt1.Combine("申请单号",dt3,"申请单号") '将期初余额统计数据组合到入库统计数据
Tables("对账表_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("对账表_Table1").DataCols '用表达式列计算未付款
.Add("未付款",Gettype(Integer), "IsNull([期初余额],0) + IsNull([入库金额],0) - ISNULL([已付款],0)")
End With
[此贴子已经被作者于2022/3/11 9:32:43编辑过]
加好友 
发短信
Post By：2022/3/11 9:02:00 [显示全部帖子]
Post By：2022/3/11 9:39:00 [显示全部帖子]
此主题相关图片如下：错误提示.png
