主题：[求助]请问如何求上一条记录某列的值

设想A表的第一列（字符型）输入后，自动与上一条记录进行比较，

正常情况后，输入的记录应该是上一条记录加1，但也可以跳跃，

只是弹出一条信息，提醒一下而已。

参考帮助“自动编号生成方法”思路

DataRowAdded事件

Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
If idx - 1 >= 0 Then
    msgbox(Tables(e.DataTable.Name).Rows(idx-1)("第一列"))
End If

如果写在按钮，就必须指定表名

Dim r As Row = Tables("表A").AddNew
If r.index - 1 >= 0 Then
    msgbox(Tables("表A").Rows(r.index-1)("第一列"))
End If