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

下面的代码是正确：

If User.Group = "业务经理" Then

Select Case e.Col.Name

Case "审核","审核日期","审核人"

Case Else

e.Cancel = True '则禁止编辑

End Select

End If

下面代码有问题，与需求不致，请帮修改，谢谢

需求1：如果分组不是业务经理，除"审核","审核日期","审核人"，为不可编辑，其他都可以编辑？

需求2：如何上面的代码和下代码合在一起，写得比较简洁？

If User.Group <> "业务经理" Then '如果分组不是业务经理

Select Case e.Col.Name

Case "审核","审核日期","审核人" '如何实现禁止编辑

Case Else

e.Cancel = False '则可编辑

End Select

End If

主题：代码问题