Dim Values() As String = e.Form.Controls("CheckedComboBox选择列").Text.Split(",")
Dim strs() As String = e.Node.FullName.Split("\")
Dim flt As String = "1=1"
For i As Integer = 0 To strs.Length - 1 ''间接获取目录树层级(Level)
flt += " And " & Values(i) & "= '" & strs(i) & "'"
Next
If flt > "" Then
Tables(Vars("表名")).Filter = flt
'Tables(Vars("表名")).Load
End If
表格为正本时可以正常驱动,副本时不能通过目录树筛选