以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  奇怪的想法,不知道能不能实现?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184251)

--  作者:sunion0769
--  发布时间:2022/11/30 8:52:00
--  奇怪的想法,不知道能不能实现?
键盘中有1-9个数字,fox中有一个窗口(窗口中有一个文本框),有一个表A
如果按键盘数字1,文本框中则调用显示表A第1列第1排的值;
如果按键盘数字2,文本框中则调用显示表A第1列第2排的值;
如果按键盘数字3,文本框中则调用显示表A第1列第3排的值;
依次类推
不知道能实现不?

--  作者:有点蓝
--  发布时间:2022/11/30 9:03:00
--  
实现不了。另外添加一个查询文本框,在查询文本框textchanged事件

dim d as integer = val(e.sender.text)
if d > 0 then
e.form.controls("要显示数据的文本框").text = tables("表A").rows(d-1)("第1列")
end if

--  作者:sunion0769
--  发布时间:2022/11/30 9:24:00
--  
再请教一下,那能不能获取键盘按下的值?
比如我按了键盘的"A"键,messbox则显示"A";
如果我按了键盘的"D"键,messbox则显示"D";

--  作者:有点蓝
--  发布时间:2022/11/30 9:28:00
--  
keydown事件
MsgBox (e.KeyCode.ToString)