- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [免费分享]给狐表的递归教程加上死循环判断，防止死递归导致内存溢出，软件退出。建议官方整合到帮助文档里，类似于增强版例子 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=174632)
-- 发布时间：2022/1/24 11:45:00
-- [免费分享]给狐表的递归教程加上死循环判断，防止死递归导致内存溢出，软件退出。建议官方整合到帮助文档里，类似于增强版例子
(快速浏览杰哥分享过的所有经验汇总，点击跳转
）
此主题相关图片如下：1.png
总体思路：
基于官方的递归文档案例，适当修改代码，可以判断出递归死循环的路线，及时停止（思路来自最新版Bom目录树玩法）
①每条分支，都不应该重复利用主键
②不同分支，可以重复利用主键，毕竟bom会重复利用
所以：在每条分支，都用一个空白的字典，记录主键，保持不重复。如果重复，就遍历出来展示告知用户
递归开始的代码：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("表A")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add("全部")
Dim dgDic As New Dictionary(of String,String)\'递归记录,防止死循环
For Each dr As DataRow In dt.datarows
If dr.IsNull("父键") Then
nd = tr.Nodes.Add(dr("键"),dr("标题"))
Functions.Execute("AddChildren",nd,dt,dgDic)
End If
dgDic.Clear \'一条递归用一套记录
Next
tr.ResumeRedraw()
内部函数：
以下内容只有回复后才可以浏览
=====================================================================
杰哥免费分享的web系统
===============================================================
顺便总结以前分享过的帖子，方便大家学习
联系QQ：2385350359
经验分享：
[此贴子已经被作者于2023/3/13 9:36:27编辑过]
-- 发布时间：2022/1/24 11:49:00
--
顶杰哥！！
-- 发布时间：2022/1/24 12:50:00
--
-- 发布时间：2022/1/24 13:38:00
--
学习
-- 发布时间：2022/1/24 14:09:00
--
学习
-- 发布时间：2022/1/24 14:12:00
--
学习
-- 发布时间：2022/1/24 19:26:00
--
学习
-- 发布时间：2022/1/24 21:54:00
--
学习学习
-- 发布时间：2022/1/25 7:57:00
--
学习
-- 发布时间：2022/1/25 8:08:00
--
学习