求教FIND模糊查找只能查找开头的单元格（不是模糊筛选） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教FIND模糊查找只能查找开头的单元格（不是模糊筛选）

共有5592人关注过本帖树形打印复制链接主题：求教FIND模糊查找只能查找开头的单元格（不是模糊筛选）

ade2015

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：165 积分：1356 威望：0 精华：0 注册：2020/3/14 22:13:00

求教FIND模糊查找只能查找开头的单元格（不是模糊筛选） 发帖心情

Post By：2023/2/11 15:40:00 [显示全部帖子]

求教，如何在当前列 "查找 ”出包含 [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)

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

在论坛上查了很多，很多都是 "模糊筛选”。。。

软件自带的会列出“隐藏的列”。不能直接用。

ade2015

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：165 积分：1356 威望：0 精华：0 注册：2020/3/14 22:13:00

Post By：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

主题：求教FIND模糊查找 只能查找开头的单元格 （不是 模糊筛选）