/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Har jeg lavet en uendelig løkke ?
Fra : SpookiePower


Dato : 08-10-03 23:06

Jeg er nybegynder inden for ASP, men har via SQL fået lavet
en record(eller hvad det nu hedder) indeholdende en liste af
medarbejdernummere,
sorteret efter hvor mange gange de forekommer. Det var så meningen at jeg
ville vise hvilken placering i listen, som den indlogget medarbejder har.
Det har jeg prøvet at vise med nedenstående kode. Det der sker
når jeg køre dette stykke kode, er at min computer går helt i knæ
og køre meget langsomt. Har jeg lavet en uendelig lykke, eller
hvad sker der som jeg ikke selv kan se ?


do while not objRSEgenPlacering.eof
I = I+1
If objRSEgenPlacering.fields("medarbejdernummer") =
session("medarbejdernummer") then
Plads = I
else
objRSEgenPlacering.MoveNext
end if
loop



 
 
terje (09-10-2003)
Kommentar
Fra : terje


Dato : 09-10-03 01:44


"SpookiePower" <boxjunk2600@hotmail.com> wrote:
| Har jeg lavet en uendelig lykke, eller
| hvad sker der som jeg ikke selv kan se ?
|
|
| do while not objRSEgenPlacering.eof
| I = I+1
| If objRSEgenPlacering.fields("medarbejdernummer") =
| session("medarbejdernummer") then
| Plads = I
| else
| objRSEgenPlacering.MoveNext
| end if
| loop


Prøv dette:
do while not objRSEgenPlacering.eof
I = I+1
If objRSEgenPlacering.fields("medarbejdernummer").Value =
session("medarbejdernummer") then
Plads = I
end if
objRSEgenPlacering.MoveNext
loop

rs.MoveNext må ikke plasseres inne i en If-Then, da blir den ikke alltid
utført. Plasser den helt nederst, da oppnår du "uendelig lykke"
Bruk også rs.Fields("Fieldnavn").Value = ..

terje





SpookiePower (09-10-2003)
Kommentar
Fra : SpookiePower


Dato : 09-10-03 10:13


"terje" <ilovespam2.nidaros2001@hotmail.com> skrev i en meddelelse
news:bm2b3k$hlhjt$1@ID-88092.news.uni-berlin.de...
> Prøv dette:
> do while not objRSEgenPlacering.eof
> I = I+1
> If objRSEgenPlacering.fields("medarbejdernummer").Value =
> session("medarbejdernummer") then
> Plads = I
> end if
> objRSEgenPlacering.MoveNext
> loop
>
> rs.MoveNext må ikke plasseres inne i en If-Then, da blir den ikke alltid
> utført. Plasser den helt nederst, da oppnår du "uendelig lykke"
> Bruk også rs.Fields("Fieldnavn").Value = ..
>
> terje

Mange tak. Det virkede.



Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408934
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste