-- 作者:lfz
-- 发布时间:2022/3/11 9:27:00
-- 回复:(有点蓝)贴出完整代码,或者上传实例说明
其他代码测试都没有问题,就是加了黄色代码就有提示
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编辑过]
|