主题：求按钮代码

dim r as row = tables("A表").addnew

上一行，有2种概念：概念一、指当前行，不一定是增加前的最后一行

if   tables("A表").current isnot nothing then

    r("某列") = tables("A表").current("某列")

end if

 

概念二、指增加前的最后一行

if tables("A表").current isnot nothing then

   r("某列") = tables("A表").Rows(tables("A表").rows.count-2)("某列")

end if