主题：重复问题

方法一：

 

http://www.foxtable.com/webhelp/scr/0680.htm

 

方法二：

 

用find查找一下，如果存在，就不addnew

 

http://www.foxtable.com/webhelp/scr/1451.htm

 

贴出你写的代码。

不要截图，拷贝粘贴出来，完整的代码。

If e.DataCol.Name = "处理结果_入库" AndAlso e.DataRow("处理结果_入库") = True Then
    Dim nma() As String = {"送货单号","收料编号","采购编号","物料代码","物料描述","规格型号","单位","来料数量","入库数量","供应商简称"} 'A表数据来源列
    Dim nmb() As String = {"送货单号","收料编号","采购编号","物料代码","物料描述","规格型号","单位","来料数量","入库数量","供应商简称"} 'B表数据接收列
    Dim dr As DataRow = DataTables("入库明细").Find("[收料编号] = '" & e.DataRow("收料编号") &  "'")
    If dr Is Nothing Then dr = DataTables("入库明细").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

能找到对应的编号，肯定不会新增行啊。