各位大师：

下面为BOm嵌套检查的内部函数，下面红色部份不注释掉就会死循环退出。

Dim pc As String = args(0)

Dim fpc As String = args(1)

Dim dt As DataTable = args(2)

Dim tbl As Table = args(3)

Dim drs As List(of DataRow)

drs = dt.Select("键 = \'" & fpc & "\'")

If drs.count > 0 Then

    For Each dr As DataRow In drs

        fpc = dr("父键")

        If pc = fpc Then

            \'新增嵌套或父子相同的键

            Dim dr1 As DataRow = tbl.DataTable.addnew()

            dr1("_Identify") = dr("_Identify")

            dr1("键") = dr("键")

            dr1("标题") = dr("标题")

            dr1("父键") = dr("父键")

        Else

        End If

    Next

End If

请教大家是哪里条件没有设置好还是其他？谢谢！

Dim dt As DataTable = args(2)

Dim tbl As Table = args(3)

Dim drs As List(of DataRow)

drs = dt.Select("键 = \'" & fpc & "\'")

If drs.count > 0 Then

    For Each dr As DataRow In drs

        fpc = dr("父键")

            \'新增嵌套或父子相同的键

            Dim dr1 As DataRow = tbl.DataTable.addnew()

            dr1("_Identify") = dr("_Identify")

            dr1("键") = dr("键")

            dr1("标题") = dr("标题")

            dr1("父键") = dr("父键")

        Else

        End If

    Next

End If

第一步是从表A中提取唯一的键值出来生成一个临时表dt2（为了让相同的键只执行一次循环），然后遍历这个dt2中的键先取出来第一个键值pc，然后查找其父键是否有相同的值存在，在此值的向上所有层没有循环完成这个pc是不会改变的。

第二步到原表A中去筛选出键=pc的记录出来生成集合drs,然后用pc和此集合中的每个父键比较，如果相等说明是嵌套父子相同在窗口中新增行将其记录下来。

第三步，如果pc不等于父健则再往上循环在表A中查找键等于父键的记录生成集合再用其父键值与原pc比较看是否相同，直到drs.count > 0 不成立为止。

或者能否直接将我例子中不正确的改过来。谢谢！

那么你进来了.依然是  循环键为FPC的行, 那么依然是有10个 那么 循环第一次.取第一行的父键和PC做对比.不等于  又执行这个函数.  死循环

还是不理解，比如下表

键   父键

pc   A1

A1   A

A1   B

第一次循环时得到pc的父键A1因为不等于pc,所以把pc,A1传递给下一个循环执行，此时用A1作为键查找实际上得到如下的集合

A1  A

A1  B

再遍历这个集合中的每一行，fpc=dr("父键") 实际上将fpc变为A了，然后再用pc 与A是否相等来作判断，如果不相等则又进行下一次循环用A作为键来查找得到其父键的集合，直到新的集合没有为止。

你怎么不是死循环呢.  举个例子 键为FPC的行有10个. 你循环第一次.取第一行的父键和PC做对比.不等于  又执行这个函数.