Foxtable(狐表)用户栏目专家坐堂 → 目录树需要驱动副本表


  共有1520人关注过本帖树形打印复制链接

主题:目录树需要驱动副本表

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2462 积分:22730 威望:0 精华:0 注册:2011/3/29 17:14:00
目录树需要驱动副本表  发帖心情 Post By: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

表格为正本时可以正常驱动,副本时不能通过目录树筛选

 回到顶部