Discussion :

[nasty]

Bonjour,

Bon, le titre doit pas etre tres clair.

En winform, j'ai un datagridview, appelé grdCertif, je veux le databinder avec une liste d'objets basé sur la classe BRProduitAttente

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Class BRProduitAttente
    Public Property Id as int
    Public Property NoBr As String
    Public Overridable Property Fourn As Fournisseur
...
End Class
 
Public Class Fournisseur
    Public Property Id as Int
    Public Property Nom as string
...
End Class

J'ai défini les colonnes du datagridview via l'interface, ca ca fonctionne nickel.
Mon binding fonctionne pour les proprietés de la classe BRProduitAttente.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
public sub LoadGrid()
        Dim BRProduitAttentes As List(Of BRProduitAttente)
....
        BRProduitAttentes = (From bra In contextEF.BRProduitAttente
                             Where
                                bra.BonReceptionAttente.DateSupp Is Nothing And
                                bra.BonReceptionAttente.DateCrea >= DateSearch
                             Select bra).ToList() 'Requete allégée pour la forme
        grdCertif.DataSource = BRProduitAttentes
        grdCertif.Columns(0).DataPropertyName = "NoBr"
        grdCertif.Columns(2).DataPropertyName = "Fournisseur.Nom"
...

Mais je n'arrive pas a binder sur le champs Fournisseur.Nom
La colonne reste vide.

Si vous avez une idée je suis preneur.

Question bonus :

Est il possible de faire une concatenation dans un DataPropertyName ?

Par exemple, avec des champs au pif

Code :

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

1
2
 
grdCertif.Columns(4).DataPropertyName = "Id" + " " + "NoBr"

Merci d'avoir pris le temps de me lire.

Et si vous avez besoin d'infos supplementaires, n'hesitez pas.

[MABROUKI]

bonjour

Les "nested properties" ou proprietes imbriquées via des sous objets tel que ta prop CLR Fourn (du type Class Fournisseur) ne sont pas traitées par le Databinding des Winforms...

il faut y pallier par des expédients de ton propre code
Option 1:
En "wrappant" les prop <un à une> dans ton class BRProduitAttente à la manu !!!
exemple code :

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
22
23
24
25
26
27
28
29
30
31
32
33
 
 
Public Class Fournisseur
    Public Property Id As Integer
    Public Property Nom As String
End Class
 
 
Public Class BRProduitAttente
    Public Property Id As Integer
    Public Property NoBr As String
    Public Property FId As Integer
        Get
            Return Fourn.Id
        End Get
        Set(value As Integer)
            Fourn.Id = value
        End Set
    End Property
    Public Property Fnom As String
        Get
            Return Fourn.Nom
        End Get
        Set(value As String)
            Fourn.Nom = value
        End Set
    End Property
 
    Public Property Fourn As Fournisseur
    Public Sub New()
        Fourn = New Fournisseur
    End Sub
End Class

Option 2:

que je trouve plus élégante est ,tout en conservant intacts tes 2 class est d'utiliser un "Partial Class" (toujours disponible pour tous nos class "Custom" y compris ton c]ass BRProduitAttente ) dans un fichier à part...
code .vb du class "Partial" (fichier PartialBRProduitAttente.vb

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
 
 
Partial Public Class BRProduitAttente
 
    Public Property FournId As Integer
        Get
            Return Me.Fourn.Id
        End Get
        Set(value As Integer)
            Me.Fourn.Id = value
        End Set
    End Property
    Public Property FournNom As String
        Get
            Return Me.Fourn.Nom
        End Get
        Set(value As String)
            Me.Fourn.Nom = value
        End Set
    End Property
End Class

après le code de ton Winform s'en trouve allégé ...
code exemple :

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
22
23
24
25
26
27
28
29
30
 
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        LoadGrid()
    End Sub
    Public Sub LoadGrid()
        Dim BRProduitAttentes As List(Of BRProduitAttente)
        BRProduitAttentes = GetProduits()
        grdCertif.DataSource = BRProduitAttentes
        ' on cache le fourbi fournisseur
        grdCertif.Columns(2).Visible = False
    End Sub
 
 
    Private Function GetProduits() As List(Of BRProduitAttente)
        Dim l As New List(Of BRProduitAttente)
        For i As Integer = 1 To 10
            Dim prod As New BRProduitAttente() With {
                .Id = i * 100,
                .NoBr = "prod" + i.ToString(),
                .Fourn = New Fournisseur() With {
                    .Id = i,
                    .Nom = "alibaba"}}
            l.Add(prod)
        Next
 
        Return l
    End Function
End Class

bon code...

[nasty]

Bonjour,

Merci pour la solution.

Je vais tester tout ça.

Et si tout est bon, bah je clôture le sujet.