以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在某一个备注字段搜索某一列所有单元格内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133510)

--  作者:huizhong
--  发布时间:2019/4/15 15:51:00
--  在某一个备注字段搜索某一列所有单元格内容
老师,请教下

我设计一个短信发送审批程序,想实现对指定“忌讳词”进行查找并提示,避免涉及政治或淫秽内容,因此,需要一个表和一个窗口,表中只有一列,列名<忌讳词>,窗口中有一个备注字段,是短信发送内容,想在这个窗口中设置一个按钮,单击按钮实现检察短信内容是否包含<忌讳词>中各行内容,如有,提示,请问该如何操作,给指导下

窗口备注字段【上单窗口_Table1.内容】
列名【忌讳词设置表、忌讳词列】

--  作者:有点甜
--  发布时间:2019/4/15 15:55:00
--  

参考代码

 

Dim str As String = "你我他习xxabcdef"
For Each r As Row In Tables("表a").rows
    If r("第一列") > "" AndAlso str.Contains(r("第一列")) Then
        msgbox(r("第一列"))
    End If
Next


--  作者:huizhong
--  发布时间:2019/4/15 16:13:00
--  
谢谢老师