Foxtable(狐表) → 用户栏目 → 专家坐堂 → 奇怪的问题，关于目录树


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

主题：奇怪的问题，关于目录树
帅哥哟，离线，有人找我吗？
kinggen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00 		奇怪的问题，关于目录树  发帖心情 Post By：2014/3/6 15:00:00 [只看该作者]

代码是在全程上抄的，数据是取自品牌列，但只认第1行的数据，第2行以后的都取不到数据，请问是怎么回事？

数据表那的品牌有关的也添加了二列，一个是品牌大类，第二个是品牌列


图片点击可在新窗口打开查看此主题相关图片如下：gaollg0.gif
图片点击可在新窗口打开查看


代码：
加载窗口执行：
Dim trv As WinForm.TreeView = e.Form.Controls("pp")
trv.BuildTree("商品资料", "品牌大类|品牌")


目录树事件代码：
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("品牌") & "'"
    End Select
End If
Tables("商品资料").Filter = Filter
 回到顶部
帅哥哟，离线，有人找我吗？
KingGen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00 		  发帖心情 Post By：2014/3/6 15:03:00 [只看该作者]

额，我知道原因了，原来是在品牌大类这列的数据全部要填写上“所有品牌”这个数据才行。。。怎么会这么奇怪的？

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/6 15:05:00 [只看该作者]

因为你是根据两个条件判断的 
[此贴子已经被作者于2014-3-6 15:11:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
KingGen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00 		  发帖心情 Post By：2014/3/6 15:31:00 [只看该作者]

那我的所有品牌这个是做为最项级的分类，然后根据品牌列里的名称来判断的话，代码应该怎样写呢？另外要是默认展开到下级分类的，代码又该怎样写呢？

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/6 15:40:00 [只看该作者]

你现在的代码就是如此啊.

展开可以利用 node.ExpandAll 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询