主题：如 id=1 就去找foid中等于1的数据 然后对应获取到id=2，3，4 然后又以id=2，3，4去找foid=5，6，7 然后又以foid=5，6，7去找id=……一直循环 怎么操作呢？

Dim dr1 as datarow = args(0)
Dim faIDpath As string = args(1)
Dim dt As DataTable = args(2)
Dim drs As List(of DataRow)
drs = dt.Select("faID ='" & dr1("ID")  & "'")

if drs.count = 0 then

Dim dr2 As DataRow = DataTables("测试表").AddNew()

dim sr() as string = faIDpath.split(".")

for i as integer = 0 to sr.length - 1

dr2("第" & (i+1) & "节") = sr(i)

next

else
For Each dr As DataRow In drs
    Functions.Execute("AddChildren",dr("ID"),faIDpath & "." & dr("ID"),dt)

Next

end if

按钮

If DataTables.Contains("测试表")  Then '如果表C已经加载
    DataTables.Unload("测试表") '卸载表C
End If
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Sele ct * From sys_Navigation"
dt = cmd.ExecuteReader()

Dim dtb As New DataTableBuilder("测试表")
dtb.AddDef("第1节", Gettype(String), 32)
dtb.AddDef("第2节", Gettype(String), 32)
dtb.AddDef("第3节", Gettype(String), 32)
dtb.AddDef("第4节", Gettype(String), 32)
dtb.AddDef("窗体id", Gettype(String), 32)
dtb.AddDef("导航名", Gettype(String), 32)
dtb.Build()

Dim drs As List(of DataRow)
drs = dt.Select("faID  is null")

For Each dr As DataRow In drs
    Functions.Execute("AddChildren",dr("ID"),dr("ID"),dt)

Next