以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于SN码信息列重复内容报错信息咨询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188450)

--  作者:divil
--  发布时间:2023/9/20 17:45:00
--  关于SN码信息列重复内容报错信息咨询

版主,您好!我在软件设置如下代码,但是SN码列粘贴不是重复的内容还是弹窗显示SN码已经存在,其它软件用这个代码没问题,,只有这个软件用这个代码就失效,很奇怪。
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看

If e.DataCol.Name = "SN码信息" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("SN码信息 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此15位SN码信息已经存在!")
        e.Cancel = True
    End If
End If

--  作者:有点蓝
--  发布时间:2023/9/21 8:39:00
--  
代码放到datacolchanging事件
--  作者:divil
--  发布时间:2023/9/21 11:04:00
--  
版主,收到,我试了,发现将500行数据复制到软件中软件非常慢半天反应不过来,复制100行数据就几秒钟好了,都有点怀疑是电脑CPU配置低了。谢谢啊。