- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 目录树列问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67918)
-- 发布时间：2015/5/6 10:55:00
-- 目录树列问题
如下图，我用目录树在窗口中做的可多选的下拉框，下拉框取值用的这段代码，可是用这段代码取值会把多种品类都取值进去，如何能让取值后，每一个选项只出现一个候选值。
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("供货商","经营品类")
此主题相关图片如下：20150506104959.png
-- 发布时间：2015/5/6 10:58:00
--
那要编码生成目录树才可以.请把例子发上来
[此贴子已经被作者于2015/5/6 10:58:18编辑过]
-- 发布时间：2015/5/6 11:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:系统.rar |
-- 发布时间：2015/5/6 11:08:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.CreateTree("供货商","经营品类", ",")
-- 发布时间：2015/5/6 11:11:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr As DataRow In DataTables("供货商").DataRows
If dr.IsNull("经营品类")=False Then
Dim ns As String() = dr("经营品类").split(",")
For Each s As String In ns
If trv.Nodes.Contains(s)=False Then
trv.Nodes.Add(s)
End If
Next
End If
Next
-- 发布时间：2015/5/6 11:24:00
--
回复“大红袍”和“Bin”:
大红袍的代码也可以实现效果，但是例如“泳圈，泳装，泳镜”，只可以把第一项列出来，后面的不会作为选项出来
Bin版的代码可以实现，非常完美。
谢谢二位