Public Sub Sort(contacts As Object, comparer As Object, fieldName As String, direction As String) Dim itemIndex As Integer = 0 Select Case fieldName Case "FirstName" If direction = "decend" Then comparer = serializeInfo.OrderByDescending(Function(x) x.FirstName).ToList() For itemIndex = 0 To serializeInfo.Count - 1 Console.WriteLine(comparer(itemIndex).FirstName) Next Else comparer = serializeInfo.OrderBy(Function(x) x.FirstName).ToList() End If
Public Sub Sort(contacts As Object, comparer As List(Of Contact), fieldName As String, direction As String)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)