- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 奇怪的问题，关于目录树 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47223)
-- 发布时间：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
-- 发布时间：2014/3/6 15:03:00
--
额，我知道原因了，原来是在品牌大类这列的数据全部要填写上“所有品牌”这个数据才行。。。怎么会这么奇怪的？
-- 发布时间：2014/3/6 15:05:00
--
因为你是根据两个条件判断的
[此贴子已经被作者于2014-3-6 15:11:09编辑过]
-- 发布时间：2014/3/6 15:31:00
--
那我的所有品牌这个是做为最项级的分类，然后根据品牌列里的名称来判断的话，代码应该怎样写呢？另外要是默认展开到下级分类的，代码又该怎样写呢？
-- 发布时间：2014/3/6 15:40:00
--
你现在的代码就是如此啊.
展开可以利用 node.ExpandAll