Dim addQB als Geheel = 0
Schemerige serie (7) als Koord
serie (0) = „Mike“
serie (1) = „Dave“
serie (2) = „Brandon“
serie (3) = „Dennis“
serie (4) = „Jake“
serie (5) = „Ken“
serie (6) = „Mat“
'NumericUpDown1.value = 7 voor het Testen
Voor I als Geheel = 0 aan NumericUpDown1.Value - 1
Voor addQB = 0 aan NumericUpDown2.Value
DraftStatusTableAdapter.Add_Player_Requirements (TheGMDataSet.DraftStatus, „QB“, serie (I))
addQB += 1
Daarna
addQB = 0
Daarna
|