[原创]目录树生成求助 - 专家坐堂 - 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

1、加上条件，如：dt.Select("单位=‘某某单位’","ZTBH")

2、没看懂你的意思，具体上传实例说明

单位设置窗口，通过选择账套编号生成该单位所属科目的目录树，另外设置KMLB列的代码替换Dim rts() As String = {"全部","资产","负债","权益","成本","损益(收)","损益(支)"} 代码

[此贴子已经被作者于2018/8/19 11:56:45编辑过]

实例

[此贴子已经被作者于2018/8/19 11:58:48编辑过]

关闭浏览器的极速模式。上传时多试几次

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1_201808200917.zip

数据初始窗口

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

2.用SJGL表中的KMLB列的科目性质替换 Dim rts() As String = {"全部","资产","负债","权益","成本","损益(收)","损益(支)"} 类型代码

[此贴子已经被作者于2018/8/20 9:21:26编辑过]

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