webpageshare.vb

来自「是可以运行的电子光盘 有程序与PPT介绍 对于学习VB。NET的有参考意义」· VB 代码 · 共 25 行

Imports Microsoft.VisualBasic

Public Module WebPageShare
    Public Sub GridViewSort(ByVal GridView1 As GridView, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs)
        '所有页面GridView控件的排序，共用Session("SortName")和Session("SortAscending")会话
        Dim strSortBy As String = System.Web.HttpContext.Current.Session("SortName")
        Dim strSortAscending As String = System.Web.HttpContext.Current.Session("SortAscending")
        System.Web.HttpContext.Current.Session("SortName") = e.SortExpression '从事件参数获取排序数据列
        If e.SortExpression = strSortBy Then
            System.Web.HttpContext.Current.Session("SortAscending") = IIf(strSortAscending = "yes", "no", "yes")
        Else
            System.Web.HttpContext.Current.Session("SortAscending") = "no"
        End If

        For i As Short = 0 To GridView1.Columns.Count - 1
            GridView1.Columns(i).HeaderText = Replace(GridView1.Columns(i).HeaderText, Data.C_strImgAsc, "")
            GridView1.Columns(i).HeaderText = Replace(GridView1.Columns(i).HeaderText, Data.C_strImgDesc, "")
            If GridView1.Columns(i).SortExpression = e.SortExpression Then
                GridView1.Columns(i).HeaderText &= IIf(strSortAscending = "yes", Data.C_strImgDesc, Data.C_strImgAsc)
                'Return
            End If
        Next
    End Sub
End Module