审核按钮
Tables("订单主表").Current.Locked = True
DataTables("订单明细").ReplaceFor("_Locked",True,"订单号='" & Tables("订单主表").Current("订单号") & "'")
DataTables("订单明细").ReplaceFor("审核","审","订单号='" & Tables("订单主表").Current("订单号") & "'")
反审核
Tables("订单主表").Current.Locked = False
DataTables("订单明细").ReplaceFor("_Locked",False,"订单号='" & Tables("订单主表").Current("订单号") & "'")
DataTables("订单明细").ReplaceFor("审核",Nothing,"订单号='" & Tables("订单主表").Current("订单号") & "'")