[x]
Posted via EE Mobile

Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.
Question
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
8.9

Sorting generic list(of obj) with mulltiple keys

Asked by PhotoCompManager in .NET Framework 3.x versions, VB Controls

Tags: VB net

I need to sort a generic list with multiple keys ... for example, I want to sort a list of person objects by Age within Department.

I can sort the list to Age OK but when I then re-sort this sorted list by Department the Age sequence is destroyed.

Is there a way to preserve the sub-order? 
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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lst As New List(Of cls)
        For age = 1 To 12 'generate test data
            lst.Add(New cls(age))
        Next
        For i = 0 To 11
            lst(i).dept = Math.Truncate(i / 4)
        Next
        cls.sortType = sortTypes.Dept
        lst.Sort()
        For i = 0 To 11
            Debug.Print(lst(i).dept & " : " & lst(i).age)
        Next
    End Sub
End Class
Public Enum sortTypes
    age
    dept
End Enum
Friend Class cls
    Implements IComparable(Of cls)
    Public Shared sortType As sortTypes
    Friend dept As Integer = 0
    Friend age As Integer = 0
    Public Sub New(ByVal _i)
        age = _i
    End Sub
    Public Function SortKey() As Object
        If sortType = sortTypes.age Then Return age
        Return dept
    End Function
    Public Overloads Function compareTo(ByVal other As cls) As Integer Implements IComparable(Of cls).CompareTo
        If SortKey() = other.SortKey Then Return 0
        Return IIf(other.SortKey > SortKey(), -1, 1)
    End Function
 
End Class
[+][-]11/02/09 11:27 AM, ID: 25722741Accepted Solution

View this solution now by starting your 30-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

About this solution

Zones: .NET Framework 3.x versions, VB Controls
Tags: VB net
Sign Up Now!
Solution Provided By: CraigWagner
Participating Experts: 2
Solution Grade: A
 
[+][-]11/02/09 11:33 AM, ID: 25722799Assisted Solution

Assisted solutions are selected by the member who asked the question as a comment that contributed to their question's solution.

Start your 30-day free trial to view this Assisted Solution or ask the Experts your question.

 
 
Loading Advertisement...
20091111-EE-VQP-89 - Hierarchy / EE_QW_3_20080625