老师好：请教一下，在目录节点鼠标点击不同的第二节点标题后，附加执行一段另外的代码，怎么实现，谢谢！
Dim SQLFilter As String
If e.Node.name = "所有编码规则" Then
SQLFilter = "1=1"
Else
Dim Filter As String
If e.node.Text = "所有编码规则" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Select Case e.Node.Level
Case 0
SQLFilter ="[归属部门] = '" & dr("归属部门") & "'"
Case 1
SQLFilter ="[归属部门] = '" & dr("归属部门") & "' And [产品类别] = '" & dr("产品类别") & "'"
‘如果第二节点 产品类别 的内容是ABC成品，在实现筛选后执行一段A代码
‘如果第二节点 产品类别 的内容是EFG成品，在实现筛选后执行一段B代码
End Select
End If
End If
Tables("编码规则").Filter = sqlFilter
谢谢！
加好友 
发短信
Post By：2021/4/6 12:23:00 [只看该作者]
此主题相关图片如下：qq图片20210406143858.png