Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1") '选择年份
Dim g As new GroupTableBuilder("统计表1",DataTables("投入产出"))
g.Groups.AddDef("月份")
g.Totals.AddDef("投入")
g.Totals.AddDef("产出")
g.Totals.AddDef("利润")
If cb1.text > "" then
g.filter = "门店名称 = '艾依格店' and 年份 = '" & cb1.text & "'"
Else
g.filter = "门店名称 = '艾依格店'"
End If
Dim dt As DataTable = g.Build(True)