主题：关于 -Idnetify 与唯一编号的疑问

网络共享操作时，每增加一行，我是采用的SQL 语句来增加的，使用

 dim str as string = Format(date.now,"yyyy-MM-dd")

 cmd.commandtext = "select count(*) from {入库} where [制单日期] = '"& str &"'"
  dim str1 as string = cmd.ExecuteScalar()

  dim str4 as string

  if str1 > 0 then
     str4  = "IP" & Format(date.now,"yyyyMMdd") & Format(str1+1,"0000")

  else

     str4 = "IP" & Format(date.now,"yyyyMMdd") & "0001"

  end if
  cmd.CommandText = "Insert Into [入库] (入库单号,制单员,制单日期,制单时间,入库状态) Values('" & str4 & "','" & vars("用户") & "','" &  str5  &   "','" & str3 & "','单据录入')"
     cmd.ExecuteNonQuery()

之前也是有遇到楼主这种现象，现在就不会了。不知这样是否合理，但解决此问题。只提供楼主参考。