Discussion :

[Bibi_Seal]

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 VB.NET :

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

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 VB.NET :

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

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 :

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.

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

[Bibi_Seal]

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 :

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