以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于TreeView  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105681)

--  作者:做自己
--  发布时间:2017/8/24 9:56:00
--  关于TreeView
Dim fenLei As WinForm.ComboBox = e.Form.Controls("CboFenLei")
Dim s As String  = DataTables("存货信息表").GetComboListString("存货分类名称")
fenLei.ComboList =s
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("类型表", "类型")
我想就是用s来建立目录树,应该怎么写代码呢?就是获取存货信息表中存货分类名称的不重复列,然后创建目录树

--  作者:有点甜
--  发布时间:2017/8/24 10:06:00
--  
Dim fenLei As WinForm.ComboBox = e.Form.Controls("CboFenLei")
Dim s As String  = DataTables("存货信息表").GetComboListString("存货分类名称")
fenLei.ComboList = s
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
For Each ss As String In s.split("|")
    Dim nd As WinForm.TreeNode = tv.nodes.Add(ss)
Next