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