打印

vb 91号错误,请大家帮忙啊!!谢谢

本主题由王懿于 2008-5-18 21:21 设置高亮

doudoulong

Member

Rank: 2

UID: 10911
帖子: 35
精华: 0
积分: 121
所在学校
所属专业
阅读权限: 20
在线时间: 5 小时
注册时间: 2008-5-10

1^# 大中小发表于 2008-5-11 13:01 只看该作者

vb 91号错误,请大家帮忙啊!!谢谢

Private Sub MDIForm_Activate()
'设置操作员权限
With Data1.Recordset
If .BOF = False Then .MoveFirst
.FindFirst "操作员 like " + Chr(34) + Chr(34) + ""
If .NoMatch Then
Else
main.zjyj.Enabled = .Fields("追加押金")
main.zsdj.Enabled = .Fields("住宿登记")
main.tsjz.Enabled = .Fields("退宿结账")
main.tfdj.Enabled = .Fields("调房登记")
main.kfsz.Enabled = .Fields("客房管理")
main.kfcx.Enabled = .Fields("客房查询")
main.ftck.Enabled = .Fields("房态查看")
main.zscx.Enabled = .Fields("住宿查询")
main.tfcx.Enabled = .Fields("退宿查询")
main.sftx.Enabled = .Fields("宿费提醒")
main.xstj.Enabled = .Fields("客房销售统计")
main.czysz.Enabled = .Fields("操作员设置")
main.mmsz.Enabled = .Fields("密码设置")
main.csh.Enabled = .Fields("初始化")
main.qxsz.Enabled = .Fields("权限设置")
End If
End With
End Sub

在 If .BOF = False Then 黄色光标指出VB中对象变量或with块变量错误（91号错误）

TOP

89_G

Tech Support

Rank: 12

UID: 10206
帖子: 315
精华: 1
积分: 1240
所在学校
所属专业
阅读权限: 200
在线时间: 20 小时
注册时间: 2008-4-3

2^# 大中小发表于 2008-5-11 13:31 只看该作者

1.你连接数据库时可能出错了，检查一下connectstring这句语句，是否写正确，或者把他该成connectstring ="file name=你保存的DNS的路径".注意的是在odbc源中选择dns文件哦！

2.你的sql语句有没有写正确，查看方法是把你的语句放到sql server中的查询分析器中去运行一下，看看有没有什么问题！有问题就改一下！

百度的~~~
不会编程的人飘过~

TOP

Stone

水族杰纶

Moderator

Rank: 12

兰色忧郁

UID: 666
帖子: 441
精华: 0
积分: 4762
所在学校: 西安翻譯學院
所属专业: 計算機信息管理
阅读权限: 100
性别: 男
在线时间: 175 小时
注册时间: 2008-3-11

版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

3^# 大中小发表于 2008-5-11 14:55 只看该作者

就这些代码，根本没有办法给你判断问题所在~

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 384
精华: 6
积分: 2586
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 79 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

4^# 大中小发表于 2008-5-11 18:40 只看该作者

百度上有说的，像1楼说的。
就这点程序很难判断

TOP

doudoulong

Member

Rank: 2

UID: 10911
帖子: 35
精华: 0
积分: 121
所在学校
所属专业
阅读权限: 20
在线时间: 5 小时
注册时间: 2008-5-10

5^# 大中小发表于 2008-5-14 21:32 只看该作者

这是我的程序，是主界面中有错误

[ 本帖最后由 doudoulong 于 2008-5-14 21:36 编辑 ]

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 384
精华: 6
积分: 2586
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 79 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

6^# 大中小发表于 2008-5-14 21:36 只看该作者

引用:

原帖由 doudoulong 于 2008-5-14 21:32 发表
这是我的程序，是主界面中有错误

我还是无法判断啊。。。

TOP

doudoulong

Member

Rank: 2

UID: 10911
帖子: 35
精华: 0
积分: 121
所在学校
所属专业
阅读权限: 20
在线时间: 5 小时
注册时间: 2008-5-10

7^# 大中小发表于 2008-5-14 21:37 只看该作者

我想把程序传上去，可是慢，传不上啊

TOP

doudoulong

Member

Rank: 2

UID: 10911
帖子: 35
精华: 0
积分: 121
所在学校
所属专业
阅读权限: 20
在线时间: 5 小时
注册时间: 2008-5-10

8^# 大中小发表于 2008-5-14 21:58 只看该作者

这个是设计

[ 本帖最后由 doudoulong 于 2008-5-14 22:00 编辑 ]

TOP

doudoulong

Member

Rank: 2

UID: 10911
帖子: 35
精华: 0
积分: 121
所在学校
所属专业
阅读权限: 20
在线时间: 5 小时
注册时间: 2008-5-10

9^# 大中小发表于 2008-5-14 22:05 只看该作者

我用的是data控件啊，没用sql，也没用connection那个

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

UID: 318
帖子: 384
精华: 6
积分: 2586
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 79 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

10^# 大中小发表于 2008-5-14 22:50 只看该作者

百度问题：
Private Sub Command2_Click()
Data1.RecordSource = 主板
Data1.Refresh
Text1.DataField = 型号
Data1.Recordset.MoveNext '运行到这里时提示错误91 对象变量或
End Sub 'with 块变量示设置
这是怎么回事？
问题补充：'运行到这里时提示错误91 对象变量或with 块变量未设置

最佳答案：
唉！！！
首先你必须搞清：
Data1.RecordSource = 这个后面是什么？
你的 “主板” 在这里好像是变量或者说可能是对象，控件Data肯定不会识别的。

TOP