主题：互联网上如何禁止重号

给一个新增的行赋一个值，使用下面的代码

dim r as row =currenttable.addnew()

cmd.c

cmd.commandtext="select count(_identify) from {表A}

r("行号")=cmd.ExecuteScalar()+1

r.datarow.save()

这个代码看起来是没有问题。

 

如果两个用户同时（即0.00000001秒都不差）执行这段代码，就会产生重号，假设执行

cmd.commandtext="select count(_identify) from {表A}

r("行号")=cmd.ExecuteScalar()+1

需要0.00001秒，就会新增的两行都是同一个号码。

 

 

说明一下，这个行号是自动生成的，不是手工录入的。