主题：离开某数据表时提出警告

上述代码里面，如果要增加一个筛选条件，比如把“制造产品号”为空或者“计划数量”为0的数据行都筛选出来，而且把这两种情况的数据行都删除掉，那要怎样修改代码？谢谢。

If e.OldTableName = "接头巴任务单" Then
    Dim a As DataRow = DataTables("接头巴任务单").Find("制造产品号 is null or 计划数量 is null or 计划数量 = 0")
    If a IsNot Nothing Then
        Dim Result As DialogResult
        Result = MessageBox.Show("接头巴任务单填写不完整,是否要离开此表?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            DataTables("接头巴任务单").deletefor("制造产品号 is null or 计划数量 is null or 计划数量 = 0")
        Else
            e.cancel = True
        End If
    Else
        DataTables("接头巴任务单").save
    End If
End If