[讨论]目录节点延伸 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好：

请教一下，在目录节点鼠标点击不同的第二节点标题后，附加执行一段另外的代码，怎么实现，谢谢！

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

Tables("编码规则").Filter = sqlFilter

谢谢！

主题：[讨论]目录节点延伸