这个 Private Sub cmd_Add_Click() Data1.Recordset.addnew SaveCancelEnable End SubPrivate Sub cmd_Cancel_Click() Data1.Recordset.CancelUpdate InitialCmd End SubPrivate Sub cmd_Delete_Click() Dim sel As Stringsel = MsgBox("确定要删除这个记录吗? ", vbQuestion + vbOKCancel, "确定删除") If sel = 1 Then BeginTrans Data1.Recordset.Delete CommitTrans Data1.Recordset.MovePrevious If Data1.Recordset.RecordCount <= 0 Then x = MsgBox("没有实验室正在使用! ", vbInformation + vbOKOnly, "实验室信息") End If End IfEnd SubPrivate Sub cmd_Save_Click()BeginTrans Data1.Recordset.Update CommitTrans Data1.Refresh InitialCmdEnd SubPrivate Sub cmd_Update_Click()Data1.Recordset.Edit SaveCancelEnableEnd Sub
Private Sub cmd_Add_Click()
Data1.Recordset.addnew
SaveCancelEnable
End SubPrivate Sub cmd_Cancel_Click()
Data1.Recordset.CancelUpdate
InitialCmd
End SubPrivate Sub cmd_Delete_Click()
Dim sel As Stringsel = MsgBox("确定要删除这个记录吗? ", vbQuestion + vbOKCancel, "确定删除")
If sel = 1 Then
BeginTrans
Data1.Recordset.Delete
CommitTrans
Data1.Recordset.MovePrevious
If Data1.Recordset.RecordCount <= 0 Then
x = MsgBox("没有实验室正在使用! ", vbInformation + vbOKOnly, "实验室信息")
End If
End IfEnd SubPrivate Sub cmd_Save_Click()BeginTrans
Data1.Recordset.Update
CommitTrans
Data1.Refresh
InitialCmdEnd SubPrivate Sub cmd_Update_Click()Data1.Recordset.Edit
SaveCancelEnableEnd Sub