主题：如何解决删除多条记录时重复提示？

If MessageBox.Show("是否删除选中记录?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes
    If CurrentTable.Compute("count(BBCheck)", "BBCheck = true") > 0 Then
        CurrentTable.DataTable.DeleteFor("BBCheck = true and YNKP = false")
        Dim del As Boolean=True
        With CurrentTable
            For Each r As DataRow In .DataTable.Select("BBCheck = True")
                If r("YNKP") Then
                    del=False
                    Exit For
                End If
            Next
        End With
       
        If del=False Then
            MessageBox.Show("已付款或已开piao记录不能删除!", "提示")
        End If
       
    Else
        Dim del As Boolean=True
       
        With CurrentTable
            For i As Integer = .BottomPosition To .TopPosition Step -1
                If .Rows(i)("YNKP") Then
                    del=False
                Else
                    .Rows(i).Delete
                End If
            Next
        End With
        If del=False Then
            MessageBox.Show("已付款或已开piao记录不能删除!", "提示")
        End If
    End If
End If

问题解决，再追问一个：

If CurrentTable.Compute("count(BBCheck)", "BBCheck = true") > 0 Then
CurrentTable.DataTable.DeleteFor("BBCheck = true and YNKP = false")

通过上两行代码思路如何实现在按钮事件中：当勾选若干条记录时，把勾选记录的逻辑列（YNKP)批量改为TRUE？

帮忙啦：）

  CurrentTable.DataTable.ReplaceFor("YNKP", True, "BBCheck = true")