--
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
原始代码是这样的
可以执行的
Dim Values() As String = e.Form.Controls("CheckedComboBox选择列").Text.Split(",")
不想要这个控件值,
想简化下
[此贴子已经被作者于2019/10/19 17:06:30编辑过]