明细表 beforeAddDataRow事件,代码
If Tables("采购订单主表").Current Is Nothing OrElse Tables("采购订单主表").Current.IsNull("审核人") = False Then msgbox("不能新增") e.cancel = TrueEnd If