Foxtable(狐表)用户栏目专家坐堂 → 目录树筛选的问题


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

主题:目录树筛选的问题

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


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
目录树筛选的问题  发帖心情 Post By:2017/1/13 9:58:00 [只看该作者]

老师你好,我按照帮助里面的代码学习目录树筛选的时候,当副本为false时,目录树有效,但是当副本为true的时候,就体现不了目录树筛选作用了
我修改Tables("入库单父子表").Filter = flt为Tables("入库单父子表_table1").Filter = flt,也依然无解,请老师指点。

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态
    nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
      If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or "  '注意用or而不是And
        End If
        If nd.Level = 0 Then '注意下面的条件都要用括号括起来
            flt = flt & "( 供货商 = '" & nd.Text & "')"
        Else
            flt = flt & "( 供货商 = '" & nd.ParentNode.Text & "' And 单号 = '" & nd.Text & "')"
        End If
    End If   
Next
Tables("入库单父子表").Filter = flt

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/13 10:06:00 [只看该作者]

加入代码 msgbox(ftl)

 

看弹出的条件是否正确。

 

表名改成 Forms("窗口名").Controls("Table1").Table.Filter = ftl


 回到顶部
帅哥哟,离线,有人找我吗?
k931931
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
  发帖心情 Post By:2017/1/13 10:14:00 [只看该作者]

谢谢,OK ,生效了。

 回到顶部