Dim jb1 As New SQLGroupTableBuilder("查询表1","进仓单主表")
jb1.AddTable("进仓单主表","入仓单号","进仓单明细","入仓单号")
jb1.Groups.AddDef("编号")
jb1.Groups.AddDef("品名")
jb1.Totals.AddDef("数量","入库数量")
jb1.Filter = "入库日期 >= #06/20/2020# and 入库日期 <=#02/26/2021#"
Dim dt1 As fxDataSource
dt1 = jb1.BuildDataSource()
Dim jb2 As New SQLGroupTableBuilder("查询表2","材料出仓单主表")
jb2.AddTable("材料出仓单主表","出仓单号","材料出仓单明细表","出仓单号")
jb2.Groups.AddDef("材料编号","编号")
jb2.Groups.AddDef("材料品名","品名")
jb2.Totals.AddDef("数量","出库数量")
jb2.Filter = "领料日期 >= #06/20/2020# and 领料日期 <=#02/26/2021#"
Dim dt2 As fxDataSource
dt2 = jb2.BuildDataSource()
Dim nms As String() = {"编号","品名"}
dt1.Combine(nms,dt2,nms)
dt1.show("查询表1")
加好友 
发短信
Post By：2021/2/24 11:37:00 [显示全部帖子]
