主题：递归函数问题

参考

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也可以用递归，就是麻烦。

9楼代码，不变。如果要全部生成，调用这样调用

For Each dr As DataRow In DataTables("表A").DataRows
    Functions.Execute("AddChildren",dr,dr.DataTable,dr("推荐人卡号"),1)
Next

可以把所有数据一次性加载进来，再执行，如果这样也慢的话，应该是这个原因

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

一条一条的话，你直接在datacolchanged事件写代码不就行了？

Dim dr As DataRow = e.DataRow

If e.DataCol.Name = "推荐人卡号" Then

    Functions.Execute("AddChildren",dr,dr.DataTable,dr("推荐人卡号"),1)

End If