- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这种目录树形式如何实现 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6399)
-- 发布时间：2010/3/30 11:15:00
-- [求助]这种目录树形式如何实现
此主题相关图片如下：snap1.jpg
目录树前面的数据是一列的，后面的内容是另一列的，也就是说如何将两列的内容作为一个目录树节点显示
如用下图中的数据生成如上图的目录树
此主题相关图片如下：snap1.jpg
[此贴子已经被作者于2010-3-30 12:17:06编辑过]
-- 发布时间：2010/3/30 11:27:00
--
给个项目例子，这个难不倒大家的····
-- 发布时间：2010/3/30 11:43:00
--
自己一个一个节点加就行
-- 发布时间：2010/3/30 12:10:00
--
以下是引用狐狸爸爸在2010-3-30 11:43:00的发言：
自己一个一个节点加就行
自己一个一个节点加就行
他爹，没搞懂哦，如何一个一个的加哟，我要的是用两列中的内容作为一个节点，看火帮助没搞懂
-- 发布时间：2010/3/30 12:18:00
--
Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each r As Row In Tables("XXX").Rows
Dim v As string = r("yyy") & r("xxx")
tr.Nodes.add(v,v)
Next
-- 发布时间：2010/3/30 12:29:00
--
If Tables("列类型").Cols.Contains("合成") Then
Else
DataTables("列类型").DataCols.Add("合成", GetType(String), "[列类型] + \' \' + [SQL]")
End If
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateDataTree("列类型","合成")
-- 发布时间：2010/3/30 13:06:00
--
还可以这样：
Forms("窗口1").Controls("TreeView1").Nodes.Clear
If Tables("表A").Cols.Contains("mlsh") Then
for each dr as DataRow in DataTables("表A").DataRows
dr("mlsh") = "【" & dr("第一列") & "】" & dr("第二列")
next
Forms("窗口1").Controls("TreeView1").BuildDataTree("表A", "","mlsh")
else
DataTables("表A").DataCols.Add("mlsh", GetType(string),50)
for each dr as DataRow in DataTables("表A").DataRows
dr("mlsh") = "【" & dr("第一列") & "】" & dr("第二列")
next
Forms("窗口1").Controls("TreeView1").BuildDataTree("表A", "","mlsh")
End If
-- 发布时间：2010/3/30 14:34:00
--
谢谢几位！！！