VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
关于问题，图书类别删除事件
发表在VB答疑区
2008-10-18
是否精华
是
否
版块置顶:
是
否
你好，我买了贵公司由人民邮电出版社出版的《Visual Basic 管理信息系统完整项目实例剖析》一书，按提示将所附光盘内容复制后运行。
在图书类别管理中，删除某个类别会弹出错误，系统提示：实时错误 '91' 对象变量或With块变量未设置。
调试时,发现 main_jcxx_tslbsz窗体下面语句:
Private Sub CmdDelete_Click() '删除图书类别信息
rs1.Open "select * from tslbb where 类别名称='" + Text1(3).text + "'order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
With rs1
If .RecordCount > 0 Then
a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If a = vbYes Then
.Delete '删除记录
.Update '更新记录
For i = 1 To 3
[strong][u]Text1(i).text = Adodc1.Recordset.Fields(i) '将字段值赋给Text1控件数组[/u][/strong]
Next i
Combo1.text = Adodc1.Recordset.Fields("级别")
'设置按钮有效或无效
CmdSave.Enabled = False
CmdEsc.Enabled = False
CmdAdd.Enabled = True
CmdDelete.Enabled = True
End If
Else
MsgBox ("没有要删除的数据！")
End If
End With
rs1.Close
TreeView1.Nodes.Clear '清空TreeView中的数据
Call Tree_change '调用过程
End Sub
出现问题.
请问怎么解决啊?
烦请给予指导,我急等着用的.
谢谢!
在图书类别管理中，删除某个类别会弹出错误，系统提示：实时错误 '91' 对象变量或With块变量未设置。
调试时,发现 main_jcxx_tslbsz窗体下面语句:
Private Sub CmdDelete_Click() '删除图书类别信息
rs1.Open "select * from tslbb where 类别名称='" + Text1(3).text + "'order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
With rs1
If .RecordCount > 0 Then
a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If a = vbYes Then
.Delete '删除记录
.Update '更新记录
For i = 1 To 3
[strong][u]Text1(i).text = Adodc1.Recordset.Fields(i) '将字段值赋给Text1控件数组[/u][/strong]
Next i
Combo1.text = Adodc1.Recordset.Fields("级别")
'设置按钮有效或无效
CmdSave.Enabled = False
CmdEsc.Enabled = False
CmdAdd.Enabled = True
CmdDelete.Enabled = True
End If
Else
MsgBox ("没有要删除的数据！")
End If
End With
rs1.Close
TreeView1.Nodes.Clear '清空TreeView中的数据
Call Tree_change '调用过程
End Sub
出现问题.
请问怎么解决啊?
烦请给予指导,我急等着用的.
谢谢!
分享到：
