'用SQL语句生成销项fa piao临时表
Dim cmd As New SQLCommand
Dim dtt As DataTable
cmd.C
cmd.CommandText = "Select 工程fa piao消帐码, sum(价税合计) as fa piao金额 fro m {销项fa piao} where 工程fa piao消帐码 is not null and 年份 <> 2016 and 年份 <> 2017 group by 工程fa piao消帐码"
dtt = cmd.ExecuteReader()
Dim bd1 As New GroupTableBuilder("统计表1",dtt)
Dim dt1 As fxDataSource
bd1.Groups.AddDef("工程fa piao消帐码")
bd1.Totals.AddDef("fa piao金额")
dt1 = bd1.BuildDataSource()
'用SQL语句生成流水账临时表
Dim cmd2 As New SQLCommand
Dim dtt2 As DataTable
cmd2.C
cmd2.CommandText = "Select b.工程fa piao消账码, sum(收入) as 收款金额 fro m {流水账} As a inner join {dtt} As b on a.工程fa piao消账码=b.工程fa piao消帐码 group by b.工程fa piao消帐码"
dtt2 = cmd2.ExecuteReader()
Dim bd2 As New GroupTableBuilder("统计表2",dtt2)
Dim dt2 As fxDataSource
bd2.Groups.AddDef("工程fa piao消账码")
bd2.Totals.AddDef("收款金额")
dt2 = bd2.BuildDataSource()
dt1.Combine("工程fa piao消帐码",dt2,"工程fa piao消账码")
Tables("fa piao收款消帐表_table1").DataSource = dt1
加好友 
发短信
Post By：2019/6/19 14:32:00 [只看该作者]
