红色代码有问题

Dim dt As DataTable= args(0)
Dim drs As String= args(1)
Dim drys As List (of DataRow)= DataTables("bom").Select("子键=\'"& drs &"\'")
If drys.Count>0 Then
    For Each dr As DataRow In drys
        Dim dr1 As DataRow=dt.AddNew()
        dr1("父键")=dr("父键")
        dr1("子键")=dr("子键")
        dr1("末级")=False
        Functions.Execute("AddChildren2",DT,dr1("父键"))
    Next
Else
    Dim dr1 As DataRow=dt.AddNew()
    dr1("父键")=drs
    dr1("末级")=True
End If

Return dt

老师，

  正查结果不对，红色标注的，应该是多余的，劳烦您给看下？

你查询的逻辑是什么？怎么会是多余的？

0201有两个子键、0202有两个子键，总共就有四个。

希望 按照查询TEXT 文本框中的 父键 展开 例如 3楼 图

BB 下级 是02 02 子健 是0201 0202

0201 下级是 TTT PPP 

0202 下级 是 TPT VLV

按照BB 查询 那不就应该生成

父键   子健

02     0201

0201  TTT

02     0201

0201  PPP

02     0202

0202  TPT

02    0202

0202  VLV

老师，

 实现了我要的结果，但是这句逻辑关系没有搞明白，是怎么实现的呢？

ElseIf pdr.DataTable.name <> "bom"
    pdr("末级")=True
End If

实际测试

Else
    pdr("末级")=True
End If

结果也是正确

回复7楼，你试试输入 aa，然后查询。

第一次传递进去的pdr是bom表的行(按钮代码里面)