Belial skrev:
> Kan man lave en slags For Each sætning således at den først
> udskriver alle hovedmenupunkter med 1, derefter laver et
> mellemrum og så gentager med hovedmenpunkt 2, 3 osv.??
Gem hovedmenupunktid'et i en variabel og sammenlign værdien i
variablen med den aktuelle værdi fra postsættet ved hvert
gennemløb. Hvis der er forskel, er du nået til et nyt
hovedmenupunkt, og du kan så udskrive mellemrum eller hvad du nu
skal bruge som adskiller - samt gemme det nye id i variablen.
I pseudokode:
Dim hID
hID = 0 ' Jeg antager at du ikke har 0 som et id-nummer
Do While Not rs.EOF
' Tjek om vi har et nyt punkt:
If rs("hID") <> hID Then
' Udskriv oplysninger om hovedmenupunktet
...
' Sæt variablen til det nye id
hID = rs("hID")
End If
' Udskriv oplysninger om undermenupunktet
...
rs.movenext
Loop
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på
http://usenet.dk/netikette/citatteknik.html