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

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

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

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

刚才表述不全：

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

手工录入是可以防止重复值的，自动生成可能会重复。

假设完成下面这段代码需要10秒中（需要上是远远不会有这么长），一个用户第1秒执行这段代码，另一个用户第三秒执行这段代码，这样会出现两个新增的行，行号是一样的。

dim r as row =currenttable.addnew()

cmd.c

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

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

r.datarow.save()

dim r as row =currenttable.addnew()

cmd.c

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

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

r.datarow.save()

你认为这段代码会有什么问题？