以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  在loadusersetting中为什么语句不能同时作用？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14805)

--  作者：0lily --  发布时间：2011/12/2 20:44:00 --  在loadusersetting中为什么语句不能同时作用？ 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

--  作者：狐狸爸爸 --  发布时间：2011/12/2 22:24:00 --   用例子说话。