以下是引用jk362223在2014-6-10 11:38:00的发言:
你测试的时候,是不是先以开发者的进入打开项目,然后再转换 医师001,若这样可以打开
编辑窗口.若一开始就用
医师001进入,则没有这些功能.
看了一下,不能不加载表,因为你动态的表的事件,必须在表加载的前提下才有效
Select Case e.DataTableName
Case "基本资料","员工" '表A和表B无条件加载
Case "挂号表","门诊病历","处方","实验室检查","病人扫描资料库","模板1","窗口列表项目","实验室清单模板","药品清单模板","身份证籍贯编码","代码记录"
If e.User.Type <> UserTypeEnum.Developer Then '只有开发者才加载表C
e.Cancel = True
End If
Case Else '其他所有表默认都不加载
e.Cancel = True
End Select