版主，您好，请教提高代码效率 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

版主，您好，使用上次您指导的函数，“SN码信息”列不能重复，确保“SN码信息”列内容都是唯一值，目前功能实现了，就是每次粘贴≥500行数据后等半天（约2-5分钟）软件才完成粘贴动作（粘贴过程一直软件不能使用），请问是否还有其它代码能否提高录入数据效率，

If e.DataCol.Name = "SN码信息" Then

Dim dr As DataRow

dr = e.DataTable.Find("SN码信息 = '" & e.NewValue & "'")

If dr IsNot Nothing Then

MessageBox.Show("此SN码信息已经存在!")

e.Cancel = True

End If

主题：版主，您好，请教提高代码效率