If User.Group = "经理" Then For Each r As Row In Tables("生产订单").rows r("审核") = True r.locked = True r.Table.Position = r.Index For Each cr As Row In Tables("生产订单.订单明细").rows cr("审核") = True Next Next Else MessageBox.show("你无审核权限!")End If