Dim Filter1 As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.FullName .StartsWith("按部门") Then '
Select Case e.Node.Level
Case 1
Filter1 = "[单位] = '" & dr("单位") & "'"
Case 2
Filter1 = "[单位] = '" & dr("单位") & "' And [部门] = '" & dr("部门") & "'"
Case 3
Filter1 = "[单位] = '" & dr("单位") & "' And [部门] = '" & dr("部门") & "' And [责任人] = '" & dr("责任人") & "'"'
End Select
ElseIf e.Node.FullName . StartsWith("按设备") Then
Select Case e.Node.Level
Case 1
Filter1 = "[设备大类] = '" & dr("设备大类") & "'"
Case 2
Filter1 = "[设备大类] = '" & dr("设备大类") & "' And [设备二类] = '" & dr("设备二类") & "'"
Case 3
Filter1 = "[设备大类] = '" & dr("设备大类") & "' and [设备二类] = '" & dr("设备二类") & "' And [设备三类] = '" & dr("设备三类") & "'"'
End Select
End If
Tables("主表").Filter = Filter1
加好友 
发短信
Post By：2021/1/30 17:28:00 [只看该作者]
