如何制作：在A表增加一行时，那么B表中自动增加一行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何制作：在A表增加一行时，那么B表中自动增加一行？

共有13344人关注过本帖树形打印复制链接主题：如何制作：在A表增加一行时，那么B表中自动增加一行？

rcsy001

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

加好友

发短信

等级：幼狐帖子：156 积分：1627 威望：0 精华：0 注册：2011/4/20 10:44:00

Post By：2011/5/18 10:56:00 [显示全部帖子]

写一个增加按钮：

表A增加一行

表B增加一行，

给一、二、三、四列赋值

rcsy001

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

加好友

发短信

等级：幼狐帖子：156 积分：1627 威望：0 精华：0 注册：2011/4/20 10:44:00

Post By：2011/5/18 15:28:00 [显示全部帖子]

狐狸爸爸已给出正解

我想这个问题还可以这样解决

借用mr725的代码，修改一下，做两个按钮：

按钮1就是增加表A的数据：

Dim r As Row = Tables("表1").addnew()
按钮2就是增加表B的数据：（前提表A数据已经有了）

Dim r1 As Row = Tables("表2").addnew()
r1("第一列") = r("第一列")
r1("第二列") = r("第二列")
r1("第三列") = r("第三列")
r1("第四列") = r("第四列")

第2个问题可以的。

rcsy001

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

加好友

发短信

等级：幼狐帖子：156 积分：1627 威望：0 精华：0 注册：2011/4/20 10:44:00

Post By：2011/5/18 15:29:00 [显示全部帖子]

错，不好意思，这样的话代码要改一下

不能照抄mr725的代码

rcsy001

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

加好友

发短信

等级：幼狐帖子：156 积分：1627 威望：0 精华：0 注册：2011/4/20 10:44:00

Post By：2011/5/18 15:35:00 [显示全部帖子]

Dim r As Row = Tables("表A").Current
Dim r1 As Row = Tables("表B").addnew()
r1("第一列") = r("第一列")
r1("第二列") = r("第二列")
r1("第三列") = r("第三列")
r1("第四列") = r("第四列")

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

主题：如何制作：在A表增加一行时，那么B表中自动增加一行？