For Each r As Row In Tables("采购计划明细表").Rows If r.Checked = True Then Tables("采购计划明细表").Filter = "r.Checked = false" End IfNext
筛选行号改的复选框没选中的行