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
|
Dim query = From r In table _
Group r By Region = r.Field(Of String)("Region"), BL = r.Field(Of String)("Compte"), Act = r.Field(Of String)("zone") Into g = Group Order By Region
Dim ds As New DataSet
Dim dt As DataTable = New DataTable("test")
dt.Columns.Add("Region")
dt.Columns.Add("compte")
dt.Columns.Add("zone")
''import dans un tableau variable
Dim i As Double = 0
MaListe = New List(Of filtrer)
For Each emp In query
Dim row As DataRow = dt.NewRow
row(0) = emp.Region.ToString
row(1) = i
MaListe.Add(New filtrer(emp.Region.ToString, emp.compte.ToString, emp.zone))
i = i + 1
Next
'Dim dv As DataView = New DataView(dt)
TreeView1.ItemsSource = dt.DefaultView |
Partager