以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教FIND模糊查找 只能查找开头的单元格 （不是 模糊筛选）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185229)
--  作者：ade2015
--  发布时间：2023/2/11 15:40:00
--  求教FIND模糊查找 只能查找开头的单元格 （不是 模糊筛选）
求教，如何在当前列 "查找 ”出     包含 [TextBox1]   中文字     的 单元格

下面是我写的，但是只能 “查找” 出 开头 包含  [TextBox1]   中文字     的 单元格


Dim txt As String = e.Form.Controls("TextBox1").Text
With CurrentTable
    Dim r As Integer
    r = .Find(txt, .RowSel + 1, CurrentTable.cols(CurrentTable.ColSel).name, False, False, True)
    If r > - 1 Then \'如果找到符合条件的行   
        .Position = r \'则选择该行
    End If 
End With
\'MessageBox.Show (txt)

最好能帮忙指导一下，整表 单元格 的模糊 查找

在论坛上查了很多，很多都是 "模糊筛选”。。。  
软件自带的会列出“隐藏的列”。不能直接用。
--  作者：有点蓝
--  发布时间：2023/2/11 15:52:00
--  
改为findrow：http://www.foxtable.com/webhelp/topics/0553.htm
--  作者：ade2015
--  发布时间：2023/2/12 15:40:00
--  
大神，这里的 列名 变量怎么写。
辛苦 帮忙改写一下呗

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim lm As String = CurrentTable.cols(CurrentTable.ColSel).name
With CurrentTable
    Dim r As Integer
    r = .FindRow("lm Like \'%" & txt & "%\'",.Position + 1, True) \'从当前行的下一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行。
    End If
End With
--  作者：有点蓝
--  发布时间：2023/2/12 20:23:00
--  
r = .FindRow(lm & " Like \'%" & txt & "%\'",.Position + 1, True)