Prikazi cijelu temu 30.05.2016 11:12
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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):
  1. If Datum <> rst!Datum Then
  2.         Print #1, "----------------------------------------"
  3.         Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
  4.         Print #1, "----------------------------------------"
  5.         siznos = 0
  6.         Datum = rst!Datum
  7. End If

staviti ovo:

PreuzmiIzvorni kôd (Text):
  1. If Datum <> rst!Datum Then
  2.         Print #1, "----------------------------------------"
  3.         Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
  4.         Print #1, "----------------------------------------"
  5.         Suma = Suma + rst!SumOfiznos
  6.         siznos = 0
  7.         Datum = rst!Datum
  8. End If

a kod tebe je zbrajanje u do loop petlji

PreuzmiIzvorni kôd (Text):
  1. If Datum <> rst!Datum Then
  2.         Print #1, "----------------------------------------"
  3.         Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
  4.         Print #1, "----------------------------------------"
  5.         Suma = rst!SumOfiznos
  6.         siznos = 0
  7.         Datum = rst!Datum
  8. End If
  9.  
  10. Do Until rst.EOF
  11.         Suma = Suma + rst!SumOfiznos
  12.         rst.MoveNext
  13. Loop
zivot je moja domovina.