topcat 姍舞之間的極度凝聚

        <asp:GridView ID="GridView1" runat="server" AllowSorting="True">
        </asp:GridView>

    Dim ConnStr As String = oConnS.ConnStr

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '呼叫函數GetData取得資料
        Me.GridView1.DataSource = GetData("", "")
        Me.GridView1.DataBind()
    End Sub

    Protected Function GetData(ByVal SortField As String, ByVal SortDict As String) As DataView
        '取得資料，並傳回DataView
        Using Conn As New SqlConnection(ConnStr)
            Conn.Open()
            Dim SqlTxt As String = ""
            SqlTxt += " SELECT * "
            SqlTxt += " FROM Customers "
            SqlTxt += "  "

            Dim Cmmd As New SqlCommand(SqlTxt, Conn)
            Dim Dt As New DataTable
            Dt.Load(Cmmd.ExecuteReader)

            Dim dv As DataView
            dv = Dt.DefaultView
            If SortField <> "" Then '如果有指定排序的欄位，處理排序
                Dim SortTxt As String
                SortTxt = SortField
                If SortDict = "1" Then
                    SortTxt += " DESC"
                End If
                dv.Sort = SortTxt
            End If

            Return dv

        End Using
    End Function

    Protected Sub GridView1_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GridView1.Sorting
        Dim SortField As String = e.SortExpression
        Dim SortDir As String = e.SortDirection

        If ViewState("SortField") IsNot Nothing Then
            If ViewState("SortField") = SortField Then
                SortDir = (CInt(ViewState("SortDir") + 1) Mod 2).ToString
            End If
        End If

        ViewState("SortField") = SortField
        ViewState("SortDir") = SortDir

        Me.GridView1.DataSource = GetData(SortField, SortDir)
        Me.DataBind()
    End Sub