主题：根据数据库里面的信息实现目录树

1、实现目录树源码：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()''停止绘制目录树
tr.Nodes.Clear
'tr.Nodes.Add("全部")
For Each dr As DataRow In dt.datarows
    If dr.IsNull("superName") Then
   'If dr("organName") = _UserOrgan Then
        nd = tr.Nodes.Add(dr("organName"),dr("organName"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw() ''恢复绘制目录树

老师，我的organlist设置了分页加载，因此初始加载为5，但是，我又需要实现根据数据库里面的organlist实现目录树？

2、表格的指定行高亮，貌似初始默认第一行，可以实现鼠标放上去才高亮，否则不必要高亮么？也没有初始默认高亮的行