以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于副本  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90664)

--  作者：lk15502 --  发布时间：2016/9/19 15:07:00 --  关于副本 因为订单表在其他地方应用副本，所以在表事件的prepareedit中代码，请老师看看有什么问题，好像挺占资源的 Dim cl As Col = Tables("订单表").Cols("生产计划要求") Dim cl1 As Col = Tables("订单表").Cols("订单状态") Dim cl2 As Col = Tables("订单表").Cols("是否结账") If _userroles.Contains("生产计划") = True Then     cl.DataCol.allowedit = True Else     cl.DataCol.allowedit = False End If If _userroles.contains("订单审核") = True Then     cl1.DataCol.allowedit = True     cl2.DataCol.allowedit = True Else     cl1.DataCol.allowedit = False     cl2.DataCol.allowedit = False End If

--  作者：有点蓝 --  发布时间：2016/9/19 15:51:00 --   Select Case e.Col.Name     Case "生产计划要求"         If _userroles.Contains("生产计划") = False Then e.Cancel = True     Case "订单状态","是否结账"         If _userroles.contains("订单审核") = False Then e.Cancel = True End Select

--  作者：lk15502 --  发布时间：2016/9/19 16:14:00 --   谢谢，测试效果不错