均提示未将对象引用设置到对象的实例。如果将关于roles的代码去除后则不会提示错误。
测试结果，如果用户的roles不为空，则不会出现运行错误；如果用户的roles为空，则会出现运行错误。难道还需要判断roles是否为空吗？
1、窗口的aferload事件：If user.roles.contains("录入")
e.Form.Controls("增加").enabled=True
Else
e.Form.Controls("增加").enabled=False
End If
2、窗口的aferload事件：
Dim cnt4 As Integer
'If user.group="服务管理中心" Or (user.group="行政人事部" And user.roles.contains("档案管理")) Or (user.group="行政人事部" And user.roles="行政人事部经理")
'
'cnt4= DataTables("合同基本信息表").Compute("Count([_identify])","提交合同交接日期 Is not null And 接收日期 Is null")
'Page1.Links("交接确认").text="交接确认(" & cnt4 & ")"
'Else
'cnt4= DataTables("合同基本信息表").Compute("Count([_identify])","_identify is null")
'Page1.Links("交接确认").text="交接确认(" & cnt4 & ")"
'End If
'If cnt4=0
'Page1.links("交接确认").Visible = False
'Else
'Page1.links("交接确认").Visible = True
'End If
加好友 
发短信
Post By：2018/2/1 17:19:00 [只看该作者]
