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