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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我想做一个页面集合的通用会计科目目录树，结果没有目录树显示

共有6076人关注过本帖树形打印复制链接主题：我想做一个页面集合的通用会计科目目录树，结果没有目录树显示

chnfo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2247 积分：18514 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/3/14 19:00:00 [显示全部帖子]

完全可以照搬帮助里的“用递归函数生成会计科目目录树”

1、没有必要将资产、负债、所有者权益、损益四类财务科目分别设表

2、还没有定义函数－－AddChildren，没有定义的函数是无法引用的

3、如果一定要分开，建议使用radiobutton，不用TabControl。

4、建议精简代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理31402.zip

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

chnfo

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2247 积分：18514 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/3/14 19:24:00 [显示全部帖子]

就算是归类，四大财务报表的科目可以一个数据库的表来定义，这样扩展性和维护性更好一些

包括编号、类型（资产、负债、所有的者权益、损益）、名称

另外，建议尽量少用窗口，你的窗口有点太多了，一个很小的功能也要使用窗口，不太合适。因为一个弹窗就表示用户要移动鼠标去关闭，体验不好。

如果一定要使用TabControl也可以，就是要为每个分页夹定义名称，你只定义了它们的标题（如资产、负债、……），并没有定义名称，这样是用不了。－－－注意标题和名称的区别

[此贴子已经被作者于2021/3/14 19:28:31编辑过]

chnfo

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2247 积分：18514 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/3/14 20:45:00 [显示全部帖子]

不必这么麻烦

在窗口中增加一个Button3，事件代码：

Dim tc As WinForm.TabControl = e.Form.Controls("TabControl1")

Dim dt As DataTable = DataTables(tc.SelectedPage.Name)

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView" & (tc.SelectedIndex + 1))

Dim nd As WinForm.TreeNode

tr.StopRedraw()

tr.Nodes.Clear

For Each dr As DataRow In dt.Select("","科目代码")

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

nd = tr.Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"))

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

End If

tr.ResumeRedraw()

窗口的afterload代码

e.Form.Controls("Button3").PerformClick

TabControl的SelectedIndexChanged代码

e.Form.Controls("Button3").PerformClick

下载信息 [文件大小：下载次数： ]
点击浏览该文件:会计科目选择窗口.zip

另外，如果4个树的节点双击事件如果完全一样，可以再增加一个button4，将4个树的节点事件放在一起维护

chnfo

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2247 积分：18514 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/3/14 20:54:00 [显示全部帖子]

另外，你的窗口的更新目录树只是在第一个分页夹中，但貌似它是要去更新负债的树，更新目录树和查找按钮所对应的界面是不对的

更新目录树和查找功能，是针对具体的树去更新和查找，你的按钮是更新全部的4个树、查找4个树的节点，这个应当是有问题的。

更新目录树按钮一般来说，没有必要，因为切换分页夹的时候，会重新构造树。如果真要更新，切换一下分页夹就行了。

[此贴子已经被作者于2021/3/14 20:56:22编辑过]

chnfo

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2247 积分：18514 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/3/14 20:57:00 [显示全部帖子]

不是打开，是直接把窗口导入到你的项目里就行了。管理项目－窗口管理－会计科目－设计窗口－文件－从文件生成，选择传的窗口文件就可以了

[此贴子已经被作者于2021/3/14 20:58:18编辑过]

chnfo

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2247 积分：18514 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/3/14 21:15:00 [显示全部帖子]

管理项目－内部函数，增加函数：AddChildren

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
For Each dr As DataRow In dt.Select("","科目代码")
    Dim km As String = dr("科目代码")
    If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + 2 Then
        Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("科目名称"))
        Functions.Execute("AddChildren",cd,dt)
    End If
Next

你的代码里要用这个函数，你又不定义，咋用啊？

你都不往卡里存钱，到了银行说要取1万块，JC一会就来了

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

chnfo

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2247 积分：18514 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/3/14 21:22:00 [显示全部帖子]

当然了，你刷新目录树的代码是错的。

而且，这个按钮根本没有必要设置

如果一定要设，就把这个放在按钮事件中

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()

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

下一主题 >> << 上一主题

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