以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  输入关键词后点回车进行搜索的代码改如何编写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44810)

--  作者:zhulifan
--  发布时间:2014/1/9 13:56:00
--  输入关键词后点回车进行搜索的代码改如何编写?
我已经做好了一个基本框架,输入信息到文本框内后,点击搜索就可以按照我的货号,价格和交期进行查询筛选
但是要是我想输入关键词后不通过鼠标点击,直接按回车后执行搜索操作的话,是要设置文本框的事件代码吗?

附件中是我做的一个简单窗口,通过输入信息按回车来进行搜索查询

请各位高手指点一下,看看代码应该怎么来做

谢谢
图片点击可在新窗口打开查看此主题相关图片如下:foxtable.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/1/9 14:17:00
--  
KeyDown 事件写代码即可.http://www.foxtable.com/help/topics/0741.htm
--  作者:zhulifan
--  发布时间:2014/1/9 14:35:00
--  回复:(Bin)在KeyDown 事件写代码即可.http://www.f...
问题是在于,我填写在KEYDOWN事件的代码要怎么样才能和搜索功能连起来
输入代码语言是什么样的

请教教我

谢谢


--  作者:Bin
--  发布时间:2014/1/9 14:47:00
--  
额,这个和普通搜索是一样的啊.都是设置FIlter条件啊  http://www.foxtable.com/help/topics/1432.htm
if e.form.controls("TextBox1").text <> "" then
tables("表名").Filter="货号=\'" & e.form.controls("TextBox1").text & "\'"
end if

新手建议先看一下我们的帮助
打开软件按F1或者点击左上角的小问号,可以打开非常详细的图文帮助

--  作者:longtechwj
--  发布时间:2014/1/9 16:13:00
--  
在btn的 KEYDOWN调用搜索按钮事件
If e.KeyCode=Keys.Enter Then
Dim btn As WinForm.Button = Forms("采购订单").Controls("Query")
btn.PerformClick()
Forms("采购订单").Controls("QUERYTEXT").Select
End If

--  作者:狐狸爸爸
--  发布时间:2014/1/9 17:26:00
--  

检测到回车键之后,模拟单击查询按钮:

http://www.foxtable.com/help/topics/2309.htm

 

 

Keydown事件代码:

 

If e.KeyCode=Keys.Enter Then
    Dim btn As WinForm.Button = e.Form.Controls("查询按钮名称")
    btn.PerformClick()
End If