以下是引用lpxjw_zyl在2010-3-17 9:31:00的发言:
for i as Double = 10000001 to 1000099
Dim cmd As New SQLCommand
cmd.CommandText = "Insert Into Xssj (_Identify,编号,产品) Values('" & i & "'100,'PD01')"
cmd.C
cmd.ExecuteNonQuery()
next
_Identify列如果不是自动增量列的话 可以。
代码还能修改一下:
Dim cmd As New SQLCommand
cmd.C
for i as Double = 10000001 to 1000099
cmd.CommandText = "Insert Into Xssj (_Identify,编号,产品) Values('" & i & "'100,'PD01')"
cmd.ExecuteNonQuery()
next
这边能避免在循环中申明变量