[求助]如何实现模糊搜索 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何实现模糊搜索

共有2097人关注过本帖树形打印复制链接主题：[求助]如何实现模糊搜索

新狐

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

加好友

发短信

等级：婴狐帖子：7 积分：128 威望：0 精华：0 注册：2017/6/14 15:23:00

[求助]如何实现模糊搜索 发帖心情

Post By：2017/6/16 16:37:00 [只看该作者]

刚刚按照设计查询窗口的模版做了一个小程序，可是做实际操作中在“车型”列中内容较多，查询时无法实现模糊查询，如图，想要查找“欧宝”就无法实现查找，请专家予以指导，在原程序中如何修改，

Dim Filter As String
With e.Form.Controls("车型")
If .Value IsNot Nothing Then
Filter =Filter & "车型= '" & .Value & "'"
End If
End With
With e.Form.Controls("年份")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "年份 = '" & .Value & "'"
End If
End With
With e.Form.Controls("排量")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "排量 = '" & .Value & "'"
End If