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

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

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

根据你的数据表

父键8 找到 键=8的行获得父键为4  进入下一个  父键为4 找到键=4 的行 获得父键为1  进入下一个 父键为1 找到键=1的行 获得父键为8 进入下一行

此时进入死循环