3 svar · 333 visningar · startad av Oputres
Allå!
Jag har en Accessdatabas med följande kolumner i tabellen Ordlista: "Id" (ReplikeringsID och Primärnyckel), "Ord" (Text) och "Beskrivning" (PM).
Dessa skall jag sedan lista på en sida som i slutändan skall se ut på följande sätt:
A B C D E F G H I J K... (<- Länkar ner till rätt begynnelsebokstav)
A______________________
A_ord 1
Beskrivning av A_ord 1...
A_ord 2
Beskrivning av A_ord 2...
B______________________
B_ord 1
Beskrivning av B_ord 1...
B_ord 2
Beskrivning av B_ord 2...
Hur listar jag upp detta på smartaste sätt? Finns det något sätt att automatisera hela sidan eller skall jag skapa en RecSet under varje bokstav som hämtar in alla ord som börjar på den bokstaven, alltså 29 recset? Det måste finnas något vackert sätt att klara av detta med ett RecSet.
Nej, gör ett RecordSet som hämtar alla ord. Sedan gör du en slinga som kollar vilken som är första bokstaven, om det är en ny skriver du ut den och gör samtidigt ett "html-ankare" etc...
Sedan listar du alfabetet och länkar till ankaret för respektive bokstav.
Detta kanske är jätteflummigt beskrivit, säg till i så fall.. :r
Jag förstår principen men jag är ingen höjdare på att knappa asp-koder. Ungefär hur skulle den här slingan se ut?
Kolla om den forsta bokstaven i det aktuella ordet ar samma bokstav som den forra, och om det inte ar det sa skriver du ut borjan av en ny bokstav (d.v.s. rubrik). I det recordset som du ska anvanda ska du sortera efter ord-faltet (det finns en risk att du far problem med a, a och o [svenska bokstaver :p] dock - men det gar att losa).
r\ Har kommer ett forsok till att beskriva vad jag menar:
'// Mark val att du ska anvanda dig utav /ett/ recordset, och att du ska sortera det i alfabetisk ordning genom ord-faltet
Do Until objRS.EOF
If LCase(Left(objRS("ord"), 1)) <> strPreviousStartLetter Then
Response.Write("<h1>" & UCase(Left(objRS("ord"), 1)) & "</h1>")
End If
'// skriv ut text och beskrivning
strPreviousLetter = LCase(Left(objRS("ord"), 1)) '\\ Forberedelse infor nasta db-post
objRS.MoveNext
Loop