以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现一个查询条件遍历所有字段？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30188)
--  作者：smallji
--  发布时间：2013/3/22 14:34:00
--  如何实现一个查询条件遍历所有字段？
如题，表A有十几列，分别是第1列到第n列，想设计一个查询，查询条件用一个TextBox文本框，在该文本框内输任何字符，系统会去比对任何一列，只要包含TexBox的值，就列出该记录，并标出符合的记录内的字符为特定颜色。
--  作者：狐狸爸爸
--  发布时间：2013/3/22 15:54:00
--  

也可以看看这个，有点类似哦：

http://www.foxtable.com/help/topics/1534.htm

 
--  作者：lsy
--  发布时间：2013/3/22 17:05:00
--  
以下是引用muhua在2013-3-22 14:45:00的发言：

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

 

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