主题：导入窗口中导入问题

在导入窗口中， 导入按钮的代码为：

If Tables("采购主表.采购明细表").rows.Count > 0 Then

    For Each r1 As Row In Tables("采购主表.采购明细表").GetCheckedRows
        Dim  r2 As Row = Tables("入库主表.入库明细表").AddNew
        r2("排产序列号") = r1("排产序列号")
        r2("采购单号") = r1("采购单号")
        r2("产品编号") = r1("产品编号")
        r2("数量") = r1("数量")
        r2("单价") = r1("单价")
        r2("单位") = r1("单位")
        'r2("产品编号") = r1("单位")
    Next
    e.Form.close   
Else
    MessageBox.Show("该笔订单无未下单项!")
End If

 

 

如何加入一个判断，排产序列号不能重复，如重复就提示此产品已入库，拒绝导入？？？

 

现在知道在表中可以加入以下代码， 但在窗口中虽然有提示， 但还是导入了， 如何不允许导入呢？？

 

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

你这个代码应该写到 上面的循环遍历中去.

那个上面， 请版主明示？如何做呢， 不会呀

楼主问题交代不清楚

If Tables("采购主表.采购明细表").rows.Count > 0 Then

    For Each r1 As Row In Tables("采购主表.采购明细表").GetCheckedRows

         Dim dr As DataRow 
        dr = Tables("入库主表.入库明细表").DataTable.Find("排产序列号 = '" & e.NewValue & "'")

        If dr Is Nothing Then
        Dim  r2 As Row = Tables("入库主表.入库明细表").AddNew
        r2("排产序列号") = r1("排产序列号")
        r2("采购单号") = r1("采购单号")
        r2("产品编号") = r1("产品编号")
        r2("数量") = r1("数量")
        r2("单价") = r1("单价")
        r2("单位") = r1("单位")
        'r2("产品编号") = r1("单位")

       end if
    Next
    e.Form.close    
Else
    MessageBox.Show("该笔订单无未下单项!")
End If

我有一个入库表， 为了防止同一产品入库多次， 做法如下：

首先，排产序列号为唯一号，把此字段设为禁止重复， 然后再入库表的DataColChanging事件里加入以下代码：

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

虽然提示此产品已入库，但数据还是添加进去了

看5楼

版主，复制你的代码出现

此主题相关图片如下：21.jpg

改为  r1("排产序列号")

不懂