以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 根据目录树的text进行筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65518)
|
-- 作者:新航程小何
-- 发布时间:2015/3/17 16:52:00
-- 根据目录树的text进行筛选
各位老师,我想实现通过目录树的text值进行筛选,具体实现的功能如截图,
图中的北京华联和西太华都售卖肉类和水果,我现在想分别筛选出两个超市的肉类清单,可是我现在只能筛选出第一级,第二级名称是一样的,所以请老师帮助一下
If e.Node.Text <> "" Then\'标题的值 Select Case e.Node.text Case "西太华" Tables("清单_Table2").DataSource = DataTables("西太华清单") Case "北京华联" Tables("清单_Table2").DataSource = DataTables("北京华联清单") End Select End If
此主题相关图片如下:qq截图20150317164633.png

|
-- 作者:Bin
-- 发布时间:2015/3/17 17:06:00
--
不明白你的意思.
|
-- 作者:有点甜
-- 发布时间:2015/3/17 17:07:00
--
If e.Node.FullName.Contains("西太华") Then Tables("清单_Table2").DataSource = DataTables("西太华清单") Else If e.Node.FullName.Contains("北京华联") Then Tables("清单_Table2").DataSource = DataTables("北京华联清单") End If Dim filter As String Select Case e.Node.Level Case 0 filter = "" Case 1 Select Case e.node.Text Case "肉类清单" filter = "种类 = \'肉类\'" Case "水果清单" filter = "种类 = \'水果\'" End Select End Select Tables("清单_Table2").filter = filter
|
-- 作者:新航程小何
-- 发布时间:2015/3/17 17:11:00
--
老师,我的意思简单说就是,当在目录树中选中“北京华联”的时候,筛选北京华联的售货清单,紧接着选择“肉类”就筛选出“北京华联“的”肉类“售货清单
|
-- 作者:有点甜
-- 发布时间:2015/3/17 17:11:00
--
就是这个意思啊
|
-- 作者:新航程小何
-- 发布时间:2015/3/17 17:18:00
--
恩恩,甜老师,我在给bin老师解释,可能表达的不清楚,谢谢
|