' 让不同部门编辑不同的列
Select Case User.Group ' 禁止部门 编辑相关列.
Case "客服部"
Select Case e.Col.Name
Case "PMC回复交期","物料备齐日期","外购物料标识","生产周期","在产标识","排产计划日期","物料到货标识","外购物料日期","PMC备注","生产部备注","采购部备注"
e.Cancel = True
End Select
Case "PMC"
Select Case e.Col.Name
Case "开始日期","结束日期","PMC接收日期","T6单号","产品型号","产品数量","进仓时间","发货日期","客户名称","项目名称","跟单负责人","大区","省份","城市","订单类别","单价","订单级别","创建者","在产标识","销售额","生产周期","排产计划日期","物料到货标识","外购物料日期","物流单号","业务员","订单级别","客服部备注","生产部备注","采购部备注"
e.Cancel = True
End Select
Case "生产部"
Select Case e.Col.Name
Case "开始日期","结束日期","PMC接收日期","PMC回复交期","物料备齐日期","T6单号","产品型号","产品数量","发货日期","客户名称","项目名称","跟单负责人","大区","省份","城市","订单类别","单价","订单级别","创建者","销售额","外购物料日期","外购物料标识","物料到货标识","物流单号","业务员","订单级别" ,"客服部备注","PMC备注","采购部备注"
e.Cancel = True
End Select
Case "采购部"
Select Case e.Col.Name
Case "开始日期","结束日期","PMC接收日期","T6单号","产品型号","产品数量","PMC回复交期","进仓时间","发货日期","客户名称","项目名称","跟单负责人","大区","省份","城市","订单类别","单价","订单级别","创建者","物料备齐日期","在产标识","销售额","在产标识","生产周期","排产计划日期","物流单号","业务员","订单级别" ,"客服部备注","PMC备注","生产部备注"
e.Cancel = True
End Select
Case "销售部"
Select Case e.Col.Name
Case "开始日期","结束日期","PMC接收日期","T6单号","产品型号","产品数量","PMC回复交期","异常记录","进仓时间","发货日期","客户名称","项目名称","跟单负责人","大区","省份","城市","订单类别","单价","订单级别","创建者","物料备齐日期","在产标识","销售额","外购物料日期","外购物料标识","生产周期","排产计划日期","物料到货标识","物流单号","业务员","订单级别" ,"客服部备注","PMC备注","生产部备注","采购部备注"
e.Cancel = True
End Select
Case "经理"
Select Case e.Col.Name
Case "开始日期","结束日期","PMC接收日期","T6单号","产品型号","产品数量","PMC回复交期","异常记录","进仓时间","发货日期","客户名称","项目名称","跟单负责人","大区","省份","城市","订单类别","单价","订单级别","创建者","物料备齐日期","在产标识","销售额","外购物料日期","外购物料标识","生产周期","排产计划日期","物料到货标识","物流单号","业务员","客服部备注","PMC备注","生产部备注","采购部备注"
e.Cancel = True
End Select
End Select
加好友 
发短信
Post By：2014/7/7 9:42:00 [显示全部帖子]
此主题相关图片如下：002.jpg
