Source colonnes concaténées pour combobox

Version imprimable

Bonjour tout le monde.

Je débute en linq et j'essai d'initialiser une combobox avec des champs concaténés.
Si je fais de cette façon cela fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
Dim QAcpte = From c In ctxDev.tabfacture_ent
                     Where c.IDDevis_ENT = intDevis And c.IDTYPE_FACTURE = App_Param.Default.intTypeAcpte
                     Order By c.Date_Creation Descending
                     Select c
 
With cboAcpte
            .DataSource = QAcpte.ToList
            .DisplayMember = "Date_Creation"
            .ValueMember = "IDDevis_ENT"
End With

Par contre quand je concatène 3 champs pour faire mon displaymember de la combo :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim QAcpte = (From c In ctxDev.tabfacture_ent
              Where c.IDDevis_ENT = intDevis And c.IDTYPE_FACTURE = App_Param.Default.intTypeAcpte
              Order By c.Date_Creation Descending
              Select New With {
                     Key .Display = c.Date_Creation & " - " & c.IDFacture_ENT & " - " & c.tabadm_etat_facture.Lib_Etat_Facture,
                     Key .IDFact = c.IDFacture_ENT
                     })
 
With cboAcpte
            .DataSource = QAcpte.ToList
            .DisplayMember = "Display"
            .ValueMember = "IDFact"
End With

j'ai une erreur lors de l'exécution :

Citation:

Aucun ResultType valide n'a pu être déduit à partir des ResultTypes des expressions Then spécifiées.

Si quelqu'un pouvait m'aiguiller sur mon erreur, ce serait sympa.

Merci d'avance.

26/11/2016, 01h40
DotNetMatt

C'est probablement parce que quand tu fais Select New With { tu crees un objet anonyme, et le control ne peut pas en deduire les proprieties. As-tu essaye d'utiliser une classe au lieu d'un type anonyme ?

Citation:

Envoyé par DotNetMatt

C'est probablement parce que quand tu fais Select New With { tu crees un objet anonyme, et le control ne peut pas en deduire les proprieties. As-tu essaye d'utiliser une classe au lieu d'un type anonyme ?

Merci de ta réponse.
Effectivement en passant par une classe cela fonctionne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Public Class clsDisplayCbo
    Public Property IDFact As String
    Public Property TextCbo As String
End Class
 
Dim reqCboDisp = From c In ctxDev.tabfacture_ent
                             Where c.IDDevis_ENT = intDevis And c.IDTYPE_FACTURE = App_Param.Default.intTypeAcpte
                             Order By c.Date_Creation Descending
                             Select
                                 New clsDisplayCbo With {
                                        .IDFact = c.IDFacture_ENT,
                                        .TextCbo = String.Concat(c.Date_Creation, " - ", c.IDFacture_ENT)
                                       }
 
            With cboAcpte
                .DataSource = reqCboDisp.ToList
                .DisplayMember = "TextCbo"
                .ValueMember = "IDFact"
            End With