Question

VB连接ACCESS数据库修改编号出现“VB 键入信息不足影响到多行，无法为更新定位行，一些值已在最后读取更改

Adodc3.RecordSource = "select * from 原材料入库记录 order by 日期,订单号,项目": Adodc3.Refresh

If Adodc3.Recordset.RecordCount > 0 Then Adodc3.Recordset.MoveFirst
b1 = 1
Do Until (Adodc3.Recordset.EOF Or Adodc3.Recordset.BOF)
Adodc3.Recordset.Fields(0) = b1
b1 = b1 + 1
Adodc3.Recordset.MoveNext
Loop
我的要求是打开记录就重新排一下编号
程序好像是从第一条记录开始一条条改的怎么会无法定位
第一条记录编号1第二条就是2第三条就是3每次移一条加1，可能是有相同记录就会产生这样和错误，不知道是为什么

Answer 1

b1=1
b1=b1+1

这。。。。。