- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]一点就死的递归，版主看看 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76881)
-- 发布时间：2015/11/6 17:50:00
-- [求助]一点就死的递归，版主看看
如题，放了个简化模型，看能解决不。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:递归测试.rar |
[此贴子已经被作者于2015/11/6 17:50:35编辑过]
-- 发布时间：2015/11/6 17:55:00
--
Dim dt As DataTable = Args(0)
Dim ygbh As String = args(1)
Dim drs As List(Of DataRow)
drs = dt.Select("[上级编号] = \'" & ygbh & "\'")
If drs IsNot Nothing Then
For Each dr As DataRow In drs
Vars("下属总人数") = Vars("下属总人数")+1
ygbh = dr("员工编号")
Functions.Execute("获取所有下级",dt,ygbh)
Next
End If
-- 发布时间：2015/11/6 17:58:00
--
啊哦，漏了。。。谢谢大红袍
-- 发布时间：2015/12/15 14:59:00
--
西瓜。。你的书呢。。