Hallo, ik heb een probleem met een Array en kom er maar niet uit. Ik zal het even proberen uit te leggen:
Ik een database heb ik 1 veld met de volgende waarde (deze waarde is in elk record anders):
"1", "2", "3", "12", "26"
Okay, ik heb deze waarde zo in de DB gezet omdat ik deze waarde wil gebruiken in een Array. Ik haal de waarde dus op en zet hem in de volgende statement:
arrNaam = Array(Waarden)
Met Waarden bedoel ik de bovenstaande getallen. Vervolgens zeg ik:
ShowArrayInTable(arrNaam)
En dan heb ik een Sub gebruikt om een loop te creeeren. Hier is de sub:
Okay ik heb al verschillende dingen geprobeert maar kom er maar niet uit. Wie kan mij vertellen hoe ik dit wel werkend krijgt? Alvast bedankt,
PinoPolio
PS, ik hoop niet dat dit te onduidelijk is, zo ja zeg het even.
Ik een database heb ik 1 veld met de volgende waarde (deze waarde is in elk record anders):
"1", "2", "3", "12", "26"
Okay, ik heb deze waarde zo in de DB gezet omdat ik deze waarde wil gebruiken in een Array. Ik haal de waarde dus op en zet hem in de volgende statement:
arrNaam = Array(Waarden)
Met Waarden bedoel ik de bovenstaande getallen. Vervolgens zeg ik:
ShowArrayInTable(arrNaam)
En dan heb ik een Sub gebruikt om een loop te creeeren. Hier is de sub:
code:
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
| Sub ShowArrayInTable(ArrayToShow)
Dim I
Dim iArraySize
iArraySize = (UBound(ArrayToShow) - LBound(ArrayToShow)) + 1
Response.Write "<p>The array has " & iArraySize _
& " elements. They are:</p>" & vbCrLf
Response.Write "<table border=""1"">" & vbCrLf
Response.Write "<thead>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th>Index</th>" & vbCrLf
Response.Write "<th>Value</th>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</thead>" & vbCrLf
Response.Write "<tbody>" & vbCrLf
For I = LBound(ArrayToShow) To UBound(ArrayToShow)
Response.Write "<tr>" & vbCrLf
Response.Write "<td>" & I & "</td>" & vbCrLf
Response.Write "<td>" & ArrayToShow(I) & "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Next 'I
Response.Write "</tbody>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub |
Okay ik heb al verschillende dingen geprobeert maar kom er maar niet uit. Wie kan mij vertellen hoe ik dit wel werkend krijgt? Alvast bedankt,
PinoPolio
PS, ik hoop niet dat dit te onduidelijk is, zo ja zeg het even.