Probleme sur le redim preserve d'un tableau

Version imprimable

Bonjour

Je n'arrive pas a redimensiionner mon tableau en gardant les valeurs:

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
32
33
34
35
 
dim tab
if not isarray(session.contents("order")) then 'SI LE PANIER N'EST PAS CONNU
 
	tab = split(request.form("chk"),", ")
 
	response.write ubound(tab)+1
	dim cat,subcat,sql,result
 
	dim subpanier(24,2)
	dim panier
 
	redim panier((ubound(tab)+1),23)
	for i = 1 to ubound(panier,1)
		panier(i,11)=subpanier
	next
	'INSERTION DES INFOS SUR LE PRODUIT 
 
	for j = 1 to ubound(tab)+1
			'ici insertion bla bla
	next
		session.contents("order") = panier
else
	panier = session.contents("order")		
	tab = split(request.form("chk"),", ")
	uTab = ubound(tab)+1
	uPan = ubound(panier)
	uPan = uTab+uPan
 
	redim preserve panier(uPan,23) 'ICI ERREUR : Indice en dehors de la plage
	for i = uPan+1 to (uPan+uTab)
		panier(i,1) = "ouou"&i
		panier(i,18) = panier(i,18) + uTab     'total_prod
	next
end if

02/06/2006, 15h56
Immobilis

Salut,

On ne peut redimenssionner que la dernière dimenssion

A+
02/06/2006, 16h08
shinrei

Eh bien oui,

Dans mon else, c'est la dernier fois que ca redimenssionne.

explication:

if -> la ou je cree pour la 1ere fois mon tableau panier

else -> la ou je le redimensionne (donc je repasse pour la au minimun 2eme fois ds ma page)

C'est donc la derniere dimension!...non?

Au faite je veux rajouter des lignes de mon tableau. Chaque produit prends une ligne dans mon tableau.

J'ai beau essayé:

Redim Preserve panier(uPan)
Redim Preserve panier(uPan,1)
Redim Preserve panier(uPan,23)

rien ne passe.

Le uPan est le nombre de ligne de ma 1ere colonne du tableau.
02/06/2006, 16h27
shinrei

je pense avoir commpris.
Quand on dit derniere dimension, c'est la derniere colonne qu'on peur redimensionner?

dans mon cas, ce sont les colonnes (qui est la 2eme et dernier dimension)?

Je te laisse mediter un peut là dessus.
Il est vrai que les tableaux en vbscript sont un peu bizarre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
<%
Dim Arr()
Redim Arr(1)
response.Write(ubound(Arr,1) & "<br>")
Redim preserve Arr(4)
response.Write(ubound(Arr,1) & "<br>")
Redim Arr(4, 5)
response.Write(ubound(Arr,1) & ", " & ubound(Arr,2) & "<br>")
Redim preserve Arr(4, 10)
response.Write(ubound(Arr,1) & ", " & ubound(Arr,2) & "<br>")
Redim Arr(4, 10, 20)
response.Write(ubound(Arr,1) & ", " & ubound(Arr,2) & ", " & ubound(Arr,3) & "<br>")
%>

A+

03/06/2006, 15h35
shinrei
SAlut,

Mais c'est la folie asp avec les tableaux!!!! 8O
On ne peux vraimet pas faire ce qu'on veut quoi.

Au faite on est obligé de donner une taille > à ce qu'on attend.
Genre je dois prevoir pour les utilisateurs une taille de 200 lignes par ex mais si jamais l'utilisateur depasse cette limite bah c'est la m*****.

Ce probleme est propre a asp ? ou vb etc
Estce que dans le .net il existe cette contraire?

Franchement PHP n'a vraiment aucun pbl sur ce sujet...

Une astuce que j'ai testé qui consiste à:
- mettre le tableau principal (tab1) dans un autre tableau temporaire (tmp)
- recupere les nouveaux produits dans un tableau (tab2)
- redefnir tab1 avec ubound(tmp)+ubound(tab2)
- puis rajouter d'abord tmp puis tab2 vers tab1.
Mais j'ai encore des erreurs de codage, mais c'est faisable comme ca? Avec cette methode on connaitra tjs la taille réelle du tableau tab1.
03/06/2006, 16h12
Immobilis

Si tu n'as qu'une dimension suceptible de changer il faut la mettre en dernier. Si tu en as deux, il faut effectivement utiliser un second tableau.

A+