Do loop med flera if-satser fungerar inte

3 svar · 155 visningar · startad av Känning 5 sep. 2003

KänningMedlem sedan jan. 2003252 inlägg

Frågan5 sep. 2003 13:43#1

Hej

Denna koden funkar:

do until rs.EOF
lagt = rs("lagt")
vinst = rs("vinst")
kalla = rs("kalla")
		
if vinst > 0 then 
vunnaspel=vunnaspel+1
end if	
antal=antal+1
rs.movenext
loop

Men när jag lägger till en if sats till så får jag ett felmeddelande som säger att 'loop' utan 'do'

do until rs.EOF
lagt = rs("lagt")
vinst = rs("vinst")
kalla = rs("kalla")
		
if vinst > 0 then 
vunnaspel=vunnaspel+1
else if 'andra if-stasen then
'blalaal
end if	
antal=antal+1
rs.movenext
loop

Alltså jag vill köra flera if-satser inuti min loop.

UlfTMedlem sedan maj 20018 027 inlägg

5 sep. 2003 13:46#2

Du har glömt ett end if. Alltid lika många end if som if.

SebbeMedlem sedan jan. 20032 285 inlägg

5 sep. 2003 13:46#3

do until rs.EOF
  lagt = rs("lagt")
  vinst = rs("vinst")
  kalla = rs("kalla")
		
  if vinst > 0 then 
    vunnaspel=vunnaspel+1
  elseif (nåt) [b]then[/b] 'andra if-stasen
    'blalaal
  end if	
  antal=antal+1
  rs.movenext
loop

Observera ElseIf utan mellanslag också.

KänningMedlem sedan jan. 2003252 inlägg

5 sep. 2003 13:47#4

UlfT skrev:

Du har glömt ett end if. Alltid lika många end if som if.

Narturligtvis, tackar :)