|
Dim tr As WinForm.TreeView = Forms("窗口").Controls("TreeView1")
Dim nd0,nd1,nd2 As WinForm.TreeNode
Dim fs As Integer
tr.Nodes.Clear '清空原来的节点::::::::::
For Each dr As DataRow In DataTables("单位树").Select("","标题id")
If dr("标题id") <> "" Then
fs = dr("节点")
Select Case fs
Case 0
nd0 = tr.Nodes.Add(Rand.NextString(10),dr("标题"))
Case 1
nd1 = nd0.Nodes.Add(Rand.NextString(10),dr("标题"))
Case 2
nd2 = nd1.Nodes.Add(Rand.NextString(10),dr("标题"))
End Select
End If
Next
|
加好友 
发短信
Post By：2010/10/21 21:26:00 [显示全部帖子]
