Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
BindingNavigatorAddNewItem.PerformClick()
Me.AgeDateTimePicker.Value = Date.Now
' قراءة جميع أرقام الهوية المسجلة سابقا
Dim Ids = From x In Me.TestDataSet.test Select x.id
' إنشاء متغير من دالة الأرقام العشوائية وتكون خارج اللوب
Dim r As New Random
' لوب
Do
' توليد رقم عشوائي ضمن مجال بين 100000000 و999999999 أي 9 أرقام
Dim n = r.Next(100000000, 999999999)
' التأكد من عدم وجود الرقم الجديد ضمن القائمة السابقة
If Not Ids.Contains(n) Then
' اعتماد الرقم الجديد ووضعه في مربع نص رقم الهوية
IdTextBox.Text = n
' الخروج من اللوب
Exit Do
End If
Loop
Catch ex As Exception
MsgBox("عفوا هناك سجل مفتوح حاليا", MsgBoxStyle.Information)
End Try
End Sub
