再下一级不晓得咋个写了
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("类目")
tr.StopRedraw()
tr.Nodes.Clear
For Each dr As DataRow In dt.datarows
nd = tr.Nodes.Add(dr("类名"),dr("类名"))
Dim dt1 As DataTable = DataTables("档案一类")
Dim drs1 As List(of DataRow)
drs1 = dt1.Select("[类名] = '" & nd.name & "'")
For Each dr1 As DataRow In drs1
Dim cd1 As Winform.TreeNode = nd.Nodes.Add(dr1("一类名称"),dr1("一类名称"))
Next
Dim dt2 As DataTable = DataTables("档案二类")
Dim drs2 As List(of DataRow)
drs2 = dt2.Select("[一类名称] = '" & nd.name & "'")
For Each dr2 As DataRow In drs2
Dim cd2 As Winform.TreeNode = nd.Nodes.Add(dr2("二类名称"),dr2("二类名称"))
Next
Next
tr.ResumeRedraw()
貌似不执行