Private Sub Command1_Click() Adodc1.Recordset.Update MsgBox "修改成功!" End Sub
Private Sub Command1_Click() On Error GoTo aa Adodc1.Recordset.Delete Exit Sub aa: MsgBox "当前表中已没有任务记录" End Sub
1,216
社区成员
55,954
社区内容
加载中
试试用AI创作助手写篇文章吧