webForumDet fria alternativet

hidden i utskrift av array?

9 svar · 184 visningar · startad av timedia

timediaMedlem sedan maj 2001420 inlägg
#1

Går det att låta bli att skriva ut raden 'Id'? Isåfall hur?

arrArtiklar = GetRows("SELECT Id, ArtNr, Namn5, Storlek, Storlektyp, Farg, Ant_forp, Info, Fakta FROM varor Where page_id="&qstLnkId)
Response.Write "</td>"
Response.Write "<td width='71%' valign='top' align='left'>"
If IsArray(arrArtiklar) THEN
Response.Write("<br><TABLE border=0><tr><td>Id</td><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/pack</td><td>Varuinfo</td><td>Fakta</td></tr>")

For u = 0 To Ubound(arrArtiklar,2)
	Response.Write("<TR>")
	For m = 0 To Ubound(arrArtiklar,1)	
		
		if m = 7 then
			If arrArtiklar(7,u) <> "" Then
				response.write("<td bgcolor='#C0C0C0'><a href='doc/"& arrArtiklar(7,u) &"' target='new'> Info </A></td>")
			else
				Response.write ("<TD bgcolor='#C0C0C0'></TD>")

			end if
		else
			Response.Write("<TD bgcolor='#C0C0C0'>"&arrArtiklar(m,u)&"</a></TD>")
		End if
	Next

	Response.Write("<TD bgcolor='#C0C0C0'>")
	Response.Write("<a href='shBasket.asp?addItem="& arrArtiklar(0,u) &"' target='underst'> Köp! </A>")
	Response.Write ("</TD>")
	Response.Write("</TR>")		
Next

	Response.Write("</TABLE>")
END IF
@ndersMedlem sedan juni 200032 969 inlägg
#2
Response.Write("<br><TABLE border=0><tr><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/pack</td><td>Varuinfo</td><td>Fakta</td></tr>")

For u = [b]1[/b] To Ubound(arrArtiklar,2)
timediaMedlem sedan maj 2001420 inlägg
#3

Nja, nu lägger sig idnumret i cellen art.nr och art.nr i cellen Namn osv. Kanske lite dåligt förklarad, men jag behöver alltså idnumret - men vill inte ha det synligt i tabellen.

@ndersMedlem sedan juni 200032 969 inlägg
#4

Jag tror inte på dig.

Noterade du ändringen i loopen? For i = 0 har blivit for i = 1.

timediaMedlem sedan maj 2001420 inlägg
#5

tråkigt att du inte tror på mig :OO
så här gör jag fel:

arrArtiklar = GetRows("SELECT Id, ArtNr, Namn5, Storlek, Storlektyp, Farg, Ant_forp, Info, Fakta FROM varor Where page_id="&qstLnkId)
Response.Write "</td>"
Response.Write "<td width='71%' valign='top' align='left'>"
If IsArray(arrArtiklar) THEN
Response.Write("<br><TABLE border=0><tr><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/pack</td><td>Varuinfo</td><td>Fakta</td></tr>")

For u = 1 To Ubound(arrArtiklar,2)
	Response.Write("<TR>")
	For m = 0 To Ubound(arrArtiklar,1)	
		
		if m = 7 then
			If arrArtiklar(7,u) <> "" Then
				response.write("<td bgcolor='#C0C0C0'><a href='doc/"& arrArtiklar(7,u) &"' target='new'> Info </A></td>")
			else
				Response.write ("<TD bgcolor='#C0C0C0'></TD>")

			end if
		else
			Response.Write("<TD bgcolor='#C0C0C0'>"&arrArtiklar(m,u)&"</a></TD>")
		End if
	Next

	Response.Write("<TD bgcolor='#C0C0C0'>")
	Response.Write("<a href='shBasket.asp?addItem="& arrArtiklar(0,u) &"' target='underst'> Köp! </A>")
	Response.Write ("</TD>")
	Response.Write("</TR>")		
Next

	Response.Write("</TABLE>")
END IF
@ndersMedlem sedan juni 200032 969 inlägg
#6

Det är jag som gjort fel!

Det är den andra loopen som ska börja på ett, inte den första.

Sorry.

timediaMedlem sedan maj 2001420 inlägg
#7

ajdå, såhär skulle det vara

arrArtiklar = GetRows("SELECT Id, ArtNr, Namn5, Storlek, Storlektyp, Farg, Ant_forp, Info, Fakta FROM varor Where page_id="&qstLnkId)
Response.Write "</td>"
Response.Write "<td width='71%' valign='top' align='left'>"
If IsArray(arrArtiklar) THEN
Response.Write("<br><TABLE border=0><tr><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/pack</td><td>Varuinfo</td><td>Fakta</td></tr>")

For u = 0 To Ubound(arrArtiklar,2)
	Response.Write("<TR>")
	For m = 1 To Ubound(arrArtiklar,1)	
		
		if m = 7 then
			If arrArtiklar(7,u) <> "" Then
				response.write("<td bgcolor='#C0C0C0'><a href='doc/"& arrArtiklar(7,u) &"' target='new'> Info </A></td>")
			else
				Response.write ("<TD bgcolor='#C0C0C0'></TD>")

			end if
		else
			Response.Write("<TD bgcolor='#C0C0C0'>"&arrArtiklar(m,u)&"</a></TD>")
		End if
	Next

	Response.Write("<TD bgcolor='#C0C0C0'>")
	Response.Write("<a href='shBasket.asp?addItem="& arrArtiklar(0,u) &"' target='underst'> Köp! </A>")
	Response.Write ("</TD>")
	Response.Write("</TR>")		
Next

	Response.Write("</TABLE>")
END IF
@ndersMedlem sedan juni 200032 969 inlägg
#8

Det var så jag tänkte, även om det inte precis var så jag skrev. ;)

Funkar det nu alltså? :)

Får man fråga om det finns någon speciell anledning till att du använder svårhanterliga arrayer istället för ett lätthanterligt litet recordset?

timediaMedlem sedan maj 2001420 inlägg
#9

Nu funkar det jättebra!
Hittade macces menyscript här på webforum - och gillade det. Trodde också array's gav prestandavinst? Iallafall behövde jag lära mig hur arrays fungerar :)

@ndersMedlem sedan juni 200032 969 inlägg
#10

Det är jättebra att lära sig arrayer, det kommer man ha nytta av. :)

Vad gäller optimering och prestandatankar är det intressant att läsa emissions inlägg om det hela. :)

Mvh

134 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)