能否让一个按钮可以适用于一个窗体的不同Table？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能否让一个按钮可以适用于一个窗体的不同Table？

共有1745人关注过本帖树形打印复制链接主题：能否让一个按钮可以适用于一个窗体的不同Table？

chh2321

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

加好友

发短信

等级：童狐帖子：253 积分：2573 威望：0 精华：0 注册：2016/8/8 9:50:00

能否让一个按钮可以适用于一个窗体的不同Table？ 发帖心情

Post By：2017/4/5 23:37:00 [只看该作者]

老师，

如果一个窗体中有三个Table控件，分别绑定了表A，表B和表C，均为正本。

我想用一个按钮（例如addnew）来控制三个表，即addnew按钮会新增一条记录在获得焦点的当前表；而不想做3个新增按钮来分别控制3个表。

不知如何写代码？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/6 0:29:00 [只看该作者]

CurrentTable.AddNew

chh2321

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

加好友

发短信

等级：童狐帖子：253 积分：2573 威望：0 精华：0 注册：2016/8/8 9:50:00

Post By：2017/4/6 11:02:00 [只看该作者]

老师，

是这样，一个窗体中表A是主表（Table正本），两个RecordGrid1、2分别绑定了表B、表C（均为子表正本）。设计了一个AddNew按钮，click事件代码：CurrentTable.AddNew。

结果Addnew按钮只在主表中增加新纪录，RecordGrid1、2无法获得焦点，即便鼠标选取子表单元格也是如此。如何解决呢？

[此贴子已经被作者于2017/4/6 11:03:54编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/6 11:45:00 [只看该作者]

mark 窗口焦点控件

afterLoad事件

vars("当前控件") = new object
e.form.TimerInterval = 500
e.form.TimerEnabled = true

timertick事件

Dim c = e.form.ActiveControl
If c IsNot Nothing Then
    Dim cs() As String = {"RecordGrid1", "RecordGrid2", "Table1"}
    If array.indexof(cs, c.name) Then
        vars("当前控件") = c
    End If
End If

按钮代码

If typeof vars("当前控件") is winform.control Then
msgbox(vars("当前控件").name)
End If

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

主题：能否让一个按钮可以适用于一个窗体的不同Table？