Foxtable(狐表)用户栏目专家坐堂 → 在loadusersetting中为什么语句不能同时作用?


  共有10900人关注过本帖树形打印复制链接

主题:在loadusersetting中为什么语句不能同时作用?

美女呀,离线,留言给我吧!
0lily
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:5 积分:117 威望:0 精华:0 注册:2011/11/29 15:02:00
在loadusersetting中为什么语句不能同时作用?  发帖心情 Post By:2011/12/2 20:44:00 [只看该作者]

If User.Group = "主管" Then DataTables("表A").AllowEdit = True Else DataTables("表A").AllowEdit = False End If For Each t As Table In Tables t.Visible = True t.AllowEdit = True For Each c As Col In t.Cols c.Visible = True c.AllowEdit = True Next Next Tables("授权表").Visible = (User.Type <> UserTypeEnum.User ) If User.Type = UserTypeEnum.User Then For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" ) If dr.IsNull("列名") Then Tables(dr("表名")).Visible = Not dr("不可见") Tables(dr("表名")).AllowEdit = Not dr("不可编辑") Else Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见") Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑") End If Next End If

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/2 22:24:00 [只看该作者]

用例子说话。

 回到顶部