Se balader dans une structure

Version imprimable

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:

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 ?

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

Code:

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+

07/10/2013, 08h43
GuruuMeditation
Attention, si les champs ne sont pas public, il faut ajouter des flags
Code:

1 2 iFeldInfo[] fields = myType.GetFields(BindingFlags.NonPublic | BindingFlags.Instance);
07/10/2013, 09h35
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.

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

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.

07/10/2013, 12h54
wallace1
Code:

1 2 Maliste.value
Ou :
Code:

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+
07/10/2013, 13h25
shayw

Bonjour

Pas trop compris :roll:

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

Citation:

... code pour remplir maliste

pourquoi ne pas écrire dans ce code pour remplir ta datatable
07/10/2013, 14h07
noftal
Citation:
Envoyé par wallace1

Code:

1 2 Maliste.value

Ou :

Code:

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:

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.

Citation:

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:

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.

tenté mais pas réussi :cry:

Code:

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:

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

peut etre ainsi

Code:

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

07/10/2013, 22h11
noftal

@shayw

Merci c'est exactement la bonne syntaxe.

Code:

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 ;)