Avatar billede software Nybegynder
27. juni 2002 - 14:42 Der er 6 kommentarer og
1 løsning

Har brug for lidt hjælp.....

Hej

Jeg har lavet dette:

<% Dim old_cprnr, old_adresse, old_nation
old_cprnr = 0
old_adresse = 0
old_nation = 0
%>
<% Do While Not rs.EOF %>
<tr>
<td><% if(rs("Cprnr") <> old_cprnr) then Response.Write rs("Cprnr")  End If %></td>
<td><% if(rs("Adresse") <> old_adresse) then Response.Write rs("Adresse") End If %></td>
<td><% if(rs("Nationalitet") <> old_nation) then Response.Write rs("Nationalitet") End If %></td>
<td><% Response.Write rs("Startdato") %></td>
<%
old_cprnr = rs("Cprnr")
old_adresse = rs("Adresse")
old_nation = rs("Nationalitet")
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>

problemet er at jeg kun får rs("nationalitet") udskrevet i den 1'ste post og ikke i resten.

Hvorfor ??
Avatar billede proaccess Nybegynder
27. juni 2002 - 14:45 #1
DET ER DET DU BEDER OM !!!

Du beder jo kun om udskrift, hvis der er en forskel på fx. nationalitet, men hvis du kun har navne fra Danmark, så er der jo kun forskel på den første record (hvor Nationalitet = "")
Avatar billede proaccess Nybegynder
27. juni 2002 - 14:46 #2
<% Do While Not rs.EOF %>
<tr>
<td><% Response.Write rs("Cprnr") %></td>
<td><% Response.Write rs("Adresse") %></td>
<td><% Response.Write rs("Nationalitet") %></td>
<td><% Response.Write rs("Startdato") %></td>
<%
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
Avatar billede proaccess Nybegynder
27. juni 2002 - 14:47 #3
Så er der IKKE check på om data ændrer sig !
Avatar billede software Nybegynder
27. juni 2002 - 14:49 #4
Ja, men det som er ideen med den måde jeg har skrevet det på er at cprnr,adresse,nationalitet kun skal udskrives én gang, mens der godt kan være flere forskellige startdatoer ud fra hver post og de skal alle skrives ud.

Jeg ved ikke om det er til at forstå ??
Avatar billede proaccess Nybegynder
27. juni 2002 - 14:54 #5
Hvis du vil have skift pr. cpr-nr, så kan du lave denne...  Der er jo IKKE skift pr nationalitet...

<% Dim old_cprnr
old_cprnr = 0
%>
<% Do While Not rs.EOF %>
<tr>
<td><% if(rs("Cprnr") <> old_cprnr) then Response.Write rs("Cprnr")  End If %></td>
<td><% if(rs("Cprnr") <> old_cprnr) then Response.Write rs("Adresse") End If %></td>
<td><% if(rs("Cprnr") <> old_cprnr) then Response.Write rs("Nationalitet") End If %></td>
<td><% Response.Write rs("Startdato") %></td>
<%
old_cprnr = rs("Cprnr")
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
Avatar billede software Nybegynder
27. juni 2002 - 14:57 #6
Har fundet ud af det, har ændret :

<% if(rs("Nationalitet") <> old_nation) then Response.Write rs("Nationalitet") End If %>

til

<% if(rs("Cprnr") <> old_cprnr) then Response.Write rs("Nationalitet") End If %>

så virker det som det skal.

Ellers tak for hjælpen
Avatar billede software Nybegynder
27. juni 2002 - 14:58 #7
Okay, du fandt ud af det før mig :-)

Derfor point til dig

Endnu engang tak for hjælpen
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