主题：如何制作：在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个问题可以的。