Array med løk

arrFld = Array("ManT", "TirT", "OnsT")
tid = 0
for idy = 1 to 10
  for each fld in arrFld
    tid = tid + cint(rs(fld))
  next
next

hmm. jeg må heller beskrive det lidt bedere.

Nedenstående er udtrak fra database:

idy = 1
for idy = 1 to AntalLinjer

UgeseddelNrLinje = UgeseddelNr & "-" & UgeseddelAntal

sql = "SELECT * FROM [Linje] WHERE UgeseddelNr = '" & UgeseddelNrLinje & "' AND LinjeNr = " & idy
           
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3
       
if rs.eof or rs.bof then
       
else

ManT = rs.Fields("ManT")
TirsT = rs.Fields("TirsT")
OnsT = rs.Fields("OnsT")
tid = cInt(ManT) + cInt(TirsT) + cInt(OnsT)
       
end if
rs.close
set rs = nothing

next

response.write tid

AntalLinjer er antal af poster i databasen som opfylder sql krav
for hver gennemløb findes der værdi i ManT, TirsT ovs. disse værdier skal så til slut lægges sammen, og udskrives.
f.eks. 1. gemmenløb giver 4 og 2. gennemløb giver 5
ialt 9

Det ændrer nu ikke på mit forslag, det skal bare flettes ind i din kode, men rent bort set fra det, så kan du vel klare dig med at skrive

tid = tid + Cint(rs("ManT")) + CInt(rs("TirT")) + CInt(rs("OnsT"))

så du akkumulerer tid på tværs af dine databasekald i stedet for at skulle holde styr på tid for hver enkelt iteration...

Det er vel totalen der er interessant og ikke de mellemliggende resultater... eller hvad?

Jo, det er kun totalen der er interessant.

I så fald vil jeg mene det sidste jeg foreslå er det eneste der er nødvendigt. Den første løsning er bare en lidt mere fancy måde at summere på (måske...).

Du mener altså at det skal se sådan ud?

idy = 1
for idy = 1 to AntalLinjer

UgeseddelNrLinje = UgeseddelNr & "-" & UgeseddelAntal

sql = "SELECT * FROM [Linje] WHERE UgeseddelNr = '" & UgeseddelNrLinje & "' AND LinjeNr = " & idy
           
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3
       
if rs.eof or rs.bof then
       
else
   
tid = tid + Cint(rs("ManT")) + CInt(rs("TirT")) + CInt(rs("OnsT"))

end if
rs.close
set rs = nothing

next

response.write tid

Det ser ud til at virke efter hensigten.

Mange tak for din hjælp, hvis du laver et svar skal du få de 125 point.

:o)

Velbekomme :-)

NB: det er altid en god skik at initialisere sine variable inden man bruger dem, så tid bør sættes til 0 (nul) inden løkken over idy...

OK, takker

Tak for point :)