触发KeyDownEdit事件的单元格如何赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 触发KeyDownEdit事件的单元格如何赋值

共有3925人关注过本帖树形打印复制链接主题：触发KeyDownEdit事件的单元格如何赋值

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/15 20:00:00 [显示全部帖子]

看不懂，为什么楼主说取不到值？

'Tables("表A").Select(Vars("hzb"),Vars("lzb"))

'Sendkeys.Send("{ESC}")

'Tables("表A").focus

'Tables("表A").value = e.Form.controls("NumericComboBox1").value

'Tables("表A").current("第二列") = e.Form.controls("NumericComboBox1").value

‘Vars("str") = e.Form.controls("NumericComboBox1").value

msgbox(e.Form.controls("NumericComboBox1").Value)

e.Form.close() '关闭窗口

[此贴子已经被作者于2013-8-15 20:00:08编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/15 21:24:00 [显示全部帖子]

以下是引用明丰在2013-8-15 20:35:00的发言：

在表A第二列输入“8*”打开窗口，计算后按“关闭”，所在单元格并没有获得计算结果。（在窗口设计器直接打开窗口，操作正常）。

请在表A操作一遍，谢谢！

还是不明白，不是可以直接赋值的么？

Tables("表A").Rows(Vars("hzb"))(Vars("lzb")) = e.Form.controls("NumericComboBox1").value

Vars("str") = e.Form.controls("NumericComboBox1").value

e.Form.close() '关闭窗口

[此贴子已经被作者于2013-8-15 21:24:29编辑过]

主题：触发KeyDownEdit事件的单元格如何赋值