Dim tv As WinForm.TreeView
tv = e.Form.Controls("TreeView1")
Dim Arys1 As List(Of String())
Arys1 = DataTables("流水账").GetValues("科目表_一级|科目表_二级|科目表_三级|科目表_四级|科目表_五级")
With DataTables ("临时目录树表")
.StopRedraw
.DataRows.Clear
For Each Ary1 As String() In Arys1
Dim dr As DataRow = DataTables("临时目录树表").AddNew
dr("一级科目") = Ary1(0)
dr("二级科目") = Ary1(1)
dr("三级科目") = Ary1(2)
dr("四级科目") = Ary1(3)
dr("五级科目") = Ary1(4)
Next
Dim Arys2 As List(Of String())
Arys2 = DataTables("流水账").GetValues("对方科目_一级|对方科目_二级|对方科目_三级|对方科目_四级|对方科目_五级")
For Each Ary2 As String() In Arys2
Dim dr As DataRow = DataTables("临时目录树表").AddNew
dr("一级科目") = Ary2(0)
dr("二级科目") = Ary2(1)
dr("三级科目") = Ary2(2)
dr("四级科目") = Ary2(3)
dr("五级科目") = Ary2(4)
Next
.Save
.ResumeRedraw
End With
tv.BuildTree("临时目录树表", "一级科目|二级科目|三级科目|四级科目|五级科目")
[此贴子已经被作者于2022/6/26 19:17:58编辑过]
加好友 
发短信
Post By：2022/6/26 19:17:00 [只看该作者]
