Thanks Timothy, I will definitely try that.


>Hi Marc,
>
>Pluralsight has a pretty decent section on Linq and you can get a free 10 day trial. Plenty of time to watch the linq videos.
>
>http://www.pluralsight.com
>
>
>>>>>select field1, sum(field2) as total from mytable group by field1
>>>
>>>Is mytable a datatable?
>>>Is it in a typed.dataset?
>>
>>a datatable, extracted via a query on an access database (that's what oSql does, it fills osql.dt from the qryBestelKK)
>>
>>
>>

>>
>>        Dim osql As New sqlClass : osql.Execute("qryBestelKK")
>>        Dim orders As IEnumerable(Of DataRow) = osql.dt.AsEnumerable
>>
>>        Dim test = From r In orders _
>>                   Group r By name = r.Field(Of String)("KL_Naam") _
>>                   Into g = Group Select New With {.Name = name, .total = g.Sum(Function(r) r.Field(Of Decimal)("Bestd_Waarde"))}
>>
>>        For Each r In test
>>            Console.WriteLine("name: {0} total {1}", r.Name, r.total)
>>        Next
>>
>>

>>
>>essentially copied it from
>>
>>

>>' Fill the DataSet.
>>Dim ds As New DataSet()
>>ds.Locale = CultureInfo.InvariantCulture
>>' See the FillDataSet method in the Loading Data Into a DataSet topic.
>>FillDataSet(ds)
>>
>>Dim products As IEnumerable(Of DataRow) = _
>>    ds.Tables("Product").AsEnumerable()
>>
>>Dim query = _
>>    From product In products _
>>    Group product By style = product.Field(Of String)("Style") Into g = Group _
>>    Select New With _
>>        { _
>>            .Style = style, _
>>            .AverageListPrice = g.Average(Function(product) _
>>                    product.Field(Of Decimal)("ListPrice")) _
>>        }
>>
>>For Each product In query
>>    Console.WriteLine("Product style: {0} Average list price: {1}", _
>>        product.Style, product.AverageListPrice)
>>Next
>>

>>
>>Not sure I understand it, but it does work. :)
>>
>>http://msdn.microsoft.com/en-us/library/bb386991.aspx
>>
>>Thanks for caring and kind regards,
>>
>>Marc