Bonjour,

voial j'ai trouvé une fonction sur le net qui me permette de réaliser un "selectdistinct" dans une datatable, cela fonctionne parfaitement!

maintenant j'aimerai ajouter a cette fonction une fonctionnalité me permettant de ne renvoyer que ceux ayant une occurence supérieure à 10...

la fonction étant la suivante :


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
Private Function SelectDistinct(ByVal table As DataTable, ByVal champ As String) As DataTable
        Dim i As Int32
        Dim ret As Int16
        Dim dtResultat As New DataTable
        dtResultat.Columns.Add(champ, table.Columns(champ).DataType)
        dtResultat.DefaultView.Sort = champ
        dtResultat.DefaultView.ApplyDefaultSort = True
        For i = 0 To table.Rows.Count - 1
            If dtResultat.Rows.Count > 0 Then
                ret = dtResultat.DefaultView.Find(table.Rows(i)(champ))
                If ret = -1 Then
                    dtResultat.Rows.Add(dtResultat.NewRow)
                    dtResultat.Rows(dtResultat.Rows.Count - 1)(champ) = table.Rows(i)(champ)
                End If
            Else
                dtResultat.Rows.Add(dtResultat.NewRow)
                dtResultat.Rows(0)(champ) = table.Rows(0)(champ)
            End If
        Next
        Return dtResultat
    End Function
si quelqu'un voulait bien me donner un petit coup de main pour arriver a cela je lui en serais extrement reconnaissant!!

D'avance merci!!