看不到你贴的图片。

你要这个？ http://www.foxtable.com/webhelp/scr/1058.htm

1、单个表的查询代码会写了没有？

http://www.foxtable.com/webhelp/scr/1058.htm

2、多个表的查询，不就是把最后语句代码拷贝多份就可以了？

3、不会做，上传具体的foxtable例子。

参考

Dim str As String = e.Form.Controls("Texebox1").Text

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 Isfound = True
            If Isfound 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