I think this will be a good one for anyone who fancies themselves a wiz
with manipulating data structure in vb.net. Imagine a Dictionary
collection of Object "A". One of the properties of Object "A" is
dictionaty collection of Object "B". Can I sort Object "A" using one of
the properties within the collection of Objects "B"?
Using the data structure below, a report has many lines, each line has
many items, each item is made up of a current value and previous value.
I want to sort the lines of the report using the current value of one
of the items.
Does this make any sense? Can it be done. I know there are people out
there who live to figure out stuff like this (bless you... we need more
of you).
Thanks... Sherry
<Serializable()> _
Public Class RptLines
Inherits System.Collections.DictionaryBase
Public Property Item(ByVal key As String) As RptLine
Get
Return DirectCast(Me.Dictionary.Item(key), RptLine)
End Get
Set(ByVal Value As RptLine)
Me.Dictionary.Item(key) = Value
End Set
End Property
Public Sub Add(ByVal key As String, ByVal value As RptLine)
Me.Dictionary.Add(key, value)
End Sub
Public Function Contains(ByVal key As String) As Boolean
Return Me.Dictionary.Contains(key)
End Function
Public Sub Remove(ByVal key As String)
Me.Dictionary.Remove(key)
End Sub
Public Function Keys() As Collection
Return Me.Keys
End Function
Public Function DictionaryHashtable() As Hashtable
Return Me.InnerHashtable
End Function
End Class
<Serializable()> _
Public Class RptLine
Public Metrics() As RptItems
Public Scope() As String
End Class
<Serializable()> _
Public Class RptItems
Inherits System.Collections.DictionaryBase
Default Public Property Item(ByVal key As String) As RptItem
Get
Return DirectCast(Me.Dictionary.Item(key), RptItem)
End Get
Set(ByVal Value As RptItem)
Me.Dictionary.Item(key) = Value
End Set
End Property
Public Sub Add(ByVal key As String, ByVal value As RptItem)
Me.Dictionary.Add(key, value)
End Sub
Public Function Contains(ByVal key As String) As Boolean
Return Me.Dictionary.Contains(key)
End Function
Public Sub Remove(ByVal key As String)
Me.Dictionary.Remove(key)
End Sub
Public Function Keys() As Collection
Return Me.Keys
End Function
End Class
<Serializable()> _
Public Class RptItem
Public Title() As String
Public CurValue() As Single
Public PrevValue() As Single
End Class
