DataTables("总账").StopRedraw
DataTables("总账").DataRows.Clear
For Each r As Row In Tables("项目").Rows
For Each r0 As String In r("列表项目").split((vblf))
Dim r1 As Row = Tables("总账").AddNew
r1("科目名称") = r("值")
r1("账户性质") = r0
Next
Next
DataTables("总账").ResumeRedraw
For i As Integer =Tables("总账").Rows.Count -1 To 0 Step -1
For Each r As Row In Tables(Tables("总账").Rows(i)("账户性质").trim("",split(vblf)))
Dim r0 As Row = Tables("总账").AddNew
r0("账户名称") = r("账户名称")
r0("账户余额") = r("账户余额")
r0("账户性质") = Tables("总账").Rows(i)("账户性质")
r0("科目名称") = Tables("总账").Rows(i)("科目名称")
Next
Next
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("总账", "科目名称|账户性质|账户名称")
tr.Nodes.Insert("加载所有数据",0)
加好友 
发短信
Post By：2017/5/31 7:12:00 [显示全部帖子]
此主题相关图片如下：1233.png
