Discussion :

[noftal]

Bonjour,

Je voudrais savoir s'il existe un moyen de parcourir les items d'une structure par le biais d'une boucle, du genre

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
 
Structure mastruct
        Dim item0 as String
        Dim item2 as Boolean
        ...
        Dim item36 as Integer
End Structure
 
 
Dim maliste As mastruct
... code pour remplir maliste
 
' je voudrais faire qqch comme : 
For i =0 to 36
Datarow(i) = mastruct.item(i)
Next

En clair, dans mon exemple, il s'agit de remplir une ligne de datatable (et donc, in fine, la ligne d'une table de BdD) avec les items de ma structure
Sans avoir à écrire 37 lignes de code.

Je suppose que la réponse est : non, ce n'est pas possible.
Mais dans ce cas, quelle serait la meilleure méthode ?

[wallace1]

euhhh ..... OUI c'est possible et ça se fait comme ceci :

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
 
Imports System.Reflection
 
Structure mastruct
        Dim item0 as String
        Dim item2 as Boolean
        '...
        Dim item36 as Integer
End Structure
 
 
Dim sType As Type = GetType(mastruct)
For Each fType As FieldInfo In sType.GetFields()
        Msgbox(fType.Name)
Next

A+

[GuruuMeditation]

Attention, si les champs ne sont pas public, il faut ajouter des flags

Code C# :

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

1
2
 
iFeldInfo[] fields = myType.GetFields(BindingFlags.NonPublic | BindingFlags.Instance);

[noftal]

Super !!
Je n'aurais pas trouvé tout seul.
Il faudra que j'approfondisse ces instructions que je ne connaissais pas.

Merci de votre aide.

[noftal]

Oups, je me suis trompé dans l'énoncé de mon pb. Le bon code était celui-ci :

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
Structure mastruct
        Dim item0 as String
        Dim item2 as Boolean
        ...
        Dim item36 as Integer
End Structure
 
 
Dim maliste As mastruct
... code pour remplir maliste
 
' je voudrais faire qqch comme : 
For i =0 to 36
Datarow(i) = maliste.item(i)
Next

En gros ce n'est pas dans la structure que je veux me "balader" mais dans une variable de type structure.

[wallace1]

Code :

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

1
2
 
Maliste.value

Ou :

Code :

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

1
2
 
Maliste.GetValue

Je n ai pas mon EDI sous les yeux donc utilises intellisense pour voir les propriétés ou méthodes qu'on te propose


A+

[shayw]

Bonjour

Pas trop compris

quel rapport entre la datatable et maliste ?
est ce que maliste correspond à une rangée du datatable ?

... code pour remplir maliste

pourquoi ne pas écrire dans ce code pour remplir ta datatable

[noftal]

Code :

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

1
2
 
Maliste.value

Ou :

Code :

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

1
2
 
Maliste.GetValue

Je n ai pas mon EDI sous les yeux donc utilises intellisense pour voir les propriétés ou méthodes qu'on te propose


A+

Ben justement, si je tape "maliste.", l'iDE me propose :
- tous les membres de la structure (item1, item2 ... item36)
- Equals
- GetHashCode
- GetType, ReferenceEquals

Je n'ai pas trouvé comment balayer tous les items dans une boucle.

L'idéal serait un truc comme

Code :

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

1
2
3
4
5
6
 
dim i As Integer = 0 
For Each fType as FieldInfo In sType.GetFields()
         datarow(i) = Eval("maliste." & fType.Name)
         i+=1
Next

La dernière instruction n'existe pas ; c'est du pseudo-code pour dire que je colle "maliste." à fType.Name pour former successivement :
- maliste.item1
- maliste.item2
-...
- maliste .item36

C'est la traduction en VB.NET de ce pseudo-code que je ne trouve pas.

[noftal]

quel rapport entre la datatable et maliste ?
est ce que maliste correspond à une rangée du datatable ?

Les champs de la datatable sont effectivement typés comme ma structure :
- même nombre de colonnes (37)
- mêmes types (integer, string, boolean etc...)

Le passage par l'intermédiaire de la structure c'est que je peux définir dans le code une instance par défaut de cette structure :

Code :

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

1
2
3
Dim MydefaultList As mastruct
MyDefaultList.MyDefaultListInit()
'Sub MyDefaultListInit() est une procédure Friend, membre de la structure dans laquelle je donne des valeurs par défaut à mes 37 items.

[shayw]

tenté mais pas réussi

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
17
18
19
20
21
Private table As New DataTable
    Structure mastruct
        Dim item0 As String
        Dim item1 As Boolean
        Dim item2 As String
        Dim item3 As Boolean
        Dim item4 As String
 
    End Structure
    Dim malist As mastruct
 Private Sub filldatatable()
 
        Dim col As Integer
        Dim sType As Type = GetType(mastruct)
        table.Rows.Add()
        col = 0
        For Each fType As FieldInfo In sType.GetFields()
            table.Columns.Add()
            table.Rows(table.Rows.Count - 1).Item(col) = ?????
        Next
    End Sub

d'un coté tu ne veux écrire 37 lignes de code. mais la sub MyDefaultListInit
contient bien 37 lignes
tu peux écrire ainsi

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
17
18
19
Private Sub MyDefaultListInit()
        table.Rows.Add()
        malist.item0 = "aaa"
        table.Columns.Add()
        table.Rows(table.Rows.Count - 1).Item(table.Columns.Count - 1) = malist.item0
        malist.item1 = False
        table.Columns.Add()
        table.Rows(table.Rows.Count - 1).Item(table.Columns.Count - 1) = malist.item1
        malist.item2 = "bbb"
        table.Columns.Add()
        table.Rows(table.Rows.Count - 1).Item(table.Columns.Count - 1) = malist.item2
        malist.item3 = True
        table.Columns.Add()
        table.Rows(table.Rows.Count - 1).Item(table.Columns.Count - 1) = malist.item3
        malist.item4 = "ccc"
        table.Columns.Add()
        table.Rows(table.Rows.Count - 1).Item(table.Columns.Count - 1) = malist.item4
 
    End Sub

[shayw]

peut etre ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private table As New DataTable
   Private Sub filldatatable()
        table.Clear()
        Dim col As Integer
        Dim sType As Type = GetType(mastruct)
        table.Rows.Add()
        col = 0
        For Each fType As FieldInfo In sType.GetFields()
            table.Columns.Add()
            table.Rows(table.Rows.Count - 1).Item(col) = fType.GetValue(malist)
        Next
    End Sub

[noftal]

@shayw

Merci c'est exactement la bonne syntaxe.

Code :

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

fType.GetValue(malist)

J'ai pourtant tourné autour toute l'après-midi sans la trouver.

Je vais me coucher moins bête ce soir