这是简单的选择:
一个目录树控件,根据不同的生成条件,可以生成无数个目录树。
If e.Sender.AllNodes(0).Name = "销售人员业绩(按月核算)" Then
'业绩查询代码
ElseIf e.Sender.AllNodes(0).Name = "折扣业绩核算(按月核算)" Then
'折扣业绩查询代码
Else
'.......
End If