表输入的结构是这样的:
中文姓名 下级
老付 老朱
老朱 老纪
老朱 老李
递归函数是这样写的:
'Vars("nms")=""
Dim cmd As New SQLCommand
Dim dt As DataTable
' cmd.C
cmd.CommandText = "S ELECT DISTINCT 下级,中文姓名 From {员工管理}"
dt = cmd.ExecuteReader()
Dim Products As List(Of String)
Products = dt.GetValues("中文姓名","下级='" & Args(0) & "'")
For Each Product As String In Products
Functions.Execute("查询递归", Product)
Vars("nms") = Vars("nms") & ",'" & Product & "'"
Next
执行函数是这样的!
Vars("_UserId")="111"
Dim dr As DataRow = DataTables("员工管理").Find("用户名='" & Vars("_UserId") & "'")
If dr IsNot Nothing
Functions.Execute("查询递归",dr("中文姓名"))
Output.Show(Vars("nms"))
End If
dr("中文姓名") 是 老付