主题：如何实现一个查询条件遍历所有字段？

For Each r As Row In Tables("表A").Rows
    For Each c As Col In Tables("表A").Cols
        If CStr(r(c.Name)).Contains(e.Form.Controls("TextBox1").Text) Then
            r("第十列") = r("_Identify") & c.Name
        End If
    Next
Next

加粗的地方自己写下代码，这里只是一个例子。

如果要变色，需要使用DrawCell事件，可以参考：http://www.foxtable.com/help/topics/0656.htm

用在查找替换里，很不错。