Fråga : Skärmdata från mSAccessen som ska bordläggas

Förmiddag I using den pröva förmiddagen för Frontpage 2002

I för
- för server för
- MSAccess
- Microsoft SQL 2000 - 8.00.760 (Intel X86) att visa data från en MSAccessDB. Jag önskar asp-sidan till handtagdata från bordlägga för titelraden. Det ska aldrig finns mer, än 15 titelrader i 1st ror. För den första kolonnen jag önskar att specificera roetiketterna. Jag har den som är funktionsduglig att visa datan, när jag specificerar kolonntitelraderna, men inte motsatsen. min

Currently kodifierar skärmar som:
Boston 2000 för utrymme PERC för

9021
Cleveland 2300 4500/> Los Angeles 1900 4500
New York 1800 2100/>

I önskar att skärmen ska vara:
Space 2000 för

Boston Cleveland Los Angeles New York 2300 1900 1800
PERC 9021 4500 4500 2100

Code attached.
> för
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
" codeBody " class= " notpretty " ><% för för ”, Px'>  för Response.Write-”Space”, Response.Write ”PERC”, Stunder inte objRS.EOF För Response.Write-”
(”stad”) & ”  ” & VbCrLf För Response.Write-” (”SpaceAll”) & ”  ” & VbCrLf För Response.Write-” (”SpacePERC”) & ”  ” & VbCrLf 'För- recordseten objRS.MoveNext Wend objRS.Close Fastställd objRS = ingenting Response.Write ”
” & vbCrLf %>

" klar "

Svar : Skärmdata från mSAccessen som ska bordläggas

Ge detta ett försök
”, rowAll = ”,”, rowPerc = ”,”, Stunder inte objRS.EOF rowHeader = rowHeader & ”,”& VbCrLf rowAll = rowAll & ”,”& VbCrLf rowPerc = rowPerc & ”,”& VbCrLf 'För- recordseten objRS.MoveNext Wend objRS.Close Fastställd objRS = ingenting rowHeader = rowHeader & ”,”& VbCrLf rowAll = rowAll & ”,”& VbCrLf rowPerc = rowPerc &”,”& rowPerc Response.Write för rowAll Response.Write för VbCrLf Response.Write rowHeader Response.Write”,
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
<>”,

'Skärm bordlägger överskrifter för varje kolonn i Recordseten

Dunkel rowHeader, rowAll, rowPerc

rowHeader = ”,
 
Utrymme
PERC”& objRS (”stad”) &”, ”& objRS (”SpaceAll”) &”, ”& objRS (”SpacePERC”) &”, 
”& vbCrLf %>
Andra lösningar  
 
programming4us programming4us