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
| Dim Ct
Ct="<html>"
Ct=ct&"<body>"
Ct = ct&"<align='center'>"
Ct = ct&"<div align='center'>"
Ct = ct&"<table border='1' cellspacing='3' cellpadding='3' id='table1'>"
FOR i=0 TO session("item")-1
Ct = ct&"<tr>"
Ct = ct&"<td><b><font size='2'>Ref :</font></b></td>"
Ct = ct&"<td><b><font size='2'>Titre :</font></b></td>"
Ct = ct&"<td><b><font size='2'>Quantité :</font></b></td>"
Ct = ct&"<td><b><font size='2'>Prix unitaire :</font></b></td>"
Ct = ct&"<td><b><font size='2'>Prix Total :</font></b></td>"
Ct = ct&"</tr>"
Ct = ct&"<tr>"
Ct = ct&"<td>"
Ct = ct& loup
Ct = ct&"</td>"
Ct = ct&"</tr>"
Ct = ct&"<tr>"
Ct = ct&"<td>" & Temp(5,i) & "</td>"
Ct = ct&"<td>" & Temp(1,i) & "</td>"
Ct = ct&"<td>" & Temp(2,i) & "</td>"
Ct = ct&"<td>" & formatnumber((Temp(3,i)/devise.fields("prix_devise").value),2) & "</td>"
Ct = ct&"<td>" & formatnumber((Temp(3,i)*Temp(2,i))/devise.fields("prix_devise").value,2) & "</td>"
Ct = ct&"</tr>"
NEXT
Ct = ct&"</table>"
Ct = ct&"</div>"
Ct = ct&"<p></p>" |
Affichage dans un tableau ???
Répondre avec citation
Partager