Dim r As Row = Tables("表A").Current
Dim nr As Row = Tables("表A").AddNew
nr("校准编号") = r("校准编号")
nr("本年计划检") = r("下一年检定")
nr("周期天数") = r("周期天数")