主题：求助 查找控件

是根据   key码和  p Key 有相同的值来找.

Dim Arys As List(Of String())

Arys = DataTables("测试").GetValues("窗口以及控件姓名|Key","控件类型='窗口'")

For Each Ary As String() In Arys

    Dim drs As List(Of DataRow)

    drs = DataTables("测试").Select("ParentKey='" & Ary(1)& "'And 控件类型='按钮'")

    For Each dr As DataRow In drs

        Output.Show(Ary(0) & "|" & dr("窗口以及控件姓名"))  '到这一步返回的窗口按钮控件的名字是对的

        Dim drs1 As List(Of DataRow)

        drs1 = DataTables("测试").Select("窗口以及控件姓名='" & dr("窗口以及控件姓名") & "'")

        For Each dr1 As DataRow In drs1

            '  Output.Show(dr1("key"))

            ' Dim drs2 As List(Of DataRow)

            Dim dr2 As DataRow = DataTables("测试").Find("Key='" & dr1("ParentKey") & "'")

            If  dr2 IsNot Nothing

                '  Output.Show(dr2("窗口以及控件姓名"))

            End If

        Next

    Next

Next