Select Case e.Col.name
Case "校对"
e.cancel=(User.Group <>"生产主管")
Case "开piao否","开piao完结"
e.cancel=(User.Group <>"综合主管")
Case "编号"
If e.Row("校对") = False OrElse e.Row("开piao否") = False OrElse e.Row("开piao完结") = False Then
e.cancel=True
End If
Case "到货日期","发货日期"
If User.Group <>"生产主管" AndAlso User.Group <>"订单业务员" OrElse e.Row.isnull(e.Col.name)=false
e.cancel=True
End If
End Select