Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
BuildDataTree(DataTable, Filter, Column1, Column2, Column3...)
DataTableName: 数据表名
DataTable: 数据表
Filter: 过滤条件
Column1,Column3,Column3:数据列名称,用这些列的数据生成目录树,可以指定多列。
实例:
Sorry!没有说清楚,误解。在目录树中,知道目录名称变量,如何判断此目录树中具有相同名称的那项来被选中?谢了!不知是否说清楚没。
这个是针对二级的目录树(大家可以试一试) : 多级的还没想通啊~ 呵呵 请高手赐教::::::::
Dim n as integer = e.Node.FullPath.Split("\").length
Dim Vals() As String = e.Node.FullPath.Split("-:special:1:-)
Dim tr As WinForm.TreeView
tr = Forms("窗口2").Controls("TreeView1")
for i as integer = 0 to tr.Nodes.count-1
if tr.Nodes(i).text = Vals(0)
n = i+1
exit for
end if
next
If e.Node.Level > 0
for ii as integer = 0 to tr.Nodes(n-1).Nodes.count-1
if tr.Nodes(n-1).Nodes(ii).checked = true '
if tr.Nodes(n-1).checked = false
tr.Nodes(n-1).checked = true
exit for
else
return
end if
else
if tr.Nodes(n-1).checked = true
tr.Nodes(n-1).checked = false
end if
end if
next
end if
说明: 一级复选框打勾对二级无效, 二级复选框只要有一个打勾,一级框自动勾上,当二级框全部取消后,一级框也自动取消。
不用这么复杂,5行代码就够了:
If e.Node.Checked and e.Node.Level > 0 Then
If e.Node.ParentNode.Checked = False Then
e.Node.ParentNode.Checked = True
End If
End If