主题：禁止整行输入

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

 

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

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

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

 

那你应该在增加行事件之前判断，或者不要增加行 啊。

 

如果不想执行下面的代码，可以写 return

如何写

 你肯定是在哪里新增行了啊，跟你1楼的代码有什么关系？

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

If Tables("导入排产产品_排产明细表").rows.Count > 0 Then
    For Each r1 As Row In Tables("导入排产产品_排产明细表").GetCheckedRows
        Dim fdr As DataRow = DataTables("采购明细表").Find("排产序列号 = '" & r1("排产序列号") & "'")
        If fdr IsNot Nothing Then
            Dim  r2 As Row = Tables("采购主表.采购明细表").AddNew
            r2("排产序列号") = r1("排产序列号")
            r2("产品ID") = r1("产品ID")
        End If
    Next
    e.Form.close
Else
    MessageBox.Show("该排产单无未下单项!")
End If