Predmet:Re: Problem Petlja
ja sam mozda krivo razumio , neznam
Citiraj zxz:Mozes i sumu izracunati u petlji pa ti netreba ovaj rst Qzaperiod2
Bit ce jos brze i efikasnije.
U if uslovu sabiras sumu prije
siznos = 0
znaci, onako kako sam ja razumio umjesto ovoga:
PreuzmiIzvorni kôd (Text):If Datum <> rst!Datum Then
Print #1, "----------------------------------------"
Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
Print #1, "----------------------------------------"
siznos = 0
Datum = rst!Datum
End If
staviti ovo:
PreuzmiIzvorni kôd (Text):If Datum <> rst!Datum Then
Print #1, "----------------------------------------"
Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
Print #1, "----------------------------------------"
Suma = Suma + rst!SumOfiznos
siznos = 0
Datum = rst!Datum
End If
a kod tebe je zbrajanje u do loop petlji
PreuzmiIzvorni kôd (Text):If Datum <> rst!Datum Then
Print #1, "----------------------------------------"
Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
Print #1, "----------------------------------------"
Suma = rst!SumOfiznos
siznos = 0
Datum = rst!Datum
End If
Do Until rst.EOF
Suma = Suma + rst!SumOfiznos
rst.MoveNext
Loop
zivot je moja domovina.