Dim g As New GroupTableBuilder("统计表1", DataTables("门诊疫苗药品出库表"))
Dim dt1 As fxDataSource
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("疫苗药品名称")
g.Groups.AddDef("生产厂家")
g.Groups.AddDef("批号")
g.Groups.AddDef("单位")
g.Groups.AddDef("部门", "收费部门")
g.Totals.AddDef("数量", "出库数量")
g.Decimals = 0
g.FromServer = True
g.Filter = "日期 >= '" & r1.Value & "' and 日期 <= '" & r2.Value & "'"
dt1 = g.BuildDataSource()
Dim g1 As New GroupTableBuilder("统计表2", DataTables("收费明细"))
Dim dt2 As fxDataSource
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g1.Groups.AddDef("日期", "月")
g1.Groups.AddDef("收费项目","疫苗药品名称")
g1.Groups.AddDef("生产厂家")
g1.Groups.AddDef("药品批号","批号")
g1.Groups.AddDef("单位")
g1.Groups.AddDef("收费部门")
g1.Totals.AddDef("数量","收费数量")
g1.Decimals = 0
g1.FromServer = True
g1.Filter = "日期 >= '" & r1.Value & "' and 日期 <= '" & r2.Value & "' and 已付款 = '" & True & "' And 生产厂家 Is not null"
dt2 = g1.BuildDataSource()
Dim nms As String() = {"月","疫苗药品名称","生产厂家","批号","单位","收费部门"}
dt1.Combine(nms,dt2,nms)
Tables("门诊收费查询_table1").DataSource = dt1
加好友 
发短信
Post By：2019/4/18 7:36:00 [只看该作者]
