分层遍历数据
代码
''' <summary>
''' 获取用户团队名单
''' 按层遍历用户团队名单
''' </summary>
''' <param name="用户ID信息"></param>
''' <remarks></remarks>
Private Function 获取用户团队名单(ByVal 用户ID信息 As String) As Array
Dim 用户团队名单(1, 0) As String
Dim 层数 As Integer = 1
用户团队名单(0, 0) = "0"
用户团队名单(1, 0) = 用户ID信息
If IsDBNull(用户ID信息) Then
Return 用户团队名单
End If
Dim cur As Integer = 0
Dim last As Integer = 1
While (cur < 用户团队名单.GetLength(1))
'新的一层访问开始,重新定位last与当前最后一个节点的下一个位置
last = 用户团队名单.GetLength(1)
While (cur < last)
Dim 被推荐人DataTableView As New DataView(用户信息DataTable)
If 用户团队名单(0, cur) = CStr(层数 - 1) Then
'访问节点数据
被推荐人DataTableView.RowFilter = "推广员编号='" & 用户团队名单(1, cur) & "'"
If 被推荐人DataTableView.Count > 0 Then
For Each MyDataRowView As DataRowView In 被推荐人DataTableView
'动态获取团队成员信息
ReDim Preserve 用户团队名单(1, 用户团队名单.GetLength(1))
用户团队名单(0, 用户团队名单.GetLength(1) - 1) = CStr(层数)
用户团队名单(1, 用户团队名单.GetLength(1) - 1) = CStr(MyDataRowView("用户ID"))
Next
End If
End If
cur = cur + 1
End While
层数 = 层数 + 1
End While
Return 用户团队名单
End Function
''' 获取用户团队名单
''' 按层遍历用户团队名单
''' </summary>
''' <param name="用户ID信息"></param>
''' <remarks></remarks>
Private Function 获取用户团队名单(ByVal 用户ID信息 As String) As Array
Dim 用户团队名单(1, 0) As String
Dim 层数 As Integer = 1
用户团队名单(0, 0) = "0"
用户团队名单(1, 0) = 用户ID信息
If IsDBNull(用户ID信息) Then
Return 用户团队名单
End If
Dim cur As Integer = 0
Dim last As Integer = 1
While (cur < 用户团队名单.GetLength(1))
'新的一层访问开始,重新定位last与当前最后一个节点的下一个位置
last = 用户团队名单.GetLength(1)
While (cur < last)
Dim 被推荐人DataTableView As New DataView(用户信息DataTable)
If 用户团队名单(0, cur) = CStr(层数 - 1) Then
'访问节点数据
被推荐人DataTableView.RowFilter = "推广员编号='" & 用户团队名单(1, cur) & "'"
If 被推荐人DataTableView.Count > 0 Then
For Each MyDataRowView As DataRowView In 被推荐人DataTableView
'动态获取团队成员信息
ReDim Preserve 用户团队名单(1, 用户团队名单.GetLength(1))
用户团队名单(0, 用户团队名单.GetLength(1) - 1) = CStr(层数)
用户团队名单(1, 用户团队名单.GetLength(1) - 1) = CStr(MyDataRowView("用户ID"))
Next
End If
End If
cur = cur + 1
End While
层数 = 层数 + 1
End While
Return 用户团队名单
End Function
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步