ms-access - 自动编号无法正常工作

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 不会让您更改数字。