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
|