以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  树筛选怎么关联啊  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108698)

--  作者:yangwenghd
--  发布时间:2017/10/27 15:12:00
--  树筛选怎么关联啊
 在窗口建一个树筛选控件,怎么筛选到窗口表格啊,感谢 感谢
为什么不能上传图片和案例呢,感谢
[此贴子已经被作者于2017/10/27 15:17:03编辑过]

--  作者:有点甜
--  发布时间:2017/10/27 15:53:00
--  

参考 http://www.foxtable.com/webhelp/scr/0917.htm

 


--  作者:yangwenghd
--  发布时间:2017/10/30 22:43:00
--  
为什么关联不到投资学习窗口_Table1 感谢 感谢 

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "筛选" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[类别] = \'" & dr("流程") & "\'"
        Case 1
            Filter = "[类别] = \'" & dr("流程") & "\' And [标题] = \'" & dr("标题") & "\'"
        \'Case 2
            \'Filter = "[类别] = \'" & dr("流程") & "\' And [客户] = \'" & dr("客户") & "\' And [雇员] = \'" & dr("雇员") & "\'"
    End Select
End If
Tables("投资学习窗口_Table1").Filter = Filter


--  作者:有点蓝
--  发布时间:2017/10/30 23:58:00
--  
上传实例
--  作者:有点甜
--  发布时间:2017/10/31 8:50:00
--  
回复3楼,报什么错?有什么问题?
--  作者:yangwenghd
--  发布时间:2017/11/3 22:02:00
--  
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "筛选" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[类别] = \'" & dr("流程") & "\'"
        Case 1
            Filter = "[类别] = \'" & dr("流程") & "\' And [标题] = \'" & dr("标题") & "\'"
        Case 2
            Filter = "[类别] = \'" & dr("流程") & "\' And [标题] = \'" & dr("标题") & "\' And [标题] = \'" & dr("标题") & "\'"
    End Select
End If
Tables("投资学习窗口_Table1").Filter = Filter
就是在双击树筛选后 投资学习窗口_Table1 不能筛选出行 感谢 感谢 

--  作者:有点蓝
--  发布时间:2017/11/3 22:09:00
--  
为什么有2个标题?

Filter = "[类别] = \'" & dr("流程") & "\' And [标题] = \'" & dr("标题") & "\' And [标题] = \'" & dr("标题") & "\'"

--  作者:yangwenghd
--  发布时间:2017/11/3 22:35:00
--  
感谢 感谢 是我失误了 ,感谢了 谢谢