新建 文本文档.txt

来自「大家一起上传,一起下,对大家都有好处,」· 文本 代码 · 共 21 行

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