If MessageBox.Show("是否核销?核销后将不出现在列表里","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes ThenFor Each r As Row In Tables("临调采购明细").GetCheckedRows
r("核销") = True
next
Tables("临调采购明细").save
DataTables("临调采购明细").loadfilter = "核销 = false"
DataTables("临调采购明细").load()
End If