以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于任务问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145657)
--  作者：lgz518
--  发布时间：2020/2/3 20:54:00
--  关于任务问题？
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
--  作者：有点蓝
--  发布时间：2020/2/3 21:01:00
--  
首先，确定这些是任务的名称（e.Link.Name）？而不是标题（e.Link.Text）？

其次，如果任务名称都一样，再使用页面区分一下

Select Case e.Page.Name
    Case "按客户"
        Select Case e.Link.Name
            Case "按年度统计"
                \'在此加入相应的代码
            Case "按季度统计"
                ……
        End Select
    Case "按产品"
        Select Case e.Link.Name
            Case "按年度统计"
                \'在此加入相应的代码
            Case "按季度统计"
                ……
        End Select
        ……
End Select