主题：BOM嵌套检查的内部函数死循环。

各位大师：

下面为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

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

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

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

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

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

还是不理解，比如下表

键   父键

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做对比.不等于  又执行这个函数.

第二方面就是只有把这个搞懂了才能用同样的方式写代码在用户录入BOM的编码时进行事前验证避免出现嵌套的情况啊。

但大师们好象都不直接给出答案，只给点提示让我们自己来弄。