1.任务栏分为三个大页面：按客户，按产品，按业务员，然后三个页面每个下面都三个小任务：按客户（按年统计，按季统计，按月统计），按产品（按年统计，按季统计，按月统计），按业务员（按年统计，按季统计，按月统计），
问题：执行下面代码，单击任何一个都执行，没有根据单击任务执行相应任务：
Select Case e.Link.Name
Case "按年度统计"
'在此加入相应的代码
Case "按季度统计"
Dim b As New GroupTableBuilder("统计表1",DataTables("订单登记明细"))
b.Filter = "[交货日期] >= #1/1/2020# And [交货日期]<= #12/31/2020#"
'b.Filter = "[交货日期] >= DateTimePicker1 And [交货日期]<= DateTimePicker2
b.Groups.AddDef("客户")'
b.Groups.AddDef("交货日期",DateGroupEnum.Quarter,"季度")
b.Totals.AddDef("客户",AggregateEnum.Count,"订单数")
b.Totals.AddDef("数量","订购数量")
Tables("订单登记统计_Table2").DataSource = b.BuildDataSource()
Case "按月度统计"
Dim b As New GroupTableBuilder("统计表1",DataTables("订单登记明细"))
b.Groups.AddDef("交货日期", DateGroupEnum.Year, "年")
b.Groups.AddDef("交货日期","月")
b.Groups.AddDef("客户")
b.Totals.AddDef("客户",AggregateEnum.Count,"订单数")
b.Totals.AddDef("数量","订购数量")
Tables("订单登记统计_Table2").DataSource = b.BuildDataSource()
Case "按起止日期统计"
'在此加入相应的代码
End Select
加好友 
发短信
Post By：2020/2/3 20:54:00 [只看该作者]
