如何对列表进行排序？答案

【问题标题】：How to sort a List?如何对列表进行排序？
【发布时间】：2012-12-16 06:36:45
【问题描述】：

我尝试了多种方式对列表进行排序，但没有一个对我有用。我一定做错了什么。我想对 List details 进行排序，然后对其进行序列化并将其发送到 UI，以便我在 UI 中有一个排序后的 List。所以基本上我希望Return strJson 返回排序（按排序属性排序）列表。希望我说得通。

<WebMethod(Description:="Get Home Page Items Page Wise", EnableSession:=True)> _
    <ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
    Public Function GetHomePageItemsPageWise(ByVal pageIndex As String) As Object
        Dim details As New List(Of HomePageObject)()

        Dim idObject As New List(Of GetIdBasedOnInterest)()
        idObject = CType(BLL.GetDataByInterests(CType(BLL.GetAccIdFromSocialAuthSession(), Integer)), List(Of GetIdBasedOnInterest))


        Dim cmd As DbCommand = _db.GetStoredProcCommand("GetHomePageObjectPageWise")
        _db.AddInParameter(cmd, "PageIndex", SqlDbType.VarChar, pageIndex)
        _db.AddInParameter(cmd, "PageSize", SqlDbType.Int, 10)
        _db.AddOutParameter(cmd, "PageCount", SqlDbType.Int, 1)
        _db.AddInParameter(cmd, "whereStoryID", SqlDbType.VarChar, idObject(0).StoryIds)
        _db.AddInParameter(cmd, "whereAlbumID", SqlDbType.VarChar, idObject(0).AlbumIds)
        _db.AddInParameter(cmd, "wherePictureID", SqlDbType.VarChar, idObject(0).PictureIds)

        Try
            Using ds As DataSet = _db.ExecuteDataSet(cmd)
                For Each rs As DataRow In ds.Tables(0).Rows
                    Dim homePageObject As New HomePageObject()

                    homePageObject.AlbumId = rs("AlbumId").ToString()
                    homePageObject.StoryTitle = rs("StoryTitle").ToString()
                    homePageObject.AlbumName = rs("AlbumName").ToString()
                    homePageObject.AlbumCover = rs("AlbumCover").ToString()
                    homePageObject.Votes = rs("Votes").ToString()
                    homePageObject.PictureId = rs("PictureId").ToString()
                    homePageObject.TableName = rs("tableName").ToString()
                    homePageObject.PageCount = CType(cmd.Parameters("@PageCount").Value, Integer)
                    homePageObject.Sort = Guid.NewGuid()
                    details.Add(homePageObject)
                    Next
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Dim js As New JavaScriptSerializer()
        Dim strJson As String = js.Serialize(details.ToArray)
        Return strJson
    End Function

【问题讨论】：

Sort a Custom Class List<>的可能重复
排序属性是一个 GUID，在这里它似乎没用。
@KundanSinghChouhan 请解释一下，为什么说它没用？我是编程新手。
实际上 guid 就像系统生成的字符串，因此没有必要对记录进行相应的排序，因为它是随机的。
在 WebService 方法中使用 MsgBox 是个坏主意。客户永远不会看到它。

标签： asp.net vb.net list

【解决方案1】：

要随机化列表，您可以执行以下操作。（并且您不需要 HomePageObject 中的 Sort 属性来完成此操作）

Dim rnd As new Random()
Dim strJson As String = js.Serialize(details.OrderBy(Function(x) rnd.Next()).ToArray())

【讨论】：