主题：目录树动态通用代码 求助

If e.Node.Level = 1 Then

MainTable = Tables(e.Node.Text)
End If

上面的代码是自动获取的

下面的代码我想修改下成自动的，做成模板

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("订单", "产品|客户|雇员")
trv.Nodes.Insert("显示所有行",0)

下面的代码想设计成通用的代码，如果点击的是第一节 自动获取第一节的名称进行筛选，

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[产品] = '" & dr("产品") & "'"    黄色部分做成动态的 如果点击的是第一节 自动获取第一节的名称进行筛选，
Case 1
Filter = "[产品] = '" & dr("产品") & "' And [客户] = '" & dr("客户") & "'"
Case 2
Filter = "[产品] = '" & dr("产品") & "' And [客户] = '" & dr("客户") & "' And [雇员] = '" & dr("雇员") & "'"
End Select
End If
Tables("订单").Filter = Filter

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=44200&skin=0

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=32484&skin=0