弹出窗口方向键向右总是程序出错如何解决？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 弹出窗口方向键向右总是程序出错如何解决？

共有11897人关注过本帖树形打印复制链接主题：弹出窗口方向键向右总是程序出错如何解决？

czy

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

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/10/30 20:12:00 [显示全部帖子]

比如将KeyDown事件代码改成:

If e.KeyCode = Keys.Enter Then

Dim tbl As Table = Tables("制袋选产品_table1")

If tbl.Current IsNot Nothing Then

Tables("zhidai").Current("chanpinname") = tbl.Current("chanpinname")

Tables("zhidai").Current("chanpinid") = tbl.Current("chanpinid")

Tables("zhidai").Current("guige") = tbl.Current("guige")

Tables("zhidai").Current("danwei") = tbl.Current("danwei")

Tables("zhidai").Current("addtime")= now()

Tables("zhidai").Current("adduser")= user.name

End If

Forms("制袋选产品").Close()

End If

czy

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

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/10/31 23:36:00 [显示全部帖子]

将 DoubleClick事件代码第一行改成

Dim tbl As Table = Tables("制袋选产品_table1")

主题：弹出窗口 方向键 向右总是程序出错 如何解决？