编译错误：未找到方法或数据成员“求助”

Question

Option Explicit
Private rsSys As ADODB.Recordset
Private cmSys As ADODB.CommandPrivate Sub MDIForm_Load()        '此行是黄色高亮显示
    Dim strSQL As String
    strSQL = "select offline from r_parameter"
    Set rsSys = New ADODB.Recordset
    rsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic
    rsSys.MoveFirst
    If rsSys!offline Then
        Me.mnuAct_dj.Enabled = False
        Me.mnuSql.Enabled = False
        Me.mnuReport.Enabled = False
        Me.mnuSys_trans.Enabled = False
        Me.mnuSys_start.Enabled = True
        Me.mnuSys_begqty.Enabled = True
    Else
        Me.mnuAct_dj.Enabled = True
        Me.mnuSql.Enabled = True
        Me.mnuReport.Enabled = True
        Me.mnuSys_trans.Enabled = True
        Me.mnuSys_start.Enabled = False
        Me.mnuSys_begqty.Enabled = False
    End If
    rsSys.Close
    Set cmSys = New ADODB.Command
    cmSys.ActiveConnection = DEjxc.Conjxc
    cmSys.CommandType = adCmdText
End Sub

Answer 1

Private Sub MDIForm_Load()        '此行是黄色高亮显示
    Dim strSQL As String
    strSQL = "select offline from r_parameter"
    Set rsSys = New ADODB.Recordset
    rsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic
    rsSys.MoveFirst
    If rsSys!offline Then
        Me.mnuAct_dj.Enabled = False  '错误是你的菜单名写错了
        Me.mnuSql.Enabled = False
        Me.mnuReport.Enabled = False
        Me.mnuSys_trans.Enabled = False
        Me.mnuSys_start.Enabled = True
        Me.mnuSys_begqty.Enabled = True
    Else
        Me.mnuAct_dj.Enabled = True
        Me.mnuSql.Enabled = True
        Me.mnuReport.Enabled = True
        Me.mnuSys_trans.Enabled = True
        Me.mnuSys_start.Enabled = False
        Me.mnuSys_begqty.Enabled = False
    End If
    rsSys.Close
    Set cmSys = New ADODB.Command
    cmSys.ActiveConnection = DEjxc.Conjxc
    cmSys.CommandType = adCmdText
End Sub

Answer 2

rsSys!offline   offline是什么类型字段？不能这样判断吧？！

Answer 3

csdngoodnight(居然比我还快，你真行！) rsSys!offline   offline是什么类型字段？不能这样判断吧？！
这句话是什么意思啊？

Answer 4

我认为rsSys!offline应该是数据库字段值的引用.
至于你所说的出错.我想可能是你的程序中的某个属性名写错了或者某个对象不存在.仔细检查一下程序.