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

狐狸爸爸已给出正解

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

借用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个问题可以的。