主题：[求助]关于客户档案自动输入的问题！

其实编号问题不满解决的，新增行的时候，从1开始遍历，如果现有行没有1的编号，则采用1作为编号，没有2，则采用2作为编号...

代码大概就是：

dim i as integer = 1

do loop

    if 编号为i的行存在 then

      i = i+1

    else

      编号 = i

      exit do

    end if

loop

其实啊，编号就不应该补空，编号就像一个人的身份证号码，不能应为某个人死了，其他人的身份证号就重新调整。

另外做个表，列出所有可用的编号，在客户信息表的DataRowAdding事件设置代码：

for Each v As String in DataTables("编号表").GetUnqiueValues("", "编号")

     if DataTables("客户档案").Find("编号 = '" & v & "'") is Nothing then

         e.DataRow("编号") = v

         exit for

     end if

next