Dim 行 As DataRow = DataTables("信用卡基本资料").DataRows(0)
Dim 查询表生成器 As New SQLJoinTableBuilder("查询表", "交易流水")
查询表生成器.C
查询表生成器.AddCols("*")
查询表生成器.Filter = "支付卡号='" & 行("卡号") & "' and 支付卡名='" & 行("卡名") &
"' and 支付日期>=#" & 行("开始日期") & "# and 支付日期<=#" & 行("结束日期") & "#"
For i As Integer = 1 To DataTables("信用卡基本资料").DataRows.Count - 1
行 = DataTables("信用卡基本资料").DataRows(i)
Dim 查询表生成器1 As New SQLJoinTableBuilder("查询表", "交易流水")
查询表生成器1.C
查询表生成器1.AddCols("*")
查询表生成器1.Filter = "支付卡号='" & 行("卡号") & "' and 支付卡名='" & 行("卡名") &
"' and 支付日期>=#" & 行("开始日期") & "# and 支付日期<=#" & 行("结束日期") & "#"
查询表生成器.Union(查询表生成器1)
Next
查询表生成器.Build()
MainTable = Tables("查询表")
Tables("窗口1_Table2").DataSource = DataTables("查询表")
Dim dt As DataTable = DataTables("查询表")
dt.Load()
Dim b As New GroupTableBuilder("笔数合计表",dt)
b.Groups.AddDef("支付卡号") '根据产品分组
b.Groups.AddDef("支付卡名") '根据产品分组
b.Totals.AddDef("支付金额") '对数量进行统计
b.Totals.AddDef("支付卡号", AggregateEnum.Count , "笔数")
b.Build '生成统计表
MainTable = Tables("笔数合计表") '打开生成的统计表
Tables("窗口1_Table1").DataSource = DataTables("笔数合计表")
这样对吗?“查询表”怎么直接就是合作模式呀?