专家坐堂-远程sql数据库建立的用户信息，引用roles时出现错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 远程sql数据库建立的用户信息，引用roles时出现错误

均提示未将对象引用设置到对象的实例。如果将关于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