主题：递归函数问题

参考

http://www.foxtable.com/help/topics/2416.htm

children函数

Dim pdr As DataRow = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = pdr.DataTable.Select("[第一列] = '" & pdr("第二列") & "'")
For Each dr As DataRow In drs
    Dim ndr As DataRow = dt.addnew
    ndr("第一列") = dr("第一列")
    ndr("第二列") = dr("第二列")
    ndr("第三列") = 1
    Functions.Execute("AddChildren",dr,dt)
    Dim idx As Integer = 1
    Functions.Execute("AddChildren2",dr,ndr,idx)
Next

children2

Dim cdr As DataRow = args(0)
Dim dt As DataTable = args(1).DataTable
Dim idx As Integer = args(2) + 1
Dim fdr As DataRow = cdr.DataTable.find("[第二列] = '" & cdr("第一列") & "' and 第一列 is not null")
If fdr IsNot Nothing Then
    Dim ndr As DataRow = dt.addnew
    ndr("第一列") = fdr("第一列")
    ndr("第二列") = args(1)("第二列")
    ndr("第三列") = idx
    Functions.Execute("AddChildren2",fdr, ndr,idx)
End If

调用

百度查了，好像有这样的函数：

必须用代码处理。你看懂递归自己学习sql处理。

sql也可以用递归，就是麻烦。