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 AcresImport()
  For Each ..loop
      Dim propId As String = randomid()
  Next
End Sub

たまにしか正常に動作していません。つまり、いくつかの反復で propId をランダムに作成しています。例-上記のループに3つの反復がある場合、最初の2回の反復または最初の反復のみのpropIdがランダムに作成されます..ランダムに意味します。

しかし、それをデバッグすると、3 回の反復で 3 つの propIds がすべて正しく作成されます。

そのため、デバッグ時にいつ正常に動作しているのか理解できません..次に、単に実行すると正しく動作しないのはなぜですか。

助けてください。

4

0 に答える 0