主题：[求助]为什么会有这种提示?

此主题相关图片如下：错误提示.bmp

这是什么原因造成的?求解释

 哪个事件，执行什么代码报的错？

AfterOpenProject事件

If _UserName <> "admin" Then
        TableCaptionVisible = False
    Dim xtcd As RibbonMenu.Button = RibbonTabs("功能区1").Groups("9").Items("使用帮助").Items("进入系统菜单")
    xtcd.Visible=False
End If
报错继续后还提示不能找到"功能区1"

提示1楼的错误，和你3楼的代码没什么关系。你关闭重新打开试试。

 

如果提示【不能找到"功能区1"】，是因为你切换到了系统菜单，自然找不到对应的菜单，你切换成自己的菜单后就不会报错。

此主题相关图片如下：错误提示1.bmp

编写代码后关闭窗口保存后进入用户登录窗口选择用户确定后出现的错误提示

 看看你 登陆窗口 确定按钮的代码。

 

 出错的，做个具体例子发上来测试。

登录窗口确定按钮的代码:

Dim UserName As String = e.Form.Controls("UserName").Value
Dim dr As DataRow
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.SQLFind("[用户名] = '" & UserName & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("PassWord").Value = dr("密码") Then
    _UserName = UserName
    _UserGroup = dr("用户分组")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 上传实例测试。

关闭重新进入后没报错了.也不知道是什么原因在编写项目事件AfterOpenProject代码时会报错,又重编写了一下还是出现报错,但关闭重新进入又没报错了.

 那就不要理会它，只要打开正常就可以。