كود :
Dim tblRandom As New DataTable
Dim rand As New Random
Dim TRow = (Val((TextBox1.Text).Trim) * Val((TextBox2.Text).Trim))
Dim row As String() = New String() {0}
tblRandom.Columns.Add("Testing")
tblRandom.Constraints.Add("pk", tblRandom.Columns(0), True)
While tblRandom.Rows.Count < Val((TextBox2.Text).Trim)
For zCounter = 1 To Val((TextBox1.Text).Trim)
Dim ii As Integer = zCounter - 1
For x As Integer = 1 To Val((TextBox2.Text).Trim)
Access3.ExecQuery("SELECT * FROM CANDIDAT")
If NotEmpty(Access3.Exception) Then MsgBox(Access3.Exception) : Exit Sub
Next
Try
tblRandom.Rows.Add(Access3.DBDT(ii)(0))
row = New String() {"الصف " & zCounter & " :", Access.DBDT(ii)(2).ToString(), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3), Access3.DBDT(rand.Next(1, TRow))(3)}
Catch ex As Exception
End Try
DataGridView1.Rows.Add(row)
Next
End While
