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