Avatar billede cort Nybegynder
17. maj 2001 - 13:30 Der er 22 kommentarer og
1 løsning

Do løkke hvor record skal vises i tabel

Hej ,
Jeg har et recordsæt hvor jeg henter noget info.
Når jeg skal vise min records, skal de ligge i en tabel, som denne her:

<table>
<tr>
    <td></td>
    <td></td>
</tr>
<tr>
    <td></td>
    <td></td>
</tr>
<tr>
    <td></td>
    <td></td>
</tr>
</table>

Hvordan får jeg placeret de enkelte records, så den  første record placeres i første <td> og næste record placeres i <td>´en ved siden af osv.
Avatar billede nute Nybegynder
17. maj 2001 - 13:46 #1
response.write \"<table>\"
while not RS.EOF
  with response
    .write\"<tr>\"
    .write\"<td>\" & rs(\"en_kolonne\") & \"</td>\"
    .write\"<td>\" & rs(\"en_annen_kolonne\") & \"</td>\"
    .write \"</tr>\"
  end with
  RS.MoveNext
wend
response.write \"</table>\"

er det sånn du mener ?
Avatar billede cort Nybegynder
17. maj 2001 - 13:54 #2
Nej der er flere end en ting fra recordsættet der skal hentes ind i hver <td>

dvs.
at i første <td> skal der eks. være følende ting fra recordsættet:
titel
Tekst link

det samme skal der være i næste <td>, men der skal selvfølgelig vises næste record.
Avatar billede nute Nybegynder
17. maj 2001 - 14:00 #3
så kan du gjøre noe ála dette
response.write \"<table><tr>\"
counter = 1
while not RS.EOF
  if( counter = 2 ) then
    response.write \"</tr><tr>\"
    counter = 1
  end if
  response.write\"<td>\" & rs(\"titel\") & \"</td>\"
  response.write\"<td>\" & rs(\"link\") & \"</td>\"
  RS.MoveNext 
  counter = counter + 1
wend
response.write \"</tr></table>\"
Avatar billede stoffer Nybegynder
17. maj 2001 - 14:02 #4


dim intOuterPos, intInnerPos

for intOuterPos = 1 to 2





next




Avatar billede cort Nybegynder
17. maj 2001 - 14:06 #5
det skal være mere sådan her:
\'\'de første to records
<tr>
<td>rs(\"titel1\")<br> rs(\"link1\")</td>
<td>rs(\"titel2\")<br> rs(\"link2\")</td>
</tr>

\'\'de næste to records
<tr>
<td>rs(\"titel3\")<br> rs(\"link3\")</td>
<td>rs(\"titel4\")<br> rs(\"link4\")</td>
</tr>

osv.
Avatar billede cort Nybegynder
17. maj 2001 - 14:07 #6
det skal kunne være max. 9 records i tabellen.
Avatar billede stoffer Nybegynder
17. maj 2001 - 14:08 #7


response.write \"<table>\"
do until oRs.EOF

    if intPos mod 2 = 0 then
    response.write \"<tr>\"
    END if
   
    response.write \"<td>\"
    response.write oRs(\"min_record\")
    response.write \"</td>\"
   
    if intPos mod 2 = 0 then
    response.write \"</tr>\"
    END if
   
    intPos = intPos + 1
   
loop
response.write \"</table>\"
   
Avatar billede cort Nybegynder
17. maj 2001 - 14:08 #8

hej stoffer ,
kan du uddybe?

dim intOuterPos, intInnerPos

for intOuterPos = 1 to 2





next
Avatar billede nute Nybegynder
17. maj 2001 - 14:12 #9
stoffer >> hva er poenget med å lage to checks på intPos ?? Istedenfor å skrive:

if intPos mod 2 = 0 then
  response.write \"<tr>\"
END if
...
if intPos mod 2 = 0 then
  response.write \"</tr>\"
END if

så kan man da heller skrive:

if intPos mod 2 = 0 then
  response.write \"</tr><tr>\"
END if
   
jeg kan heller ikke se at din metod er mer effektiv (eller feilfri) enn den som allerede er foreslått
   
   
   
   
   
Avatar billede cort Nybegynder
17. maj 2001 - 14:13 #10
hej stoffer

med denne her kode:

response.write \"<table>\"
do until oRs.EOF

    if intPos mod 2 = 0 then
    response.write \"<tr>\"
    END if
   
    response.write \"<td>\"
    response.write oRs(\"min_record\")
    response.write \"</td>\"
   
    if intPos mod 2 = 0 then
    response.write \"</tr>\"
    END if
   
    intPos = intPos + 1
   
loop
response.write \"</table>\"

kommer der da ikke to records ved siden af hinanden( altså i samme <tr>)

Avatar billede cort Nybegynder
17. maj 2001 - 14:17 #11
Hvis man sætter
intPos = 1 lige efter

do until RSModuleNewest.EOF

vises alle recordsene på linje i samme <tr>, men der skal kune vises to records ad gangen i en <tr>
                       
Avatar billede cort Nybegynder
17. maj 2001 - 14:18 #12
eller do until oRs.EOF som den hedder her i eksemplet.
Avatar billede nute Nybegynder
17. maj 2001 - 14:19 #13
du trenger ikke mer enn dette:

response.write \"<table><tr>\"
counter = 1
while not RS.EOF
  if( counter = 2 ) then
    response.write \"</tr><tr>\"
    counter = 1
  end if
  response.write\"<td>\" & rs(\"titel\") & \"<br>\" & rs(\"link\") & \"</td>\"
  RS.MoveNext 
  counter = counter + 1
wend
response.write \"</tr></table>\"
Avatar billede cort Nybegynder
17. maj 2001 - 14:22 #14
skal der ikke også en
oRs.Movenext  på lig før loop?
Avatar billede cort Nybegynder
17. maj 2001 - 14:25 #15
Hej NUte, jeg trenger vist til lidt mer end det du foreslår, for mine records bliver bare vist over hinanden som hvis man lavede en alimindelig do loop.
Avatar billede nute Nybegynder
17. maj 2001 - 14:25 #16
jo, i stoffer sitt eksempel skal det en oRs.MoveNext før loop.
Avatar billede stoffer Nybegynder
17. maj 2001 - 14:27 #17
ups et par fejl - her er det rigtige

    if intPos mod 2 = 0 then   
    response.write \"<tr>\" & vbcrlf
    END if
   
    response.write \"<td>\"  & vbcrlf
    response.write ors(\"min_record\")
    response.write \"</td>\"& vbcrlf

   
   
    if intPos mod 2 = 1 then
    response.write \"</tr>\"
    end if
   
    intPos = intPos + 1
   
Avatar billede stoffer Nybegynder
17. maj 2001 - 14:28 #18
nåh ja, og så en rs.movenext :)
Avatar billede cort Nybegynder
17. maj 2001 - 14:28 #19
Det er sådan her det skal vises:

de første to records:
og ligedan for de efterfølende records.
<tr>
                            <td>
                                <table  cellspacing=\"0\" cellpadding=\"0\" border=\"0\" width=\"170\">
                                    <tr>
                                        <td rowspan=\"3\" valign=\"top\" width=\"31\"><img src=\"pics/www/testplaygroundPic.gif\" width=\"31\" height=\"26\" border=\"0\" alt=\"\"></td>
                                        <td valign=\"top\" width=\"130\"><span class=\"text5\"><strong>Titel - denmark</span></td>
                                    </tr>
                                    <tr>
                                       
                                        <td valign=\"top\" width=\"130\"><span class=\"text6\">GDJAG DGAS GDA SGD Gjakfk as bdkbaskdb adf ad asdasd</span></td>
                                    </tr>
                                    <tr>
                                       
                                        <td valign=\"top\" width=\"130\"><img src=\"pics/www/pil_pink.gif\" width=\"5\" height=\"8\" border=\"0\" alt=\"\">&nbsp;<a href=\"#\">sdafd</a></td>
                                    </tr>
                                </table>
                            </td>
                            <td>
                                <table  cellspacing=\"0\" cellpadding=\"0\" border=\"0\" width=\"170\">
                                    <tr>
                                        <td rowspan=\"3\" valign=\"top\" width=\"31\"><img src=\"pics/www/testplaygroundPic.gif\" width=\"31\" height=\"26\" border=\"0\" alt=\"\"></td>
                                        <td valign=\"top\" width=\"130\"><span class=\"text5\"><strong>Titel - Finland</span></td>
                                    </tr>
                                    <tr>
                                       
                                        <td valign=\"top\" width=\"130\"><span class=\"text6\">GDJAG DGAS GDA SGD Gjakfk as bdkbaskdb adf ad asdasd</span></td>
                                    </tr>
                                    <tr>
                                       
                                        <td valign=\"top\" width=\"130\"><img src=\"pics/www/pil_pink.gif\" width=\"5\" height=\"8\" border=\"0\" alt=\"\">&nbsp;<a href=\"#\">sdafd</a></td>
                                    </tr>
                                </table>
                            </td>
                        </tr>
Avatar billede cort Nybegynder
17. maj 2001 - 14:31 #20
Jubii stoffer  det virker sgu.


hurra hurra
Avatar billede nute Nybegynder
17. maj 2001 - 14:35 #21
stoffer >> du leser ikke mine innlegg, gjør du ? Hvis du ikke gjør det, så vil jeg gjerne stille spørsmålet jeg postet @ 17/05 2001 14:12:21 en gang til.

cort >> du leser tydeligvis ikke alle innlegg du heller. Det er merkelig at du kun aksepterer stoffer sitt forslag når jeg postet en fullstendig identisk funksjon hele 20 minutter *før* stoffer...
Avatar billede stoffer Nybegynder
17. maj 2001 - 15:12 #22
sorry du er pissed men mit kom 2 minutter efter dig, og der gik et eller andet galt i postningen så den fik noget andet med.

Men ok jeg skimter kun lige og desuden er der et stykke tid mellem jeg refresher...og så er det klart at jeg ikke har set alle dine indlæg.

Men nute din første løsning var da lidt mere \"uelegant\" end min (når den blev rigtig =)). Men jo burde vel også have point hvis verden var fair *gg*.

Mht. mit indlæg 17/05 2001 14:12:21 var det fordi jeg ikke skulle have skrevet mod 2 = 0 to gange, som jeg også viste i min rettelse fra 17/05 2001 14:27:21

/stoffer
Avatar billede nute Nybegynder
17. maj 2001 - 15:19 #23
stoffer >> jeg er overhodet ikke pissed....laaaangt ifra. Jeg står derimot fast på endel prinsipper, og et prinsipp jeg har er at de som poster noe som løser et problem, så skal man bli belønnet. Om dette er i points eller et \"klapp på skulderen\" er jeg forsåvidt fullstendig likegyldig med.

Og jo...ved nøyere gjennomlesning av denne thread, så skal jeg være enig i at du kom 8 minutter (og ikke 20) etter min posting. Men at du kaller den uelegant kan jeg ikke annet enn å grine kraftig av...de er *fullstendig* identiske i funksjonalitet. Og du skal være forsiktig med å kalle andre sin kode uelegant når man selv har postet noe kode som ikke er optimal. Jeg vil ikke vende denne thread om til å være en diskusjon om hvem som har postet den beste kode, for de er helt identiske i funksjon, og mer er det ikke å si om det.

/nute
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