関数を作成しました:
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 AcresImport()
For Each ..loop
Dim propId As String = randomid()
Next
End Sub
たまにしか正常に動作していません。つまり、いくつかの反復で propId をランダムに作成しています。例-上記のループに3つの反復がある場合、最初の2回の反復または最初の反復のみのpropIdがランダムに作成されます..ランダムに意味します。
しかし、それをデバッグすると、3 回の反復で 3 つの propIds がすべて正しく作成されます。
そのため、デバッグ時にいつ正常に動作しているのか理解できません..次に、単に実行すると正しく動作しないのはなぜですか。
助けてください。