Dim d1 As Date = e.Form.Controls("统计开始日期").Value
Dim d2 As Date = e.Form.Controls("统计结束日期").Value
Dim d3 As Date = e.Form.Controls("年度期初").Value
Dim d4 As Date = e.Form.Controls("上年年末").Value
Dim khmc As WinForm.TextBox = e.Form.Controls("客户查询选择")
If d1 = Nothing Or d2 = Nothing Then
MessageBox.Show("起始或结束日期都不能为空!","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If
Dim g1 As New GroupTableBuilder("月度统计", DataTables("业务表")) '客户查询 为Click按钮名称
g1.Filter = "日期>=#" & d1 & "# and 日期<=#" & d2 & "#"
Dim bb1 As fxDataSource
g1.Groups.AddDef("员工姓名")
g1.Groups.AddDef("客户名称")
g1.Totals.AddDef("发货数量", "发货情况_本月发货")
g1.Totals.AddDef("开piao数量", "本年开piao情况_本月开piao量")
g1.Totals.AddDef("开piao金额", "本年开piao情况_本月开piao额")
g1.Totals.AddDef("收款金额", "收款情况_本月收款")
g1.VerticalTotal = True
g1.SubTotal = True
g1.Decimals = 2
g1.FromServer = True
g1.Build()
bb1 = g1.BuildDataSource()
Dim g2 As New GroupTableBuilder("累计统计", DataTables("业务表")) '年度统计 为Click按钮名称
g2.Filter = "日期>=#" & d3 & "# and 日期<=#" & d2 & "#"
Dim bb2 As fxDataSource
g2.Groups.AddDef("员工姓名")
g2.Groups.AddDef("客户名称")
g2.Totals.AddDef("发货数量", "发货情况_本年累计")
g2.Totals.AddDef("开piao数量", "本年开piao情况_累计开piao量")
g2.Totals.AddDef("开piao金额", "本年开piao情况_累计开piao额")
g2.Totals.AddDef("收款金额", "收款情况_本年累计")
g2.VerticalTotal = True
g2.SubTotal = True
g2.Decimals = 2
g2.FromServer = True
g2.Build()
bb2 = g2.BuildDataSource()
Dim nms As String() = {"员工姓名","客户名称"} '指定连接列
bb1.Combine(nms,bb2,nms)
Tables("业务管理_统计表").DataSource = bb1 '将统计结果绑定到Table
With DataTables("业务管理_统计表").DataCols '用表达式列计算库存数据
.Add("期末余额_末开piao量",Gettype(Double), "IsNull([发货情况_本年累计],0) - ISNULL([本年开piao情况_累计开piao量],0)")
.Add("期末余额_应收帐款",Gettype(Double), "IsNull([本年开piao情况_累计开piao额],0) - ISNULL([收款情况_本年累计],0)")
End With