呃,代码这样写吧,这棵树也太特殊了点,不能用常规方法生成,还好,不用用递归。
Dim tv As WinForm.TreeView = Forms("目录树窗口").Controls("TreeView1") tv.Nodes.Clear
Dim level_1 As WinForm.TreeNode Dim level_2 As WinForm.TreeNode
For Each dr As DataRow In DataTables("功能分类2012年").DataRows If dr("类").Trim <> "" Then level_1 = tv.Nodes.Add(dr("_Identify"), dr("类") & dr("科目名称")) Else If dr("款").Trim <> "" Then level_2 = level_1.Nodes.Add(dr("_Identify"), dr("款") & dr("科目名称")) Else If dr("项").Trim <> "" Then level_2.Nodes.Add(dr("_Identify"), dr("项") & dr("科目名称")) End If Next
|