以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  目录树需要驱动副本表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119325)
--  作者：yifan3429
--  发布时间：2018/5/22 23:05:00
--  目录树需要驱动副本表
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

表格为正本时可以正常驱动，副本时不能通过目录树筛选
--  作者：有点甜
--  发布时间：2018/5/23 9:53:00
--  

msgbox(Vars("表名")) 弹出的值是什么？副本表的表名是如这样的 窗口1_Table1

 

代码没问题，只要表名写正确就没问题。