关于datagrid控件的错误处理
各位高手：我有个问题请教哈一个ado控件，名为Adodc1；三个command控件，名分别为cmdadd\cmddelete\cmdupdate;一个datagrid控件，名为datagrid1.在添加以下代码后，能在datagrid上做“添加”“删除”“更新”，但是当我在添加输入数据的过程中，光标一但定位行错误就会出现“无法为更新定位行，一些值可能已在最后一次读取后已更改”的错误提示，而且只能终止程序。请版主指教该怎么添加错误处理代码才能消除这种情况。
Private Sub cmdadd_Click()
On Error Resume Next
cmdadd.Enabled = False '有问题
Adodc1.Recordset.AddNew
cmddelete.Enabled = False
cmdupdate.Enabled = True
End Sub
Private Sub cmddelete_Click()
On Error Resume Next
If MsgBox("真的要删除当前记录吗?", vbYesNo, "信息提示") = vbYes Then '有问题
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
If Adodc1.Recordset.BOF Then
cmddelete.Enabled = False
End If
End If
End If
End Sub
Private Sub cmdupdate_Click()
'更新记录
On Error Resume Next
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
cmdupdate.Enabled = False
cmddelete.Enabled = True
cmdadd.Enabled = True
End Sub
