Discussion :

[Mario Rousson]

Bonjour,

J'aimerais grouper la liste d'une colomn d'un Dataset, dans la colomn EtFin il y a plusieurs dates qui se répète que j'aimerais liste

Code :

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

1
2
3
4
5
 
Dim Exp As String = "DateEt=" & "GROUP DateEt"
        Dim FindRows() As DataRow
        FindRows = ObjDataSet.Tables("EtFin").Select(Exp)
etc.

merci de vos conseils
Mario

[Mario Rousson]

j'essai l'exemple du MSDN mais ça fonctionne pas

Code :

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

1
2
3
4
5
6
 Dim Exp As String = "DateEt LIKE #*#"
        Dim FindRows() As DataRow
        FindRows = ObjDataSet.Tables("EtFin").Select(Exp)
        For Each Rw In FindRows
            Console.WriteLine(CStr(Rw.Item(5)))
        Next

[Mario Rousson]

Y a t'il une meilleur façon que celle ci?

Code :

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

1
2
3
4
5
6
7
8
 
 Dim ArLi As New ArrayList
        For Each rw As DataRow In ObjDataSet.Tables("EtFin").Rows
            If Not ArLi.Contains(CDate(rw.Item(7))) Then
                ArLi.Add(CDate(rw.Item(7)))
            End If
 
        Next

merci

[Sankasssss]

Bonjour,

DataView.ToTable Method :

Code :

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

1
2
Dim dtDistinct as datatable
dt = ObjDataSet.Tables("EtFin").defautView.toTable(True, new String(){"DateEt"})

aussi non y'a Linq to dataSet qui permet aussi de faire la chose :

Code :

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

1
2
Dim dateD= (from DataRow dr in ObjDataSet.Tables("EtFin").Rows
             select (string)dr["Name"]).Distinct()

ATTENTION : le code a été tapé à la volée et nécessitera peut-être une petite correction...

[Mario Rousson]

Merci beaucoup Sankasssss la premie`re option fonctionne à merveille