主题：[求助]查找窗口代码

参考

With CurrentTable
    Dim r As Integer
    Dim s1 As String = "test" ' e.Form.Controls("TextBox1").Text
    For Each dc As Col In CurrentTable.Cols
        r = .Find(s1, .RowSel + 1, dc.name, False, False, True)
        If r > - 1 Then '如果找到符合条件的行
            .Select(r, dc.index)
            Exit For
        End If
    Next
End With