再看第二种情况,假定消费表中还有一个折扣列,我们希望只有经理级别的人员,才能给客户打折,也就是只有经理级别的操作人员才能在该列中输入或修改数据,实现代码同样很简单,在该表的PrepareEdit事件中输入:
If e.Col.Name = "折扣" AndAlso User.Group <> "经理" Then e.Cancel = TrueEnd If