treeview控件實現

僅供參考：treeview控件實現

Try
            Dim AstrSql As String
            Dim Acmd As New SqlCommand
            Dim Aadp As New SqlDataAdapter
            Dim Adst As New DataSet

            '判断是否已打开数据库，如果数据库连接已关闭就打开
            If Gcon.State = ConnectionState.Closed Then
                '从配置文件中读取连接数据库的字符串
                Gcon.ConnectionString = System.Configuration.ConfigurationSettings.AppSettings("VconStr")
                Gcon.Open()
            End If

            '组织查询工号的sql字符串
            AstrSql = "select 工号,姓名 from 员工 where not ltrim(工号) is null and 状态='在職'"
            Acmd.CommandText = AstrSql
            Acmd.Connection = Gcon
            Dim Ared As SqlDataReader = Acmd.ExecuteReader

            '清除所有节点
            Me.treeRenShi.Nodes(0).Nodes.Clear()
            '循环所有工号
            Dim i As Integer = 0
            While Ared.Read
                '定义树节点
                Dim GHnode As New TreeNode
                GHnode.ID = Trim(Ared("工号"))
                '使节点文本同时显示员工工号和姓名
                GHnode.Text = Trim(GHnode.ID) & " " & Trim(Ared("姓名"))
                '为treeview增加节点
                Me.treeRenShi.Nodes(0).Nodes.Add(GHnode)
                Me.treeRenShi.Nodes(0).Nodes(i).ImageUrl = "Image/Beijing/BeBox Watcher.ico"
                i = i + 1
            End While
            Ared.Close()

            '使根节点目录下的所有字节点展开
            Me.treeRenShi.Nodes(0).Expanded = True

            '组织查询工号的sql字符串
            AstrSql = "select 工号,姓名 from 员工 where not ltrim(工号) is null and 状态='離職'"
            Acmd.CommandText = AstrSql
            'Acmd.Connection = Gcon
            Ared = Acmd.ExecuteReader

            '清除所有节点
            Me.treeRenShi.Nodes(1).Nodes.Clear()
            '循环所有工号
            i = 0
            While Ared.Read
                '定义树节点
                Dim GHnode As New TreeNode
                GHnode.ID = Trim(Ared("工号"))
                '使节点文本同时显示员工工号和姓名
                GHnode.Text = Trim(GHnode.ID) & " " & Trim(Ared("姓名"))
                '为treeview增加节点
                Me.treeRenShi.Nodes(1).Nodes.Add(GHnode)
                Me.treeRenShi.Nodes(1).Nodes(i).ImageUrl = "Image/Beijing/BeBox Watcher.ico"
                i = i + 1
            End While
            Ared.Close()
            '使根节点目录下的所有字节点展开
            Me.treeRenShi.Nodes(1).Expanded = False
            Ared.Close()
            Gcon.Close()
        Catch ex As Exception
            Me.Response.Write("錯誤提示：" & ex.Message)
        End Try