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


  共有4041人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
tennis
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
请问备注列的模糊查寻代碼??  发帖心情 Post By:2015/1/29 13:45:00 [只看该作者]

如题

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/29 13:59:00 [只看该作者]

同样是Like啊

 回到顶部
帅哥哟,离线,有人找我吗?
tennis
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/29 14:37:00 [只看该作者]

用%  而且你似乎有数值列

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/29 14:37:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/29 14:38:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
tennis
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2015/1/29 17:19:00 [只看该作者]

3Q!!

 回到顶部