Declarer des variable avec un nom composé

Version imprimable

15/08/2013, 09h51
abd75web

Declarer des variable avec un nom composé
Bonjour

es possible de declarer des variable avec un nom composé

exemple :
Code:

1 2 3 for i = 0 to N Dim Table & i AS datatable .........
merci
15/08/2013, 10h39
Invité

Bonjour

Pourquoi ne pas passer par des tableaux : http://plasserre.developpez.com/cour...e-vb1#LV-B-3-n

Philippe
15/08/2013, 11h05
Sankasssss

Bonjour,

la question est régulièrement posée sur le forum.

Avec une petite recherche tu trouves rapidement ton bonheur :
- http://www.developpez.net/forums/d60...ble-dynamique/

- http://www.developpez.net/forums/d12...amique-resolu/
15/08/2013, 11h07
abd75web
Le problème est que j'ai une Procédure avec paramètre
Code:

1 2 3 4 5 6 Sub ImporterPiece(Num_Piece) ........... Dim Table & Num_Piece As DataTable ......
est je veux déclarer une datatable avec un nom composé du mot "Table" et la valeur du paramaètre Num_Piece

Bonjour,

La réponse a déjà été donnée. Il suffit d'adapter.
Voici un exemple avec un dictionnaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    ' dictionnaire de DataTable accessible à travers une clé de type string (variable identifiant le DataTable) 
    Dim DicoDT As Dictionary(Of String, DataTable) = New Dictionary(Of String, DataTable)
 
    Private Sub btnCreTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreTable.Click
        ImporterPiece(nupNumTable.Value) 'utilisation d'un NumericUpDown sur la fenêtre de test. permet de choisir un chiffre pour tester.(remplacer par votre appel classique)
    End Sub
 
    Sub ImporterPiece(ByVal NP As Integer)
        ' Début de traitement cré la variable dans le dico et son DataTable associé
        DicoDT.Add("Table" & NP, New DataTable("Table" & NP))
        MessageBox.Show("Nom du DataTable " & DicoDT("Table" & NP).TableName)
        ' traitement avec Datatable : DicoDT("Table" & NP). ---
        '...
        ' fin de traitement supprime la clé (variable) et le DataTable du dico
        DicoDT.Remove("Table" & NP)
    End Sub

C'est un peu lourd a utilliser.