| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- loadusersetting 报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138478) |
| -- 作者：落落155 -- 发布时间：2019/8/1 10:38:00 -- loadusersetting 报错 登录系统后，loadusersetting 事件里的代码报错怎么解决，不明白什么意思，代码如下： \'权限判断 If User.Group <> "管理员" Then If User.Group = "领导" Then Dim sit,sit1,sit2,sit3,sit4 As WinForm.StripItem sit= Forms("主窗口").Strips("工具栏1").Items("kh") sit1= Forms("主窗口").Strips("工具栏1").Items("fenpei") sit2= Forms("主窗口").Strips("工具栏1").Items("tj") sit3= Forms("主窗口").Strips("工具栏1").Items("pf-month") sit4= Forms("主窗口").Strips("工具栏1").Items("pf-ld") sit.Enabled = False sit1.Enabled = False sit2.Enabled = False sit3.Enabled = False sit4.Enabled = True Else Dim sit,sit1,sit2,sit3,sit4 As WinForm.StripItem sit= Forms("主窗口").Strips("工具栏1").Items("kh") sit1= Forms("主窗口").Strips("工具栏1").Items("fenpei") sit2= Forms("主窗口").Strips("工具栏1").Items("tj") sit3= Forms("主窗口").Strips("工具栏1").Items("pf-ld") sit4= Forms("主窗口").Strips("工具栏1").Items("pf-month") sit.Enabled = False sit1.Enabled = False sit2.Enabled = False sit3.Enabled = False sit4.Enabled = True End If Else Dim sit,sit1,sit2,sit3,sit4 As WinForm.StripItem sit= Forms("主窗口").Strips("工具栏1").Items("kh") sit1= Forms("主窗口").Strips("工具栏1").Items("fenpei") sit2= Forms("主窗口").Strips("工具栏1").Items("tj") sit3= Forms("主窗口").Strips("工具栏1").Items("pf-ld") sit4= Forms("主窗口").Strips("工具栏1").Items("pf-month") sit.Enabled = True sit1.Enabled = True sit2.Enabled = True sit3.Enabled = True sit4.Enabled = True End If \' 状态栏加载 With Forms("主窗口").Strips("状态栏") .Items("用户").Text = "登录用户: " & User.Name .Items("时间").Text = "今天日期: " & Date.today End With |
| -- 作者：有点蓝 -- 发布时间：2019/8/1 10:56:00 -- 窗口必须打开，才能创造窗口里面的控件。对窗口的权限控制请放到窗口afterload事件处理 |