Dim addQB As Integer = 0
Dim array(7) As String
array(0) = "Mike"
array(1) = "Dave"
array(2) = "Brandon"
array(3) = "Dennis"
array(4) = "Jake"
array(5) = "Ken"
array(6) = "Matt"
'NumericUpDown1.value = 7 for Testing
For i As Integer = 0 To NumericUpDown1.Value - 1
For addQB = 0 To NumericUpDown2.Value
DraftStatusTableAdapter.Add_Player_Requirements(TheGMDataSet.DraftStatus, "QB", array(i))
addQB += 1
Next
addQB = 0
Next
|