主题：如何在窗口字表中自动增加记录并自动添加内容？

请问，如何点击增加记录按钮，在下表中，新增一条记录，并且自动添加校准编号、周期天数、并将下一年度检定日期添加到本年度计划检定日期中。

Dim r As Row = Tables("表A").Current

Dim nr As Row = Tables("表A").AddNew

nr("校准编号") = r("校准编号")

nr("本年计划检") = r("下一年检定")

nr("周期天数") = r("周期天数")

实验了代码，发现新增的是一条空记录。没有需要自动添加的内容。因为我是在窗体中自动增加一条子表中的记录。我应该如何修改。

 

你表名肯定写错了。贴出你写的代码。

此主题相关图片如下：未命名图片.png

发生错误提示
此主题相关图片如下：未命名图片.png

删除你原来的代码

谢谢