Avatar billede kcdk Juniormester
11. juni 2004 - 10:40 Der er 7 kommentarer og
2 løsninger

Tjekke for min 5 rækker i en tabel

Jeg har et udtræk som ser således ud

<%
If rsTrees.EOF Then
Else
    'Loop through recordset object
    Do While Not rsTrees.EOF
    if rsTrees("ID") = "o1aa" then
    Response.Write "<tr><td width='200'><b>" & rsTrees("Type") & "</b></td><td width='150'>" & rsTrees("Storrelse") & "</td><td>" & rsTrees("Farve") & "</td><td></tr>"
    else
    End If
    rsTrees.MoveNext
    Loop
End If

%>

Nu kommer spøgsmålet.
Jeg vil gerne tjekke for at der minimum er 5 rækker og hvis der ikke er det, så skal den automatisk tilføje, tomme rækker, så der er 5.

Kan det lade sig gøre og hvordan eller bør jeg begynde at græde?
Avatar billede dawin_dk Nybegynder
11. juni 2004 - 10:43 #1
sæt en variable treeCount til 0 .. og forsøg den med 1 for hvert gennemløb ... er der så kun 1 .. så laver du et loop .. for a = treeCount to 4 ... som opretter :D

f.eks.
Avatar billede kcdk Juniormester
11. juni 2004 - 10:45 #2
Kan du lave det i kode?
Avatar billede dawin_dk Nybegynder
11. juni 2004 - 10:48 #3
ikke noget jeg gider begive mig i kast med ligenu ihvertfald :S skal snart afsted mod arbejde
Avatar billede kcdk Juniormester
11. juni 2004 - 10:48 #4
Okay. Så håber jeg en anden sjæl vil :-) God arbejdslyst
Avatar billede kcdk Juniormester
11. juni 2004 - 10:50 #5
Problemet er at jeg godt ved hvordan det i teorien skal gøres, men jeg aner ikke hvordan i koden.
Avatar billede websam Nybegynder
11. juni 2004 - 11:31 #6
Hvad med at tilføje en sql der tæller hvormange records der i tabellen f.eks

Sql = "Select Count(Id) As Total From Tabel"
Set Rs = Conn.Execute(Sql)

Så laver du blot en lille if sætning :

If Rs("Total") < 5 Then
...skriver det du vil
End If

Det vil løse dit problem

/websam
Avatar billede mikkel_strack Nybegynder
11. juni 2004 - 12:08 #7
Som websam siger, ville det nok være smartest med en count direkte på recordset - men ud fra den kodestump du giver, kunne du prøve med..

<%
If rsTrees.EOF Then
Else
    count = 0
    'Loop through recordset object
    Do While Not rsTrees.EOF
    if rsTrees("ID") = "o1aa" then
    count = count+1
    Response.Write "<tr><td width='200'><b>" & rsTrees("Type") & "</b></td><td width='150'>" & rsTrees("Storrelse") & "</td><td>" & rsTrees("Farve") & "</td><td></tr>"
    else
    End If
    rsTrees.MoveNext
    Loop
      If count < 5 then
          For i=(count+1) to 5
            response.write "<tr><td>blablalblalblas</td>/tr>"
          Next
      End if

End If

%>
Mikkel
Avatar billede kcdk Juniormester
12. juni 2004 - 13:44 #8
Tusind tak for det. Mikkel du kan lige give det som svar, så deler dig og websam point.
Avatar billede mikkel_strack Nybegynder
12. juni 2004 - 13:58 #9
Velbekommen - håber du fik det til at virke som det skulle..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I dag 10:21 Ny printer, men hvilken Af mort1 i Printere
I går 19:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging