</Columns>

              <PagerStyle HorizontalAlign="Center" ForeColor="Black" Position="TopAndBottom" BackColor="White" Mode="NumericPages"></PagerStyle>

       </asp:datagrid>

</form>

后台类添加以下代码：

Imports System.Data.SqlClient

''''得到数据视图，参数为要排序的列

Private Function GetDv(ByVal strSort As String) As DataView

        ''''定义数据库连接

        Dim dv As DataView

        Dim CN As New SqlConnection()

        Try

            ''''初始化连接字符串

            CN.ConnectionString = "data source=pmserver;initial catalog=Northwind;persist security info=False;user id=sa;Password=sa;"

            CN.Open()

''''从NorthWind得到orders表的数据

            Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from orders", CN)

            Dim ds As New DataSet()

            adp.Fill(ds)

            ''''得到数据视图

            dv = ds.Tables(0).DefaultView

        Catch ex As Exception

#If DEBUG Then

            Session("Error") = ex.ToString()

            Response.Redirect("../error.aspx")        ''''跳转程序的公共错误处理页面

#End If

        Finally

            ''''关闭连接

            CN.Close()

        End Try

        ''''排序

        dv.Sort = strSort

        Return dv

    End Function

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Not IsPostBack Then

            ViewState("strSort") = "orderid"

            dgOrder.DataSource = GetDv(ViewState("strSort").ToString())

            dgOrder.DataBind()

        End If

    End Sub

       ''''排序

    Private Sub dgOrder_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles

上一页  [1] [2] [3] [4]  下一页