此主题相关图片如下:11.jpg

如上图,左边是目录树,右边为表。 根据右边表的内容:产品类别, 这一列,生成目录树,然后,单机目录树的产品类别,右边的表就显示当前类别下的所有内容
要根据外部表来的内容来生成
我用帮助里的这代码可以用,但只能生成已加载的数据,未加裁的生成点击结点,显示不出来
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("订单", "产品|客户|雇员")
trv.Nodes.Insert("显示所有行",0)
2、将目录树的NodeMouseDoubleClick事件设为:
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
[此贴子已经被作者于2017/11/25 23:12:48编辑过]