备注列权限问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问此段代码如何简化好，让不同部门编辑不同列，现在的代码如何有增加列的时候就会做好多修改？

' 让不同部门编辑不同的列

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

主题：备注列权限问题