為了實現這個功能，可算是折騰了好久，因為我本人一直在用XpoDataSource繫結，不怎麼關注自定義分頁資料來源的。

首先要明確一點的是，自定義資料來源（指繫結到自己寫的資料訪問層，至於ObjectDataSource可不可以，目前我還沒驗證過）不支援自動彙總、分組、自動篩選（包括列頭篩選）、非繫結列，這在官方文件關於DataSourceForceStandardPaging屬性的說明中有提到，如果真要實現這些功能，還要自己寫很多非常複雜的程式碼，個人覺得還不如在GridView外自己實現。也就是說我們可以實現的就是自定義分頁及排序。廢話少說，貼程式碼（資料訪問層的程式碼就不貼了）：

前臺：

<asp:ScriptManager ID="ScriptManager1" runat="server"> </asp:ScriptManager> <dxwgv:ASPxGridView ID="gv" runat="server" AutoGenerateColumns="False" Width="100%" KeyFieldName="產品ID" ClientInstanceName="gv" > <SettingsPager Mode="ShowAllRecords" Visible="False"> </SettingsPager> <Columns> <dxwgv:GridViewCommandColumn VisibleIndex="0"> </dxwgv:GridViewCommandColumn> <dxwgv:GridViewDataTextColumn FieldName="產品ID" VisibleIndex="1"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataTextColumn FieldName="產品名稱" VisibleIndex="2"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataTextColumn FieldName="供應商ID" VisibleIndex="3"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataTextColumn FieldName="類別ID" VisibleIndex="4"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataTextColumn FieldName="單位數量" VisibleIndex="5"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataTextColumn FieldName="單價" VisibleIndex="6"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataTextColumn FieldName="庫存量" VisibleIndex="7"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataTextColumn FieldName="訂購量" VisibleIndex="8"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataTextColumn FieldName="再訂購量" VisibleIndex="9"> </dxwgv:GridViewDataTextColumn> <dxwgv:GridViewDataCheckColumn FieldName="中止" VisibleIndex="10"> </dxwgv:GridViewDataCheckColumn> <dxwgv:GridViewDataTextColumn FieldName="庫存" VisibleIndex="11"> </dxwgv:GridViewDataTextColumn> </Columns> </dxwgv:ASPxGridView> <asp:UpdatePanel ID="upPager" runat="server"> <ContentTemplate> <dxpg:ASPxPager ID="Pager" runat="server" SeoFriendly="CrawlerOnly"> <LastPageButton Visible="True"> </LastPageButton> <FirstPageButton Visible="True"> </FirstPageButton> <AllButton Visible="True"> </AllButton> </dxpg:ASPxPager> </ContentTemplate> <Triggers> <asp:AsyncPostBackTrigger ControlID="Pager" EventName="PageIndexChanged" /> <asp:AsyncPostBackTrigger ControlID="Pager" EventName="PageIndexChanging" /> </Triggers> </asp:UpdatePanel>

後臺：

Imports DevExpress.Xpo.DB Partial Public Class CustomPaging Inherits System.Web.UI.Page Private product As New NorthwindLibrary.BusinessFacade.Product(New DevExpress.Xpo.Session) Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load BindData() End Sub Private Sub BindData() Dim ds As Data.DataSet = product.GetEntityList(GetHeaderFilterExpression(), Pager.PageIndex + 1, Pager.ItemsPerPage, SortFieldName, SortDirection) gv.DataSource = ds gv.DataBind() Pager.ItemCount = ds.Tables(1).Rows(0).Item(1).ToString End Sub Protected Sub gv_BeforeColumnSortingGrouping(ByVal sender As Object, ByVal e As DevExpress.Web.ASPxGridView.ASPxGridViewBeforeColumnGroupingSortingEventArgs) Handles gv.BeforeColumnSortingGrouping Select Case e.Column.SortOrder Case DevExpress.Data.ColumnSortOrder.Ascending SortDirection = WebControls.SortDirection.Ascending Case DevExpress.Data.ColumnSortOrder.Descending SortDirection = WebControls.SortDirection.Descending Case Else End Select SortFieldName = e.Column.FieldName BindData() End Sub Protected Sub Pager_PageIndexChanging(ByVal source As Object, ByVal e As DevExpress.Web.ASPxPager.PagerPageEventArgs) Handles Pager.PageIndexChanging Dim js As String = "gv.PerformCallback();" ScriptManager.RegisterStartupScript(Page, Me.GetType(), "", js, True) End Sub ''' <summary> ''' ''' 排序欄位 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property SortFieldName() As String Get If Session("SortFieldName") = Nothing Then Session("SortFieldName") = "產品ID" End If Return Session("SortFieldName").ToString End Get Set(ByVal value As String) Session("SortFieldName") = value End Set End Property Public Property SortDirection() As SortDirection Get If Session("SortDirection") = Nothing Then Session("SortDirection") = SortDirection.Ascending End If Return Session("SortDirection") End Get Set(ByVal value As SortDirection) Session("SortDirection") = value End Set End Property Public Function GetHeaderFilterExpression() As String Dim filter As String = String.Empty For Each col In gv.Columns Try If col.FilterExpression <> String.Empty Then filter += col.FilterExpression + " & " End If Catch ex As Exception End Try Next filter = filter.Trim.TrimEnd("&").Replace("&", "AND") If filter <> String.Empty Then filter = "WHERE " & filter End If Return filter End Function Protected Sub gv_CustomColumnSort(ByVal sender As Object, ByVal e As DevExpress.Web.ASPxGridView.CustomColumnSortEventArgs) Handles gv.CustomColumnSort End Sub Protected Sub gv_CustomDataCallback(ByVal sender As Object, ByVal e As DevExpress.Web.ASPxGridView.ASPxGridViewCustomDataCallbackEventArgs) Handles gv.CustomDataCallback End Sub Protected Sub gv_HeaderFilterFillItems(ByVal sender As Object, ByVal e As DevExpress.Web.ASPxGridView.ASPxGridViewHeaderFilterEventArgs) Handles gv.HeaderFilterFillItems If e.Column.Settings.AllowHeaderFilter = DevExpress.Web.ASPxClasses.DefaultBoolean.True Then e.Values.Clear() e.AddShowAll() Dim dt As DataTable = product.GetEntityFilterData(e.Column.FieldName, Nothing) For Each row As DataRow In dt.Rows e.AddValue(row(0).ToString, row(0).ToString) Next GetHeaderFilterExpression() End If End Sub End Class

效果圖：