以文本方式查看主题 - 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 |