|
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dic As new Dictionary(Of String,Winform.TreeNode)
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 编码,名称,上级编码 From {组织机构}"
dt = cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
If dr.IsNull("上级编码") = False Then
If dic.ContainsKey(dr("上级编码")) Then
pd = dic(dr("上级编码"))
nd = pd.Nodes.add(dr("编码"),dr("编码")+dr("名称"))
dic.add(dr("编码"),nd)
End If
Else
nd = trv.Nodes.add(dr("编码"),dr("名称"))
dic.add(dr("编码"),nd)
End If
If dr("分支机构") = True
nd.BackColor= color.Gainsboro
nd.ForeColor = color.white
End If
Next
|
加好友 
发短信
Post By：2011/9/22 9:39:00 [显示全部帖子]
