这种要做递归
添加一个函数，名称“递归”
Dim dict As Dictionary(Of Integer, Integer) = args(0)
Dim dr As DataRow = args(1)
Dim level As String = args(2)
Dim drs As list(Of DataRow) = DataTables("客户表").Select("来源_id='" & dr("id") & "'")
If dict.ContainsKey(level) Then
dict(level) += drs.Count
Else
dict.Add(level, drs.Count)
End If
For Each dr1 As DataRow In drs
Functions.Execute("递归", dict, dr1, level + 1)
Next
按钮
Dim s As String = "1001"
Dim dict As New Dictionary(Of Integer, Integer)
Dim drs As list(Of DataRow) = DataTables("客户表").Select("laiy_id='" & s & "'")
dict.Add(1, drs.Count)
For Each dr As DataRow In drs
Functions.Execute("递归", dict, dr, 2)
Next
For Each key As Integer In dict.Keys
Output.Show(key & "级有" & dict(keu) & "人")
Next
加好友 
发短信
Post By：2025/4/28 10:37:00 [只看该作者]
