Source Đổ dữ liệu, Phân trang, Sắp xếp cho Gridview

Imports System.Data
Imports ketnoi
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        loaddl()
    End Sub
    Sub loaddl()
        GridView1.DataSource = getdatatable("sp_userselectbyID 0,1,0") 'Chỉ định nguồn dữ liêu, phần bên trong dâu "" là procedure + tham số
        GridView1.AllowPaging = True 'Cho phép phân trang
        GridView1.AllowSorting = True 'Cho phép sắp xếp
        GridView1.PageSize = 3 'Số dòng/trang ở đây là 3 dòng/trang
        GridView1.DataBind() 'Hiển thị ra gridview
    End Sub

    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
        GridView1.PageIndex = e.NewPageIndex
    End Sub

    Protected Sub GridView1_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GridView1.Sorting
        Dim dt As DataTable
        dt = getdatatable("sp_userselectbyID 0,1,0")
        dt.DefaultView.Sort = e.SortExpression & " DESC"
        GridView1.DataSource = dt
        GridView1.DataBind()
    End Sub
End Class