以文本方式查看主题 - 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=8755) |
||||
-- 作者:唐尸三摆手 -- 发布时间:2010/12/5 -- 关于treeview的难题 有这样一个物料表
父编码 子编码 a a1 b b1 c c1 a1 aa1 b1 bb1 c1 cc1 aa1 d1
请教如何能做成下面结构,在窗口的目录树中展现(treeview)
-a - a1 -aa1 -d1 -b -b1 -bb1 -c -c1 -cc1 |
||||
-- 作者:狐狸爸爸 -- 发布时间:2010/12/5 0:03:00 -- 开动脑筋,不难的。 |
||||
-- 作者:唐尸三摆手 -- 发布时间:2010/12/5 0:06:00 -- 提供下思路好吗,这两天有点一根筋了 |
||||
-- 作者:mr725 -- 发布时间:2010/12/5 2:30:00 -- 要是这样的规则: 父码 子码 a a1 b b1 c c1 a1 aa1 b1 bb1 c1 cc1 aa1 aaa1 【 你原来时 d1 】
可以这样:
Dim s,s1,s2,s3 As String For i0 As Integer = 0 To s1.split("|").length-1 Dim tr As WinForm.TreeView = Forms("目录树").Controls("TreeView1") For i As Integer = 0 To s2.split("|").length-1
结果这样对吗:
此主题相关图片如下:treeview.jpg [此贴子已经被作者于2010-12-5 2:40:29编辑过]
|
||||
-- 作者:狐狸爸爸 -- 发布时间:2010/12/5 7:41:00 -- 呵呵,我也来一个,我这个对于名称没有任何要求的:
Dim lst1 As List(of String) = DataTables("表A").GetUniqueValues("","第一列")
|
||||
-- 作者:易服 -- 发布时间:2010/12/5 10:57:00 -- 收藏 |
||||
-- 作者:狐狸爸爸 -- 发布时间:2010/12/5 11:33:00 -- 以下是引用易服在2010-12-5 10:57:00的发言:
收藏
呵呵,不用收藏的,关键是把他看明白。 |
||||
-- 作者:mr725 -- 发布时间:2010/12/5 12:02:00 -- 呵呵,老大就是老大,您以前有过类似的代码,当时,我是没有看明白,现在再看,有点意思了,呵呵。。。 |
||||
-- 作者:mr725 -- 发布时间:2010/12/5 15:18:00 -- 另外,4楼代码在生成目录树前,要对 s2 进行一下排序,否则会乱了。。。。 呵呵 |
||||
-- 作者:唐尸三摆手 -- 发布时间:2010/12/6 9:35:00 -- 以下是引用狐狸爸爸在2010-12-5 7:41:00的发言:
呵呵,我也来一个,我这个对于名称没有任何要求的:
Dim lst1 As List(of String) = DataTables("表A").GetUniqueValues("","第一列")
老大,附件的文件增加一行
aa1 d2 就不行了的[此贴子已经被作者于2010-12-6 9:35:38编辑过]
|