DataListに対するソート

'単一項目しか持たないListのソート
Dim wList2 As New List(Of String)
wList2 = wList2.OrderBy(Function(x) x).ToList

(*)Sortした値をリストやDGVのデータソースにセットするなら、ToList！

’複数項目あるリストを指定項目でソート
Dim orderByList = list6.OrderBy(Function(x) x.key)
(*)x.key:ソートキーとなる項目

'---降順
Dim orderByList2 = list6.OrderByDescending(Function(x) x.UserId)
'---条件+ソート
Dim list7 = list6.Where(Function(x) x.UserGrant = 1 And x.UserStatus = 1) _
.OrderBy(Function(x) x.UserId)