第1个回答 2012-10-19
添加;On Error Resume Next
cmdDel.Enabled = Not cmdDel.Enabled
cmdUpDate.Enabled = Not cmdUpDate.Enabled
cmdEsc.Enabled = Not cmdEsc.Enabled
cmdFind.Enabled = Not cmdFind.Enabled
If cmdAdd.Caption = "添加" Then
cmdAdd.Caption = "确定"
Data1.Recordset.AddNew
Data1.Recordset.Update
Text1.SetFocus
Else
cmdAdd.Caption = "添加"
Adodc1.Recordset.MoveLast
End If
删除 On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast本回答被网友采纳