Dim Result As DialogResultResult = MessageBox.Show("你确定要清除已收款单据吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)If Result = DialogResult.Ok Then For Each r As Row In Tables("应收款").Rows If r("未结算") = 0 Then r.Delete End If next
End if
做了个清除数据的按钮,每次点按都清除不净,只清除一部分,要连续点按几次才行