主题：[原创]请教大家一个问题

按钮的代码：
Dim t as Table = Tables("表A")

if  t.position > 0 Then

   t.Current("第一列") = t.rows(t.position - 1)("第二列") + 1

end if

记得将第一列和第二列的数据类型设置为数值型