Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据开发宝典一书P464页代码编写,实现多关键字查询,不成功,请帮忙查看是那里问题?


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

主题：根据开发宝典一书P464页代码编写,实现多关键字查询,不成功,请帮忙查看是那里问题?
帅哥哟，离线，有人找我吗？
fyj0326
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：416 积分：3783 威望：0 精华：0 注册：2009/12/12 17:04:00 		根据开发宝典一书P464页代码编写,实现多关键字查询,不成功,请帮忙查看是那里问题?  发帖心情 Post By：2020/6/26 10:47:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多个关键字查找.table


代码在KeyDown事件写为:

If e.KeyCode=Keys.Enter Then
   Dim s As String =e.Sender.Text
   Dim f As String
   Dim ss As String()=s.Split(",")
   For Each t As String In ss
     f = f & "or 产品名称 Like '%" & t & "%'"
   Next
  f=f.Remove(0,4)
  With DataTables("表A")
   .LoadFilter=f
   .Load()
 End With
End If

然后点"Enter:键后,提示"至少一个参数没有被指定值"?
 回到顶部
帅哥哟，离线，有人找我吗？
linyunu1
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：162 积分：1089 威望：0 精华：0 注册：2020/1/16 11:58:00 		  发帖心情 Post By：2020/6/26 10:59:00 [只看该作者]

If e.KeyCode=Keys.Enter Then
   Dim s As String =e.Sender.Text
   Dim f As String
   Dim ss As String()=s.Split(",")
   For Each t As String In ss
if f > "" then
f &= " or "
end if
     f &= "产品名称 Like '%" & t & "%'"
   Next
  With DataTables("表A")
   .LoadFilter=f
   .Load()
 End With
End If
 回到顶部
帅哥哟，离线，有人找我吗？
fyj0326
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：416 积分：3783 威望：0 精华：0 注册：2009/12/12 17:04:00 		  发帖心情 Post By：2020/6/26 11:04:00 [只看该作者]

可以了,谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
fyj0326
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：416 积分：3783 威望：0 精华：0 注册：2009/12/12 17:04:00 		  发帖心情 Post By：2020/6/26 11:06:00 [只看该作者]

我想在窗口增加一个[退出查询]的按钮点击此按钮后,退出查询并恢复原来所有内容,按钮的代码如何写?

 回到顶部
帅哥哟，离线，有人找我吗？
linyunu1
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：162 积分：1089 威望：0 精华：0 注册：2020/1/16 11:58:00 		  发帖心情 Post By：2020/6/26 11:13:00 [只看该作者]

  With DataTables("表A")
   .LoadFilter=""
   .Load
 End With

这个？
 回到顶部
帅哥哟，离线，有人找我吗？
fyj0326
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：416 积分：3783 威望：0 精华：0 注册：2009/12/12 17:04:00 		  发帖心情 Post By：2020/6/26 11:20:00 [只看该作者]

对

 回到顶部
帅哥哟，离线，有人找我吗？
fyj0326
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：416 积分：3783 威望：0 精华：0 注册：2009/12/12 17:04:00 		  发帖心情 Post By：2020/6/26 12:01:00 [只看该作者]

我想用黄色高亮我所查找到的关键字

比如我查找到"衣"字,在"衣"字高亮,可以实现吗?
 回到顶部
帅哥哟，离线，有人找我吗？
fyj0326
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：416 积分：3783 威望：0 精华：0 注册：2009/12/12 17:04:00 		  发帖心情 Post By：2020/6/26 15:08:00 [只看该作者]

或将查找到的关键字显示为红色?

 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：249 积分：1859 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2020/6/26 17:48:00 [只看该作者]

参考
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:高亮查询.table
 回到顶部
帅哥哟，离线，有人找我吗？
fyj0326
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：416 积分：3783 威望：0 精华：0 注册：2009/12/12 17:04:00 		  发帖心情 Post By：2020/6/26 18:43:00 [只看该作者]

@linyunu, 按例子录入代码,只能查询,不能高亮关键字,请帮我看看是什么原因?谢谢!

 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询