主题：重复值

此主题相关图片如下：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