导入数据的自动编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我有个客户资料表，自动编号我是在DataRowAdding执行代码的，通过统计总行数进行编号，但是这样做我发现如果删掉其中一条资料的话，之后新增的就会出现重复编号，然后我想着新增之前先find一下，如果找到一样的，就+1，但是好像写得不行，附上代码，求指导。

Dim Count As Integer = e.DataTable.DataRows.Count
e.DataRow("资料编码") = "CS-" & Format(Count + 1,"0000")
Dim dr As DataRow = e.DataTable.Find("资料编码 = '" & e.DataRow("资料编码") & "'")
If dr IsNot Nothing Then
Count = Count + 1
End If

主题：导入数据的自动编号