加好友 发短信
等级:狐神
帖子:6708
积分:34304
威望:0
精华:11
注册:2012/8/18 23:10:00
|
Post By:2013/2/17 10:44:00 [只看该作者]
首先,你需要开启对应的全局表事件。 后这样写。 If _UserGroup = "开发" Then e.Cancel = False Else e.Cancel = True End If
----------------------------------
e.DataTable.SysStyles("Frozen").BackColor = Color.LightCyan e.DataTable.SysStyles("CurrentRow").BackColor = Color.Blue e.DataTable.SysStyles("CurrentRow").ForeColor = Color.White (这里只需要设置一次就行了,建议写在afteropenproject事件里,代码要变一下)
for each dt as datatable in datatables dt.SysStyles("Frozen").BackColor = Color.LightCyan dt.SysStyles("CurrentRow").BackColor = Color.Blue dt.SysStyles("CurrentRow").ForeColor = Color.White next
--------------------------------------------------
开启全局表 http://www.foxtable.com/help/topics/0671.htm
|
|