自动编号无法正常工作

Question

我正在尝试使用Number列中的值读取最后一行，然后将其增加一。由于某种原因，下面的代码是读取表中的第二行而不是最后一行？有什么想法吗？

Dim dvProjectName As DataView = DirectCast(AccessDataSource1.Select(DataSourceSelectArguments.Empty), DataView)
    Dim strProjectName As String = DirectCast(dvProjectName.Table.Rows(0)("Number"), Integer)

Answer 1

自动编号字段由MS Jet数据库引擎直接处理。试图自己更改值通常会导致错误。如果您想自己操作值 - 将字段更改为数字字段并使用VBA代码更改数字。否则，准备失望，因为Jet不会让你改变数字。