Dim addQB als ganze Zahl = 0
Reihe verdunkeln (7) als Schnur
Reihe (0) = „Mike“
Reihe (1) = „Dave“
Reihe (2) = „Brandon“
Reihe (3) = „Dennis“
Reihe (4) = „Jake“
Reihe (5) = „Ken“
Reihe (6) = „Matt“
'NumericUpDown1.value = 7 für Prüfung
Für i als ganze Zahl = 0 zu NumericUpDown1.Value - 1
Für addQB = 0 zu NumericUpDown2.Value
DraftStatusTableAdapter.Add_Player_Requirements (TheGMDataSet.DraftStatus, „QB“, Reihe (i))
addQB += 1
Zunächst
addQB = 0
Zunächst
|