Vb.net Linq order by special

Question

В vb.net Linq, я хочу сортировать список по значению, но если значение равно null, оно должно использовать другое значение.

Пример:

Class Item 
    Public _Id As Integer 
    Public _FullName As String 
    Public _Acronym As String 

    Public Sub New(ByVal id As Integer, ByVal fullName As String, ByVal acronym As String) 
     Me._Id = id 
     Me._FullName = fullName 
     Me._Acronym = acronym 
    End Sub 
End Class 

Sub Main() 
     Dim itemList As New List(Of Item) 
     itemList.Add(New Item(1, "AZZ", "A")) 
     itemList.Add(New Item(2, "BBB", "B")) 
     itemList.Add(New Item(3, "FFF", "F")) 
     itemList.Add(New Item(4, "An item", Nothing)) 

     itemList = (From l In itemList Order By l._Acronym).ToList 

     For Each i In itemList 
      Debug.Print(String.Format("{0}{2}{1}", i._Acronym, i._FullName, IIf(i._Acronym IsNot Nothing, " - ", ""))) 
     Next 
    End Sub 

Результат с такого рода:

An item 
A - AZZ 
B - BBB 
F - FFF 

Результат Я хочу:

A - AZZ 
An item 
B - BBB 
F - FFF 

Поскольку "" должно быть после того, как "А".

Сортировка следует использовать с помощью сокращения, но если аббревиатура - ничто, он должен использовать полное имя. Мы не можем поместить значение FullName в Акроним в результате. это может быть сделано как метод для сортировки, но в списке результатов необходимо сохранить исходное значение аббревиатуры.

Answer 1

C#

ItemList.OrderBy(x=>x._Acronym??x._FullName); 

VB.NET

ItemList.OrderBy(Function(x) If(x._Acronym, x._FullName)) 

Answer 2

Что о добавлении дополнительного свойства к классу - Что-то вдоль линий:

Public ReadOnly Property Sorter As String 
    Get 
     If _Acronym Is Nothing Then Return _FullName Else Return _Acronym 
    End Get 
End Property 

Тогда вы просто изменить LINQ для сортировки на основании этого свойства, а не _Acronym.

Будет ли это работать для вас ?? (PS - я сделал это очень быстро, я не уверен, что я правильно создал эту собственность, но это должно быть то, что вы ищете, я считаю)

Answer 3

Вы можете использовать IF функция vb.net в

itemList = (From l In itemList Order By If(l._Acronym Is Nothing, l._Id, l._Acronym)).ToList