老师，NodeMouseDoubleClick应该如何改呢？您说要增加条件，可是我怎么也加不上去啊，
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "全部" Then
Select Case e.Node.Level
Case 0
Dim Products As List(Of String)
Products = DataTables("工程量清单").GetValues("子目号","项目编号='" & e.node.text & "'")
Dim nms As String=""
For Each Product As String In Products
nms = nms & ",'" & product & "'"
Next
If nms > "" Then
nms = nms.Trim(",")
Filter = "[子目号] In (" & nms & ")"
End If
Case 2,3
Filter = "[项目编号] = '" & e.node.ParentNode.ParentNode.text & "' And [子目号] = '" & e.node.text.split(" ")(0) & "'"
End Select
End If
Tables("工程量清单").Filter = Filter
[此贴子已经被作者于2020/5/15 16:18:41编辑过]
加好友 
发短信
Post By：2020/5/15 9:19:00 [显示全部帖子]
此主题相关图片如下：结果1.png
谢谢老师，高手