主题：求助 查找控件

Dim drs As List(Of DataRow) = args(0)

Dim fname As String = args(1)

Dim str As String 

For Each dr As DataRow In drs

    If dr.IsNull("ParentKey") Then

        fname = dr("窗口以及控件姓名")

    End If

    If dr("控件类型") = "按钮" Then

        Str = "|" & dr("窗口以及控件姓名")

    End If

    Functions.Execute("递归", DataTables("测试").Select("parentKey = '" & dr("key") & "'"), fname)

Next

Dim drs As List(Of DataRow) = DataTables("测试").Select("parentKey is null")

Output.Show(Functions.Execute("递归", drs, ""))