“修改”按钮的事件代码 Private Sub Command Click( Command. Enabled= Not Commando Enabled Command 7 Enabled= Not Command 7 Enabled Command 9 Enabled Not Command 9 Enabled If Command8 Caption="修改"Then Command8 Caption="确认 bookmark Datal Recordset Bookmark Datal Recordset. Edit Text 1. SetFocus Else Command8 Caption="修改" Datal Recordset. Update End If End sub“修改”按钮的事件代码 Private Sub Command8_Click() Command6.Enabled = Not Command6.Enabled Command7.Enabled = Not Command7.Enabled Command9.Enabled = Not Command9.Enabled If Command8.Caption = "修改" Then Command8.Caption = "确认" mbookmark = Data1.Recordset.Bookmark Data1.Recordset.Edit Text1.SetFocus Else Command8.Caption = "修改" Data1.Recordset.Update End If End Sub