以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设计窗口时doubleclick与keydown的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152743)

--  作者:yacity
--  发布时间:2020/7/20 16:00:00
--  设计窗口时doubleclick与keydown的代码
设计窗口时 鼠标双击某一格根据条件弹出新的窗口。
代码如下
Select Case e.Col.name
    Case "kehuname"
        Forms("客户销售记录").Open()
        Tables("客户销售记录_Table1").Filter = "kehuid = \'" & e.Row("kehuid") & "\'"
        Tables("客户销售记录_Table1").Sort = "_Identify desc"
       e.Cancel = True
End Select


如果进入某单元回车 根据条件弹出新窗口,keydown 代码怎么写?

--  作者:有点蓝
--  发布时间:2020/7/20 16:02:00
--  
if e.Col.name = “kehuname” andalso e.keycode = keys.enter then
Forms("客户销售记录").Open()
endif

--  作者:yacity
--  发布时间:2020/7/20 16:09:00
--  
错误提示
col 不是 keyeventargs 的成员。
--  作者:有点蓝
--  发布时间:2020/7/20 16:31:00
--  
if e.table.Cols(e.table.Colsel).name = “kehuname” andalso e.keycode = keys.enter then

--  作者:yacity
--  发布时间:2020/7/22 8:47:00
--  

设计窗口 keydown 事件


If e.Table.Cols(e.Table.Colsel).name = "kehuname" AndAlso e.keycode = keys.enter Then
       Forms("客户销售记录").Open()
       Tables("客户销售记录_Table1").Filter = "kehuid = \'" & e.Table.Row("kehuid") & "\'"
       Tables("客户销售记录_Table1").Sort = "_Identify desc"
End If


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

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

[此贴子已经被作者于2020/7/22 8:47:35编辑过]

--  作者:有点蓝
--  发布时间:2020/7/22 9:09:00
--  
Tables("客户销售记录_Table1").Filter = "kehuid = \'" & e.Table.Rows(e.Table.Rowsel)("kehuid") & "\'"