Сортировка 2 или более связанных списков в VB.Net

Question

Я создаю небольшую визуальную базовую программу для окон, и я пытаюсь реализовать функцию сортировки для данных. Я легко мог сортировать поле списка имен в алфавитном порядке, но все другие значения, связанные с этим именем (адрес, дата и т. Д.), Я не могу сортировать с ним.

Любая помощь была бы принята с благодарностью.

Вот код, я использую для сортировки списка:

Private Sub btnsort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsort.Click 
    Dim Templist As New List(Of String) 
    For Each LI In lstName.Items 
     Templist.Add(String.Concat(LI.ToString)) 
    Next 
    Templist.Sort() 
    lstName.DataSource = Templist 
End Sub 

здесь новый код:

Private Sub btnsort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsort.Click 
    Dim items = _ 
Enumerable _ 
    .Range(0, lstapartment.Items.Count) _ 
    .Select(Function(n) New With _ 
    { _ 
     .apartment = CInt(lstapartment.Items(n)), _ 
     .name = CStr(lstname.Items(n)), _ 
     .date = CStr(lsttime.Items(n)), _ 
     .contact = CInt(lstcontact.Items(n)) _ 
    }) _ 
    .OrderBy(Function(x) x.apartment) _ 
    .ToArray() 

    lstname.DataSource = items.Select(Function(x) x.apartment).ToArray() 
    lstcontact.DataSource = items.Select(Function(x) x.name).ToArray() 
    lstapartment.DataSource = items.Select(Function(x) x.contact).ToArray() 
    lsttime.DataSource = items.Select(Function(x) x.Date).ToArray() 
End Sub 

Answer 1

Попробуйте дать это идти:

Private Sub btnsort_Click(sender As Object, e As EventArgs) Handles btnsort.Click 

    Dim items = _ 
     Enumerable _ 
      .Range(0, lstName.Items.Count) _ 
      .Select(Function(n) New With _ 
      { _ 
       .Name = CStr(lstName.Items(n)), _ 
       .Address = CStr(lstAddress.Items(n)), _ 
       .Phone = CStr(lstPhone.Items(n)), _ 
       .Date = CDate(lstDate.Items(n)) _ 
      }) _ 
      .OrderBy(Function(x) x.Name) _ 
      .ToArray() 

    lstName.DataSource = items.Select(Function(x) x.Name).ToArray() 
    lstAddress.DataSource = items.Select(Function(x) x.Address).ToArray() 
    lstPhone.DataSource = items.Select(Function(x) x.Phone).ToArray() 
    lstDate.DataSource = items.Select(Function(x) x.Date).ToArray() 

End Sub 

Предполагается, что в каждом списке есть одинаковое количество элементов, но это похоже на то, что происходит.