'''
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态
nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
If flt > "" Then
flt = flt & " and "
End If
If nd.FullPath.StartsWith("@") OrElse nd.FullPath.StartsWith("#") OrElse nd.FullPath.StartsWith("！")
flt = flt & "( 第一列 like '%" & nd.Text & "%')"
ElseIf nd.FullPath.StartsWith("全部项目") And nd.Level = 1
flt = flt & "( 项目 = '" & nd.Text & "')"
ElseIf nd.FullPath.StartsWith("全部目标") And nd.Level = 1
flt = flt & "( 目标 = '" & nd.Text & "')"
End If
End If
Next
'Tables("表A").Filter = flt
Tables("窗口1_Table1").Filter = flt
加好友 
发短信
Post By：2022/1/17 9:42:00 [显示全部帖子]
