编程论坛 » VB6论坛 » vb 91错误 帮帮忙啊

doudoulong 发表于 2008-5-9 23:49

vb 91错误 帮帮忙啊

Private Sub MDIForm_Activate()
'设置操作员权限
With Data1.Recordset
If Data1.Recordset.BOF = False Then Data1Recordset.MoveFirst
Data1.Recordset.FindFirst "操作员 like " + Chr(34) + Chr(34) + ""
If Data1.Recordset.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


有数据库，有data1控件,但黄色光标指向 If Data1.Recordset.BOF 提示 VB中对象变量或with块变量错误

三断笛 发表于 2008-5-10 16:15

好像小了一个小点
是If Data1.Recordset.BOF = False Then Data1.Recordset.MoveFirst
不是
If Data1.Recordset.BOF = False Then Data1Recordset.MoveFirst
自己看

三断笛 发表于 2008-5-10 16:16

还有 前面已经有with了,还用什么data1.recordset?
直接.BOF,.MoveFirst不就可以了?

doudoulong 发表于 2008-5-10 19:29

我改了，还是出现那点错误
With Data1.Recordset
If .BOF = False Then .MoveFirst
.FindFirst "操作员 like " + Chr(34) + Chr(34) + ""
If .NoMatch Then
还是黄色光标指向 If .BOF 提示 VB中对象变量或with块变量错误

doudoulong 发表于 2008-5-10 20:06

大家帮帮忙啊

查看完整版本: vb 91错误 帮帮忙啊