菜单代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单代码

共有2185人关注过本帖树形打印复制链接主题：菜单代码

爱相随

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

菜单代码

Post By：2015/2/6 11:47:00 [只看该作者]

老师，请帮我看一下菜单代码错在哪里，谢谢：

If Tables("ZJSQB").current("XZH")= True Then
        If Tables("ZJSQB").current.IsNull("SJSB") Then
            MessageBox.Show("不能审核未经上报的数据!.")
        Else
            If Tables("ZJSQB").current.IsNull("合约") Then
                 MessageBox.Show("审核意见为空,请检查!.")
          Else
            r("CBB2") = User.Name
            r("时间2") = Date.Today()
            r.Save()
        End If
     End If
    End If
提示：

编译错误：‘R’ is not acce accesible in this context because it is 'Private'

错误代码： r("CBB2") = User.Name
请老师修改一下，谢谢