Hallo Forum,
ich seh wahrscheinlich den Wald vor lauter Bäumen nicht, aber ich habe ein Problem mit 2 arrays.
Ich habe ein Array mit der Größe 16 dimensioniert und fülle es über ein datagridview. Die Einträge werden von 0 bis 15 fortlaufend geschrieben, es dürfen aber von mind. 8 bis max. 16 Einträge gemacht werden.
Bei den indexen wo kein Eintrag gemacht wurde, steht also NOTHING drin.
Dieses Array nehm ich nun und sortiere es per zufallsgenerator neu.
Jetzt soll das Array in ein DGV eingetragen werden, welches auch genau 16 Zeilen hat.
Besonderheit: Je nachdem wie viele NOTHING-Einträge vorhanden sind, soll an bestimmten stellen im grid ein fester Wert eingetragen werden.
Es sollen alle Werte des gemischten Arrays fortlaufend ins grid geschrieben werden, allerdings ohne die NOTHING-Einträge
Dim rows() As String = RowToString(lstTeilnehmer.Rows) 'befüllen des ausgangsarrays
Dim tmpArr() As String
Dim arrFreilos() As Integer
tmpArr = Auslosung(rows)'mischen des arrays
Dim z As Integer = 0
For I As Integer = 0 To tmpArr.Count - 1
If tmpArr(I) = Nothing Then
z = z + 1
End If
Next
Select Case z
Case 1 : arrFreilos = New Integer() {1}
Case 2 : arrFreilos = New Integer() {1, 16}
Case 3 : arrFreilos = New Integer() {1, 16, 8}
Case 4 : arrFreilos = New Integer() {1, 16, 8, 9}
Case 5 : arrFreilos = New Integer() {1, 16, 8, 9, 4}
Case 6 : arrFreilos = New Integer() {1, 16, 8, 9, 4, 13}
Case 7 : arrFreilos = New Integer() {1, 16, 8, 9, 4, 13, 6}
Case 8 : arrFreilos = New Integer() {1, 16, 8, 9, 4, 13, 6, 12}
Case Else : arrFreilos = New Integer() {0}
End Select
With DGVLos 'ab hier fangen die fehler an
Dim K As Integer = 0
For I As Integer = 0 To C16er - 1
For J As Integer = 0 To arrFreilos.Count - 1
If arrFreilos(J) - 1 = I Then
.Rows(I).Cells(1).Value = "FREILOS"
Exit For
End If
Next
If .Rows(I).Cells(1).Value "FREILOS" Then
Do
.Rows(I).Cells(1).Value = tmpArr(K)
K = K + 1
Loop While tmpArr(K) = Nothing
End If
Next
End With
Wäre schön, wenn mir jemand einen tipp geben könnte…