- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 设计窗口时doubleclick与keydown的代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152743)
-- 发布时间：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
-- 发布时间：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 |
-- 发布时间：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") & "\'"