If vr("状态") = "闲置中" Then Dim r As Row = Tables("餐桌管理.订单表").AddNew() Tables("订单表").Position = Tables("订单表").FindRow("订单编号='" & r("订单编号") & "'") Tables("订单表.消费信息").Filter = "1=2" Tables("订单表.结账登记").Filter = "1=2" Tables("订单表.清场登记").Filter = "1=2" Tables("订单表.预约登记").Filter = "1=2" End If