主题：禁止整行输入

If e.DataCol.Name = "排产序列号" Then
    Dim dr As DataRow 
    dr = e.DataTable.Find("排产序列号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此产品已入库!")
        e.Cancel = True
    End If
End If

 

我发现上面这段代码用导入只是禁止了“排产序列号”的输入， 导入行的其他字段都输入进去了， 如何禁止整行数据的输入

提醒后增加了一行， 排产序列号也写进去了，如何禁止增加一行， 可以写return吗

如何写

2楼代码可以写在导入按钮里吗

导入按钮代码

 

If Tables("导入排产产品_排产明细表").rows.Count > 0 Then

    For Each r1 As Row In Tables("导入排产产品_排产明细表").GetCheckedRows
        Dim  r2 As Row = Tables("采购主表.采购明细表").AddNew
        r2("排产序列号") = r1("排产序列号")
        r2("产品ID") = r1("产品ID")
    Next
    e.Form.close   
Else
    MessageBox.Show("该排产单无未下单项!")
End If

老师，测试了一下没起作用