Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口代码报错。帮忙看一下


  共有2511人关注过本帖树形打印复制链接

主题：窗口代码报错。帮忙看一下
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/1 11:27:00 [显示全部帖子]

应该是菜单列数据和任务栏的名称不是一致

For Each dr As DataRow In DataTables("授权表").Select("用户 = '" & _UserGroup & "'" )
    If dr.IsNull("列名") Then
        msgbox(dr("菜单"))
        msgbox(tpb.Pages(dr("菜单")) is nothing)
        tpb.Pages(dr("菜单")).Visible = True
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/2 8:51:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/2 9:39:00 [显示全部帖子]

菜单列数据和任务栏的名称不一致
                    Dim tpb1 As WinForm.TopicBar = e.Form.Controls("菜单")
       msgbox(dr("菜单"))
        msgbox(tpb1.Pages(dr("菜单")) is nothing)
                    tpb1.Pages(dr("菜单")).Visible = Not dr("不可见")

学不会调试就上传实例
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/2 11:09:00 [显示全部帖子]

怎么测试？使用哪个账户登录测试？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/2 11:53:00 [显示全部帖子]

很简单的问题，如果学不会调试，永远都只等着别人来解决？一个简单的问题搞几天？
1、添加调试代码

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
2、使用xs登录系统，退出导航窗口，打开命令窗口，然后打开导航窗口，可以看到命令窗口显示到教师管理处出错

图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
3、很明显导航栏没有【教师管理】或者是名称不正确，打开窗口设计，看到【教师管理】是有的，但是显示名称不正确

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

之前已经多次说名称会有问题了，都不会去检查一下？那么有自信的吗！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询