Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态列表排序问题


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

主题：动态列表排序问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/15 16:10:00 [只看该作者]

msgbox(_UserGroup) 

_UserGroup是分组吧，_username才是用户名

Visible = True 是显示，Visible = false才是看不见

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


加好友 发短信
等级：三尾狐 帖子：681 积分：4899 威望：0 精华：0 注册：2016/4/15 22:24:00 		未解决  发帖心情 Post By：2022/4/15 16:57:00 [只看该作者]

我以分组为用户单位，1个单位有几个员工；我是限制单位即限制分组，我将代码在窗口的AfterLoad事件，代码如下：

Select Case _UserGroup

    Case "用户1","用户2"

        e.Form.controls("Button4").Visible = False

    Case "用户3", "用户4"

        e.Form.controls("Button3").Visible = False   

End Select
这样代码没有用。

只写下面一个有效果

If _UserGroup = "用户1" Then
    e.Form.Controls("Button3").Enabled = False
End If

不知道什么原因

[此贴子已经被作者于2022/4/15 16:57:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/15 17:00:00 [只看该作者]

调试显示什么内容？

msgbox(_UserGroup) 
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：681 积分：4899 威望：0 精华：0 注册：2016/4/15 22:24:00 		无反映  发帖心情 Post By：2022/4/15 17:20:00 [只看该作者]

我分别已这些单位登录，显示全部按钮，代码没有作用

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


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/15 17:22:00 [只看该作者]

请上传实例说明

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


加好友 发短信
等级：三尾狐 帖子：681 积分：4899 威望：0 精华：0 注册：2016/4/15 22:24:00 		基本解决，还有点小问题  发帖心情 Post By：2022/4/15 18:42:00 [只看该作者]

在项目事件AfterOpenProject写代码

Select Case _UserGroup

    Case "用户1"

        Forms("主窗口").controls("Button1").Visible = False   ''True      Visible隐藏

     Case "用户2"

        Forms("主窗口").controls("Button1").Visible = False   ''True      Visible隐藏

    Case "用户3"

        Forms("主窗口").controls("Button2").Visible = False   ''True      Visible隐藏

    Case "用户4"

        Forms("主窗口").controls("Button2").Visible = False   ''True      Visible隐藏

End Select

老师这样写基本解决，但是项目打开后，有一点闪动，如何解决
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/16 8:46:00 [只看该作者]

1、
StopRedraw暂停绘制窗口
ResumeRedraw恢复绘制窗口
2、http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=32485
 回到顶部
总数 27 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询