请问备注列的模糊查寻代碼?? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问备注列的模糊查寻代碼??

共有4042人关注过本帖树形打印复制链接主题：请问备注列的模糊查寻代碼??

tennis

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

等级：六尾狐帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00

请问备注列的模糊查寻代碼?? 发帖心情

Post By：2015/1/29 13:45:00 [显示全部帖子]

如题

tennis

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

等级：六尾狐帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00

Post By：2015/1/29 14:35:00 [显示全部帖子]

3Q!!

此主题相关图片如下：err.jpg

Dim filter As String = "[公司代碼] = '" & Tables("訊息主檔").current("公司代碼") & "'"

Dim fd As String = e.Form.Controls("TextBox6").text

Dim filter1 As String =""

If fd > "" Then

fd = fd.Replace("*","[*]")

filter1 = "說明 Like '*" & fd & "*'" Or "相關文件 like '*" & fd & "*'" Or "備註 like '*" & fd & "*'"

'filter = filter & filter1

Else

filter = "[公司代碼] = '" & Tables("訊息主檔").current("公司代碼") & "'"

End If

Tables("訊息記錄").Filter = filter

tennis

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

等级：六尾狐帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00

Post By：2015/1/29 17:19:00 [显示全部帖子]

3Q!!

主题：请问备注列的模糊查寻代碼??