24-07-18, 08:31 PM
السلام عليكم
اخواني كيف يمكنني ان اقوم بتوليد ارقام عشوائية لكن يجب ان لا تتكر في قاعدة البيانات ، استخدمت هذا الكود لكن لم يجد نفعا
كود :
Dim rndN As Integer
rndN = Int(Rnd() * 10) + 1
Me.L_Nbon_credit.Text = rndN.ToString
For I As Integer = 0 To Me.DbDataSet.credit.Rows.Count - 1
If Me.DbDataSet.credit.Rows(I).Item("Nbon") = Me.L_Nbon_credit.Text Then
rndN = Int(Rnd() * 10) + 1
Me.L_Nbon_credit.Text = rndN.ToString
End If
Next