0

我创建了一个函数:

    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。

所以我不明白当我调试时它什么时候工作正常......然后为什么当我简单地运行它时它不能正常工作。

请帮忙。

4

0 回答 0