新增按钮改成
Dim t As Table = Tables("表A")
Dim cr As Row = t.Current
Dim nr As Row = t.AddNew
nr("第一列") = cr("第一列")
nr("第二列") = cr("第二列")