主题：禁止整行输入

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

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

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

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

 改成这样

If fdr Is Nothing Then