我想做一个页面集合的通用会计科目目录树，结果没有目录树显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

四大会计科目方在一个数据表中不好查找，分类摆放最好，这个你不用多言，都说了我是专业会计，清楚知道需要怎样的功能，我要软件服务于人，不是人将就怎样写代码方便。

增加这么多窗口是因为有些表是隐藏的，不能在表中直接添加，要添加只能在弹窗中添加，我给每个页面写了名称了，还是报错：

此主题相关图片如下：0101.png

Forms("会计科目").Controls("TabControl1").SelectedPage = e.sender.SelectedPage

If e.sender.SelectedPage.text = "资产类" Then

Forms("会计科目").Controls("TabControl1").SelectedPage = Forms("会计科目").Controls("TabControl1").TabPages("资产类")

Dim tr1 As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd1 As WinForm.TreeNode

Dim dt1 As DataTable = DataTables("资产")

tr1.StopRedraw()

tr1.Nodes.Clear

For Each dr1 As DataRow In dt1.Select("","科目代码")

If dr1.IsNull("科目代码") = False AndAlso dr1("科目代码").Length = 4 Then

Dim i1 As Integer = CInt(dr1("科目代码").Substring(0,1))

nd1 = tr1.Nodes(i1).Nodes.Add(dr1("科目代码"),dr1("科目代码") & " " & dr1("科目名称"))

Functions.Execute("AddChildren",nd1,dt1)

End If

tr1.ResumeRedraw()

ElseIf e.sender.SelectedPage.text = "负债类" Then

Forms("会计科目").Controls("TabControl1").SelectedPage = Forms("会计科目").Controls("TabControl1").TabPages("负债类")

Dim tr2 As WinForm.TreeView = e.Form.Controls("TreeView2")

Dim nd2 As WinForm.TreeNode

Dim dt2 As DataTable = DataTables("负债")

tr2.StopRedraw()

tr2.Nodes.Clear

For Each dr2 As DataRow In dt2.Select("","科目代码")

If dr2.IsNull("科目代码") = False AndAlso dr2("科目代码").Length = 4 Then

Dim i2 As Integer = CInt(dr2("科目代码").Substring(0,1))

nd2 = tr2.Nodes(i2).Nodes.Add(dr2("科目代码"),dr2("科目代码") & " " & dr2("科目名称"))

Functions.Execute("AddChildren",nd2,dt2)

End If

tr2.ResumeRedraw()

ElseIf e.sender.SelectedPage.text = "所有者权益类" Then

Forms("会计科目").Controls("TabControl1").SelectedPage = Forms("会计科目").Controls("TabControl1").TabPages("所有者权益类")

Dim tr3 As WinForm.TreeView = e.Form.Controls("TreeView3")

Dim nd3 As WinForm.TreeNode

Dim dt3 As DataTable = DataTables("所有者权益")

tr3.StopRedraw()

tr3.Nodes.Clear

For Each dr3 As DataRow In dt3.Select("","科目代码")

If dr3.IsNull("科目代码") = False AndAlso dr3("科目代码").Length = 4 Then

Dim i3 As Integer = CInt(dr3("科目代码").Substring(0,1))

nd3 = tr3.Nodes(i3).Nodes.Add(dr3("科目代码"),dr3("科目代码") & " " & dr3("科目名称"))

Functions.Execute("AddChildren",nd3,dt3)

End If

tr3.ResumeRedraw()

ElseIf e.sender.SelectedPage.text = "损益类" Then

Forms("会计科目").Controls("TabControl1").SelectedPage = Forms("会计科目").Controls("TabControl1").TabPages("损益类")

Dim tr4 As WinForm.TreeView = e.Form.Controls("TreeView3")

Dim nd4 As WinForm.TreeNode

Dim dt4 As DataTable = DataTables("损益")

tr4.StopRedraw()

tr4.Nodes.Clear

For Each dr4 As DataRow In dt4.Select("","科目代码")

If dr4.IsNull("科目代码") = False AndAlso dr4("科目代码").Length = 4 Then

Dim i4 As Integer = CInt(dr4("科目代码").Substring(0,1))

nd4 = tr4.Nodes(i4).Nodes.Add(dr4("科目代码"),dr4("科目代码") & " " & dr4("科目名称"))

Functions.Execute("AddChildren",nd4,dt4)

End If

tr4.ResumeRedraw()

End If

[此贴子已经被作者于2021/3/14 21:05:59编辑过]

主题：我想做一个页面集合的通用会计科目目录树，结果没有目录树显示