Hi,

I use a customized Generic List (VB.NET 2.0) inherited from BindingList(Of
T).

I made some methods in this BindingList, to allow me to do some standard
functions on the BindingList-Items.
One of them is for instance SumItems, which returns me the sum of a given
Property of all the Items in the List.

e.g.: MyBindingList.SumItems("Price") returns me the sum of all the prices
of my articles in the list.

But I would like to be able to access directly the Property's of the T-class
of my BindingList. It woudl be much much nicer if I could directly type in
the code editor MyBindingList.SumItems.Price, and that I can, while coding,
see al the proeprty's of my T-class after typing
"MyBindingList.SumItems."...

Because I use Generics I somehow think this should be possible, although I
don't find how...

Anybody has any ideas? Any help would be really appreciated!

Thanks a lot in advance,

Pieter

PS: My current SumItems-method:

   Public Function SumItems(ByVal ColumnName As String) As Decimal
       Dim properties As PropertyDescriptorCollection
       Dim myProperty As PropertyDescriptor
       Dim decSum As Decimal = 0

       Try
           ' Specify search columns
           If (ColumnName Is Nothing) Then
               Return Nothing
           End If

           ' Get list to search
           Dim lItems As List(Of T) = Me.Items

           If Me.Count > 0 Then
               properties =
TypeDescriptor.GetProperties(Me.Items(0).GetType)
               myProperty = properties.Find(ColumnName, True)

               If myProperty Is Nothing Then
                   Throw New ArgumentException("Invalid Property Name.",
ColumnName)
                   Return 0
                   Exit Function
               End If

               ' Traverse list for value
               For Each it As T In lItems
                   'Dim value As String = CStr(myProperty.GetValue(item))
                   decSum += CSng(myProperty.GetValue(it))
               Next it
           End If

       Catch ex As Exception
           Throw ex
       End Try

       Return decSum
   End Function