例如函数getstring
Dim parent As String = args(0)
Dim lst As new List(of String)
Dim drs As List(of DataRow)
drs = DataTables("表A").Select("[父键] = '" & parent & "'")
If drs.Count = 0
lst.Add(parent)
Else
For Each dr As DataRow In drs
Dim child As List(of String) = Functions.Execute("getstring",dr("键"))
For Each c As String In child
lst.Add(parent & "|" & c)
Next
Next
End If
Return lst
调用
Dim lst As List(of String) = Functions.Execute("getstring","1")
For Each s As String In lst
Output.Show(s)
Next
加好友 
发短信
Post By：2018/4/14 10:36:00 [显示全部帖子]
