- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]目录树生成求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123593)
-- 发布时间：2018/8/18 18:19:00
-- [原创]目录树生成求助
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
Next
窗口事件
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)
Next
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
Next
希望解决的问题：
1.用窗口控件选择ZTBH后，目录树只生成该单位的科目数据（现在生成目录树没有选择到单位造成重复）
2.用KMLB列的科目性质替换Dim rts() As String = {"全部","资产","负债","权益","成本","损益(收)","损益(支)"} 代码
此主题相关图片如下：目录树.png
此主题相关图片如下：目录树.png-- 发布时间：2018/8/19 9:03:00
--
1、加上条件，如：dt.Select("单位=‘某某单位’","ZTBH")
2、没看懂你的意思，具体上传实例说明
-- 发布时间：2018/8/19 11:56:00
-- [原创]
单位设置窗口，通过选择账套编号生成该单位所属科目的目录树，另外设置KMLB列的代码替换Dim rts() As String = {"全部","资产","负债","权益","成本","损益(收)","损益(支)"} 代码
[此贴子已经被作者于2018/8/19 11:56:45编辑过]
-- 发布时间：2018/8/19 11:57:00
--
实例
[此贴子已经被作者于2018/8/19 11:58:48编辑过]
-- 发布时间：2018/8/19 16:23:00
--
实例
-- 发布时间：2018/8/19 16:32:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
关闭浏览器的极速模式。上传时多试几次
-- 发布时间：2018/8/20 9:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1_201808200917.zip |
数据初始窗口
1.用窗口控件选择ZTBH后，目录树只生成该单位的科目数据（现在生成目录树没有选择到单位造成重复）
2.用SJGL表中的KMLB列的科目性质替换 Dim rts() As String = {"全部","资产","负债","权益","成本","损益(收)","损益(支)"} 类型代码
[此贴子已经被作者于2018/8/20 9:21:26编辑过]