主题：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

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