主题：[求助]自定义窗口查找

我自定义窗口，需要在我的整个项目中查找，并显示，查找的代码怎么写啊？
此主题相关图片如下：11111.jpg

mark 全表查询

 

Dim str As String = "aaa"

Dim tbs As new List(Of Table)
For Each t As Table In Tables
    tbs.add(t)
Next
Dim isFound As Boolean = False
For i As Integer = vars("b") To tbs.count - 1
    Dim t As Table = tbs(i)
    Dim cr As Integer = 0
    If i = vars("b") Then cr = vars("x") + 1
    For r As Integer = cr To t.rows.count-1
        Dim cc As Integer = 0
        If i=vars("b") AndAlso r = cr Then cc = vars("y") + 1
        For c As Integer = cc To t.cols.count-1
            If t.rows(r)(c) = str Then
                MainTable = t
                t.Select(r, c)
                vars("b") = i
                vars("x") = r
                vars("y") = c
                isfound = True
                goto break
            End If
        Next
    Next
Next
break:
If isfound = False Then
    msgbox("没有了!")
    vars("b") = 0
    vars("x") = 0
    vars("y") = 0
end if

不对啊，不显示结果，而是直接提示没有了。
此主题相关图片如下：02.jpg

请，上传foxtable实例。

感谢大红袍老师，实例已上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table