我创建了一个函数:
Function randomid() As String
Try
Dim i As Integer
Dim temp As String = ""
Dim rnd As New Random
i = rnd.Next(100, 99999)
temp = "ABC" & i
Dim count As Integer = Dal.ExecuteScalar("select count(*) from property where property_id='" & temp & "'")
If count > 0 Then
randomid()
Else
Return temp
End If
Catch ex As Exception
End Try
End Function
我从下面的 sub 中调用上面的函数:
Sub AcresImport()
For Each ..loop
Dim propId As String = randomid()
Next
End Sub
它有时只能正常工作。我的意思是它正在为某些迭代随机创建 propId。对于 Ex - 如果上述循环中有 3 次迭代,它将为 Ist 两次迭代或仅 Ist 迭代随机创建 propId ..意味着随机。
但是当我通过它进行调试时,它将正确地为 3 次迭代创建所有 3 个 propId。
所以我不明白当我调试时它什么时候工作正常......然后为什么当我简单地运行它时它不能正常工作。
请帮忙。