- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 根据开发宝典一书P464页代码编写,实现多关键字查询,不成功,请帮忙查看是那里问题? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151513)
-- 发布时间：2020/6/26 10:47:00
-- 根据开发宝典一书P464页代码编写,实现多关键字查询,不成功,请帮忙查看是那里问题?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多个关键字查找.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:键后,提示"至少一个参数没有被指定值"?
-- 发布时间：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
-- 发布时间：2020/6/26 11:04:00
--
可以了,谢谢
-- 发布时间：2020/6/26 11:06:00
--
我想在窗口增加一个[退出查询]的按钮点击此按钮后,退出查询并恢复原来所有内容,按钮的代码如何写?
-- 发布时间：2020/6/26 11:13:00
--
With DataTables("表A")
.LoadFilter=""
.Load
End With
这个？
-- 发布时间：2020/6/26 11:20:00
--
对
-- 发布时间：2020/6/26 12:01:00
--
我想用黄色高亮我所查找到的关键字
比如我查找到"衣"字,在"衣"字高亮,可以实现吗?
-- 发布时间：2020/6/26 15:08:00
--
或将查找到的关键字显示为红色?
-- 发布时间：2020/6/26 17:48:00
--
参考
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:高亮查询.table |
-- 发布时间：2020/6/26 18:43:00
--
@linyunu, 按例子录入代码,只能查询,不能高亮关键字,请帮我看看是什么原因?谢谢!