skriva ut förbestämd tabell och fyll td med uppgiter ifrån db

ASP

5 svar · 226 visningar · startad av Cantona 15 sep. 2003

CantonaMedlem sedan juni 200161 inlägg

Frågan15 sep. 2003 18:28#1

Jag behöver lite hjälp för att komma igång.

Jag vill skriva ut en tabell 2 rader med 5 celler för varje rad.

Sedan vill jag fylla td med ifrån db i låt säga rött, fylls inte alla td så skall de övriga ha en blå färg.

tabellen i db kan se ut så här:
ID | Anta l Namn
----------------------
1 | 3 | Hans
2 | 5 | Åke

Antal är antal td som skall fyllas
Någon som förstår vad jag försöker visa eller är jag väldigt "luddig"... :-)

WickmarkMedlem sedan juli 2003162 inlägg

15 sep. 2003 18:30#2

Använder Access ?
Och vad menar du med rött respektive blått?
Vad ska fyllas i rött ? Vartannat inlägg?

CantonaMedlem sedan juni 200161 inlägg

15 sep. 2003 18:42#3

Där ser man hur luddigt det kan bli.

Jag anväder access.
Jag vill loopa ut en en tabell med 2 rader och 5 celler i varje rad.

Sedan skall man hämta resultat ifrån db där värdet antal anger hur många td som skall fyllas med röd färg.

se länk http://194.236.121.13/cube/start.asp

Där har table fyllts med rött enligt nedan samt resterande dvs uttfyllnaden i blått.

ID | Anta l Namn
----------------------
1 | 2 | Hans
2 | 1 | Åke

CantonaMedlem sedan juni 200161 inlägg

15 sep. 2003 19:06#4

Kanske man kan börja så här!

Dim colNumber
Dim trNumber
colNumber = 5
trNumber = 2

Response.Write "<table Width='200' valign='top' border='1'>"

For e = 1 to trNumber
	Response.Write "<tr >"

		For o = 1 to colNumber

			Response.Write "<td bgcolor='red'>&nbsp;</td>"
		Next
	Response.Write "</tr>"
Next

Response.Write "</table>"

KoTTeNMedlem sedan sep. 20011 722 inlägg

15 sep. 2003 19:43#5

Något sådant här kanske?

Response.Write "<TABLE BORDER=""2"">"
Dim IntTabelY, IntTabelMax, IntAntRod
IntTabelX = 5
IntTabelMax = 10
IntAntRod = 3 ' Infoga här antalet fält som ska vara röda

For i = 1 To IntTabelMax
  If i mod IntTabelX = 1 AND i > 1 Then 
    Response.Write "</TR><TR>"
  ElseIf i mod IntTabelX = 1 AND i = 1 Then 
    Response.Write "<TR>"
End If

If i <= IntAntRod Then
  Response.Write "<TD BGCOLOR=""red"">RÖD</TD>"
Else
  Response.Write "<TD BGCOLOR=""blue"">BLÅ</TD>"
End If

Next

Response.Write "</TABLE>"

CantonaMedlem sedan juni 200161 inlägg

15 sep. 2003 20:49#6

Kanon, äntligen kan jag spåna vidare.

Tack så mycket!