Discussion :

[abd75web]

Bonjour

es possible de declarer des variable avec un nom composé

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i = 0 to N
Dim Table & i AS datatable
.........

merci

[Invité]

Bonjour

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

Philippe

[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/

[abd75web]

Le problème est que j'ai une Procédure avec paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rv26t]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.