Discussion :

[DeveloppeurWeb]

Bonjour,
Je voudrais avoir la liste des établissements par client
J'ai écris ce code , mais il m'affiche le nombre des lignes par client et non pas le nombre d’établissement

Code :

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

1
2
3
Dim groupedEtaTiers = From EtaTiers In ComponentList_datagrid _
                   Group EtaTiers By Key = New With {Key EtaTiers.Tie_Code} _
                   Into Group Select New With {.Tie_Code = Key.Tie_Code, .ETA_CODE = Group.Count()}

Comment je peux faire pour corriger ça?

Merci

[DotNetMatt]

Ceci devrait fonctionner :

Code VB.NET :

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

1
2
3
4
5
6
7
Dim groupedEtaTiers = From EtaTiers In ComponentList_datagrid _
                      Group EtaTiers By EtaTiers.Tie_Code Into Grp _       ' J'utilise Grp au lieu de Group, car Group est un mot clef...
                      Select New With
                          {
                                .Tie_Code = Grp.Key,           ' La clef correspond à EtaTiers.Tie_Code
                                .ETA_CODE = Grp.Count()        ' On compte le nombre d'éléments groupés
                          }

[DeveloppeurWeb]

désolé , ça ne marche pas

[DotNetMatt]

C'est-à-dire ? Tu as un message d'erreur ?

[DeveloppeurWeb]

pièce jointe

[DotNetMatt]

Euhhh pourquoi as-tu rajouté des parenthèses après "Grp" ? Il faut les enlever

[DeveloppeurWeb]

c'est l'éditeur qui l'a ajouté (visual studio )

[callo]

Ces parenthèses n'ont pas leur place là; Faudrait les enlever comme te l'a suggéré DotNetMatt.

[DeveloppeurWeb]

Code :

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

1
2
3
4
5
6
 Dim groupedEtaTiers = From EtaTiers In ComponentList_datagrid _
                       Group EtaTiers By EtaTiers.Tie_Code Into Grp() Select New With
                           {
                                 .Tie_Code = Grp.Key,
        .ETA_CODE = Grp.Count()
                           }

quand j'écris Grp, et je passe à la ligne suivante les deux parenthèses s’ajoutent automatiquement

[callo]

Code :

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

1
2
3
4
5
 
Dim groupedEtaTiers = From EtaTiers In ComponentList_datagrid _
    Group EtaTiers By EtaTiers.Tie_Code Into Grp _
    Select New With { .Tie_Code = Grp.Key, _
   .ETA_CODE = Grp.Count() }

[callo]

Sur MSDN, tu as les différents syntaxes de Group By pour vb.net.
La conversion de Into Grp à Into Grp() devrait être un caprice de visual studio ou vb.net. ce qui est sûr, en c#, il n' y a pas ce comportement.

[DeveloppeurWeb]

J'ai pris le même code et ça a jouté des ()

[callo]

As-tu essayer d'adapter ta requête en fonction des syntaxes suggérées dans le lien MSDN que je t'ai mis?

[DeveloppeurWeb]

Code :

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

1
2
3
4
5
6
 
        Dim groupedEtaTiers = From e In ComponentList_datagrid Where e.ETA_CODE <> "" Group e By
                               Key = New With {Key e.Tie_Code} Into Group Select New With { _
                    .Tie_Code = Key.Tie_Code,
                    .NombreEtab = Group.Distinct.Count(Function(g) g.ETA_CODE)
                    }

erreur: conversion string ti boolean sous g.eta_code

[DeveloppeurWeb]

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
34
   Dim groupedEtaTiers = From e In ComponentList_datagrid Where e.ETA_CODE <> "" Group e By
                               Key = New With {Key e.Tie_Code} Into Group Select New With { _
                    .Tie_Code = Key.Tie_Code, _
                    .NombreEtab = Group.Distinct(New LiGenRelComparer()).Count()}
 
 
 
Class LiGenRelComparer
    Implements IEqualityComparer(Of LigGenRel)
 
 
 
    Public Function Equals1(ByVal x As LigGenRel, ByVal y As LigGenRel) As Boolean Implements System.Collections.Generic.IEqualityComparer(Of LigGenRel).Equals
        If [Object].ReferenceEquals(x, y) Then
            Return True
        End If
 
        If [Object].ReferenceEquals(x, Nothing) OrElse [Object].ReferenceEquals(y, Nothing) Then
            Return False
        End If
 
        Return x.ETA_CODE = y.ETA_CODE
    End Function
 
    Public Function GetHashCode1(ByVal obj As LigGenRel) As Integer Implements System.Collections.Generic.IEqualityComparer(Of LigGenRel).GetHashCode
        If [Object].ReferenceEquals(obj, Nothing) Then
            Return 0
        End If
 
        Dim hashTextual As Integer = If(obj.ETA_CODE Is Nothing, 0, obj.ETA_CODE.GetHashCode())
 
        Return hashTextual
    End Function
End Class