Hallo,
was stimmt in folgender For-Schleife nicht? Als Fehlermeldung kommt End-If ohne If anweisung
For i = 0 To Gridview.RowCount - 1
'In jeder 10.Zeile wird die aktuelle Zelle neu gesetzt damit keine Leerstrings geliefert werden
If (i Mod 10) = 0 Then Gridview.SetCurrentCell i, "MATNR"
'Aufsummieren der Menge Renner und Nicht-Renner Typen, Renner=GroßerKontakt, NichtRenner=KleinerKontakt
If istRenner(Gridview.GetCellValue(i, "MATNR")) = False Then
NichtRenner = NichtRenner + Gridview.GetCellValue(i, "ZUMENGE")
End If
If istRenner(Gridview.GetCellValue(i, "MATNR")) = True Then
Renner = Renner + Gridview.GetCellValue(i, "ZUMENGE")
End If
If KleinTwoTE(Gridview.GetCellValue(i, "MATNR")) = True Then
KleinerKontakt2TE = KleinerKontakt2TE + Gridview.GetCellValue(i, "ZUMENGE")
End If
If KleinFourTE(Gridview.GetCellValue(i, "MATNR")) = True Then
KleinerKontakt4TE = KleinerKontakt4TE + Gridview.GetCellValue(i, "ZUMENGE")
End If
End If
'Neuberechnung des Ladebalkens
qp.Report.setPercent i / Gridview.RowCount
Next
Wenn ich das letzte End If lösche kommt "Next ohne For"
Vielen Dank
|