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

1、当在A表增加一行的同时，B表会自动增加一行，且会自动复制A表中的第一、二、三、四列的内容（就是新添加行的内容），如何操作，烦请狐哥解答

2、目前试用的免费版，所做的项目，后期直接移至商业版或开发版中使用（原由：我得做好相关的项目给领导演示，以便争取更多费用，目标：开发版！！！）

写一个增加按钮：

表A增加一行

表B增加一行，

给一、二、三、四列赋值

谢谢，但我不会写了，您能不能帮做个范本呢，我参照一下，可否，

我是新手，就差步了

第1个问题：按钮可以这样：

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

第2个问题可以的。

试了一下，是对了一半，

问题如下：

1、当在A表增加一行的同时，B表会自动增加一行，且会自动复制A表中的第一、二、三、四列的内容（就是新添加行的内容），

解释，当A表增加一行后，填写好相关数据后，击点某一按钮，会自动在B表中增加一行，且会自动复制A表中的第一、二、三、四列的内容（就是新添加行的内容），

所以，上述的方法对了一半，只是填写A表的第一、二、三、四列的内容，B表还是空表。

偶是新手，请多指教。。。

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

不能照抄mr725的代码