[原创]目录树生成求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1.套用递归函数解决了明细科目归集的问题

内部函数

Dim nd As WinForm.TreeNode = args(0)

Dim dt As DataTable = args(1)

For Each dr As DataRow In dt.Select("","ZTBH")

Dim km As String = dr("KMBH")

If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + 3 Then

Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("KMMC"))

Functions.Execute("AddChildren",cd,dt)

End If

窗口事件

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

Dim rts() As String = {"全部","资产","负债","权益","成本","损益(收)","损益(支)"}

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("SJGL")

tr.StopRedraw()

tr.Nodes.Clear

For Each rt As String In rts

tr.Nodes.Add(rt)

For Each dr As DataRow In dt.Select("","KMBH")

If dr.IsNull("KMBH") = False AndAlso dr("KMBH").Length = 4 Then

Dim i As Integer = CInt(dr("KMBH").Substring(0,1))

nd = tr.Nodes(i).Nodes.Add(dr("KMBH"),dr("KMBH") & " " & dr("KMMC"))

Functions.Execute("AddChildren",nd,dt)

End If

希望解决的问题：

1.用窗口控件选择ZTBH后，目录树只生成该单位的科目数据（现在生成目录树没有选择到单位造成重复）

2.用KMLB列的科目性质替换Dim rts() As String = {"全部","资产","负债","权益","成本","损益(收)","损益(支)"} 代码
图片点击可在新窗口打开查看

此主题相关图片如下：目录树.png

主题：[原创]目录树生成求助