主题：这段代码我只想product表里添加一条记录 结果是添加了两个

这段代码我只想product表里添加一条记录 结果是添加了两个 ? 请问该怎么修改

If e.DataRow.isnull("cord")=False Then
       Dim dr As DataRow
        dr = DataTables("product").Find("[cord] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("name") = dr("shangpinming")
            e.DataRow("markprice") = dr("markprice")
           
Else

e.DataRow("nnn")=e.DataRow("name")     

If e.DataRow.isnull("nnn")=False And dr Is Nothing Then
Dim idxs As String = ""
For i As Integer = Tables("rukudanhao.rukudan").TopPosition To Tables("rukudanhao.rukudan").BottomPosition
    idxs &= Tables("rukudanhao.rukudan").Rows(i)("_Identify")
Next

Dim f As New Filler
f.Filter = "_Identify in (" & idxs.Trim(",") & ")"
f.SourceTable = DataTables("rukudan") '指定数据来源
f.SourceCols = "cord,name,markprice" '指定数据来源列
f.DataTable = DataTables("product") '指定数据接收表
f.DataCols = "cord,shangpinming,markprice" '指定数据接收列
f.Fill() '填充数据
DataTables("product").save()
End If
End If

If e.DataRow.isnull("cord")=False Then
       Dim dr As DataRow
        dr = DataTables("product").Find("[cord] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("name") = dr("shangpinming")
            e.DataRow("markprice") = dr("markprice")
           
Else

e.DataRow("nnn")=e.DataRow("name")     

If e.DataRow.isnull("nnn")=False And dr Is Nothing Then
Dim idxs As String = ""
For i As Integer = Tables("rukudanhao.rukudan").TopPosition To Tables("rukudanhao.rukudan").BottomPosition
    idxs &= Tables("rukudanhao.rukudan").Rows(i)("_Identify")
Next

Dim f As New Filler
f.Filter = "_Identify in (" & idxs.Trim(",") & ")"
f.SourceTable = DataTables("rukudan") '指定数据来源
f.SourceCols = "cord,name,markprice" '指定数据来源列
f.DataTable = DataTables("product") '指定数据接收表
f.DataCols = "cord,shangpinming,markprice" '指定数据接收列
f.Fill() '填充数据
DataTables("product").save()
End If
End If

加了，

一样

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:丽颜.foxdb

不对啊

数据反尔  添加了