自定义录入界面在窗口绑定表中实现双击无法录入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义录入界面在窗口绑定表中实现双击无法录入

共有6109人关注过本帖树形打印复制链接主题：自定义录入界面在窗口绑定表中实现双击无法录入

有点甜

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

加好友

发短信

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

Post By：2013/11/25 22:11:00 [显示全部帖子]

doubleclick事件，只有在表被锁定，或者不能被编辑的时候，才会响应的。

有点甜

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

加好友

发短信

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

Post By：2013/11/25 22:36:00 [显示全部帖子]

直接设置表控件不可以被编辑（允许编辑）属性。

有点甜

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

加好友

发短信

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

Post By：2013/11/28 22:05:00 [显示全部帖子]

内容肯定是输入了。只是输入在表的当前行，而不是窗口表的当前行。

你点击表按钮的时候，需要记录当前的这张表是表界面里的，还是窗口界面里的（用一个全局变量存起来）

然后，编写弹出窗口doubleclick事件，取得全局变量的表名，把值设置入对应的表。

有点甜

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

加好友

发短信

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

Post By：2013/11/30 21:21:00 [显示全部帖子]

该车这样

Dim tbl As Table = Tables("添加物料_MaterialTable")
If tbl.Current IsNot Nothing Then
e.form.controls("Table1").Table.Current("子件编码") = tbl.Current("MaterialCode")
  e.form.controls("Table1").Table.Current("子件名称") = tbl.Current("Material")
  e.form.controls("Table1").Table.Current("原材料宽mm") = tbl.Current("原料宽mm")
  e.form.controls("Table1").Table.Current("原材料长M") = tbl.Current("原料长m")
  e.form.controls("Table1").Table.Current("子件规格") = tbl.Current("材料规格")

End If
Forms("添加物料").Close()

下一主题 >> << 上一主题

主题：自定义录入界面在窗口绑定表中实现双击无法录入