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
[此贴子已经被作者于2018/2/28 19:27:12编辑过]