试图在 vb.net 中获取排序列表

Question

我有两个从数据库填充的列表框（可用项目和选定项目）。我可以通过这些列表之间的按钮添加和删除，但是当我从 Selected 列表中删除时，该项目会转到 Available 列表的底部。它没有按字母顺序排列。所以我正在尝试使用 Linq 选项。

这是我得到的错误：

Unable to cast object of type 'System.Linq.OrderedEnumerable2[System.Object,System.Object]' to type 'System.Collections.Generic.IEnumerable1[System.Web.UI.WebControls.ListItem]'.

代码：

Imports System.Linq
        'After adding the item to the list sort it
        Dim myQuery As IEnumerable(Of ListItem)

        myQuery = From result In Available.Items _
            Select result _
            Order By result.Text Ascending
        'Rebuild the list
        Available.Items.Clear()
        For Each item In myQuery
            Available.Items.Add(item)
        Next
    End Sub

Answer 1

由于Items 返回的ListItemCollection 仅实现IEnumerable，而不是IEnumerable(Of ListItem)，因此您应该在查询中添加Cast。您还需要使用 ToList() 或其他强制评估查询的东西，然后再清除它，因为 LINQ 查询是延迟评估的，否则列表将在您的查询被评估之前被清除！

myQuery = (
    From result In Available.Items.Cast(Of ListItem)() _
    Select result _
    Order By result.Text Ascending
).ToList()

您可能还想转至Option Strict On 以帮助查找更多 编译时的问题。