新增”按钮的事件代码 Private Sub Commando Click( Command 7 Enabled Not Command 7 Enabled Command 8 Enabled not command 8 Enabled Command 9 Enabled =Not Command 9. Enabled If command6 Caption="新增"Then Command6 Caption="确认 bookmark Datal Recordset Bookmark Datal recordset. addnew Text l setfocus Else Command6 Caption="新增" Datal Recordset. Update Datal Recordset Movelast End if End Sub“新增”按钮的事件代码 Private Sub Command6_Click() Command7.Enabled = Not Command7.Enabled Command8.Enabled = Not Command8.Enabled Command9.Enabled = Not Command9.Enabled If Command6.Caption = "新增" Then Command6.Caption = "确认" mbookmark = Data1.Recordset.Bookmark Data1.Recordset.AddNew Text1.SetFocus Else Command6.Caption = "新增" Data1.Recordset.Update Data1.Recordset.Movelast End If End Sub