主题：目录树单击筛选table

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树单击筛选测试_202204061331.zip

Dim nms() As String = {"类别","项目1","项目2","项目3","项目4"} '指定生成目录树的各列
Dim qts As String() = {"'","'","'","'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号,如果是时间是#,如果是数字则空-----和上面的数组个数相等
MessageBox.Show(e.node.FullPath)
Dim rts() As String = e.node.FullPath.Split("\")
Dim val As String = ""
For i As Integer = 0 To rts.length - 1
    If val > "" Then
        val = val & " And "
    End If
    val = val & "[" & nms(i) & "]" & " = " & qts(i) & rts(i) & qts(i)   '是字符型用单引号,是时间用#,是数字则空
Next
MessageBox.Show(val)
Tables(e.Form.name & "_table1").Filter = ""
Tables(e.Form.name & "_table1").Filter = val

 已解决，上面代码没有问题，多写了单击代码