主题：重复值

此主题相关图片如下：1.png

 

有一个采购明细表，我想在采购明细表里限制不允许输入相同的商品名称记录，于是在采购明细表DataColChanging写了代码，要在导入商品的时候出现上图中物品名称界面的时候，取消商品勾选框，停止导入，可是下面的代码不执行，请教了

 

DataColChanging

 

If e.DataCol.Name="物品编号" Then   ' 做一个查找

    Dim dr As DataRow=DataTables("采购明细表").Find("物品编号='" & e.NewValue & "'")  '新的值在订单表里查找

    If dr IsNot Nothing Then  '如果有说明重复

        If MessageBox.Show("物品名称重复","提醒",MessageBoxButtons.YesNo,MessageBoxIcon.Question)= DialogResult.Yes Then

            For Each r As Row In Tables("导入采购物品_Table1").GetCheckedRows

                r.Checked = False

            Next

        End If

    End If

End If

 

 

此主题相关图片如下：2222222.png

导入代码

For Each r As Row In Tables("导入采购物品_Table1").GetCheckedRows
    Dim r1 As Row = Tables("采购明细表").AddNew
    Dim r2 As Row = Tables("采购总表").Current
    r1("日期") = r2("日期")
    r1("供应商") = r2("供应商")
    r1("采购单号") = r2("采购单号")
    r1("付款方式") = r2("付款方式")
    r1("采购员") = r2("采购员")
    r1("类别编号") = r("类别编号")
    r1("物品类别") = r("物品类别")
    r1("物品编号") = r("物品编号")
    r1("物品名称") = r("物品名称")
    r1("规格") = r("规格")
    r1("型号") = r("型号")
    r1("单位") = r("单位")
    r1("单价") = r("单价")
Next
e.Form.close