📄 新建 文本文档.txt
字号:
Me.DataGrid1.AllowDelete = True
Me.Adodc1.RefREh
Me.DataGrid1.RefREh
bookindex = InputBox("输入你要删的图书的序号")
'RE.Close
If IsNumeric(bookindex) And bookindex <> 0 Then
sty = "select * from 图书 where 序列号='" & bookindex & " '"
RE.Open sty, Comsalary, adOpenKeyset, adLockOptimistic
RE.Delete
'RE.Fields("序列号") = bookindex
'RE.Open
'Me.Da
'RE.Update
'taGrid1.AllowUpdate = True
'MsgBox "允许在以上列表删除记录"
Me.Adodc1.RefREh
Me.DataGrid1.RefREh
Else: RE.Open
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -