以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68733)

--  作者:seal51
--  发布时间:2015/5/23 15:56:00
--  筛选树

窗口中如何做只有一级的筛选树, 像这个功能, 用什么做好, 筛选树, listbox???

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150523155228.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2015/5/23 15:56:00
--  
筛选树也可以
--  作者:seal51
--  发布时间:2015/5/23 16:09:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv
.BuildTree("订单", "产品")
trv
.Nodes.Insert("显示所有行",0)

 

 

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("产品") & "\'"
    End Select
End If
Tables("订单").Filter = Filter

 

 

代码这样写,可以达到目的, 不过是这样写吗


--  作者:Bin
--  发布时间:2015/5/23 16:11:00
--  
是的