窗口筛选树统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口筛选树统计问题

共有4161人关注过本帖树形打印复制链接主题：窗口筛选树统计问题

有点蓝

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

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/5/10 15:27:00 [只看该作者]

如果以后二，三等也有子项，还得改代码？

jhxb8821

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

加好友

发短信

等级：三尾狐帖子：649 积分：4739 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/5/10 17:47:00 [只看该作者]

老师，也这样改，对吧

有点蓝

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

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/5/11 8:37:00 [只看该作者]

增加一个辅助列判断，以后就不用改代码了

jhxb8821

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

加好友

发短信

等级：三尾狐帖子：649 积分：4739 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/5/11 20:56:00 [只看该作者]

i += drs.Count

rt.Cells(i, 0).Text = idx

idx += 1

i += 1

类别字典新增一列"是否有子项"

If n("是否有子项") = "无子项" Then

i += 1

End If

老师，用 n("是否有子项") ，还是 lst("是否有子项") ？

还是这样写：

If Tables("类别字典").Rows("是否有子项") = "无子项" Then

i += 1

End If

[此贴子已经被作者于2024/5/11 21:49:44编辑过]

jhxb8821

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

加好友

发短信

等级：三尾狐帖子：649 积分：4739 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/5/12 5:16:00 [只看该作者]

老师，昨晚又想了一下，感觉这样修改更妥一些：

首先，类别字典新增一列"是否有子项"。

其次，将这句代码Dim lst As List(Of String) = DataTables("类别字典").GetValues("类号|材料类别", "", "排序号1")改为：Dim lst As List(Of String) = DataTables("类别字典").GetValues("类号|材料类别|是否有子项", "", "排序号1")

最后。改为

If n(2) = "无子项" Then

i += 1

End If

老师，这样写对吧，这个代码还未在系统里验证，

[此贴子已经被作者于2024/5/12 10:50:27编辑过]