各位大虾你们的帮法不行，还是会出错，如下是所有的代码，大虾帮我看看。 急急
Public Class EasyDataGrid
Inherits System.Web.UI.UserControl
'返回datasource
Public Property DataSource() As Object
Get
Return MyDataGrid.DataSource
End Get
Set(ByVal Value As Object)
Me.MyDataGrid.DataSource = Value
End Set
End Property
'添加带连接的列
Public Sub AddHyperLinkCol(ByVal FieldName As String, ByVal Title As String, ByVal UrlField As String, ByVal Navigate As String)
Dim HLinkCol As New HyperLinkColumn
HLinkCol.DataTextField = FieldName
HLinkCol.HeaderText = Title
HLinkCol.DataNavigateUrlField = UrlField
HLinkCol.NavigateUrl = Navigate
HLinkCol.DataNavigateUrlFormatString = Navigate
MyDataGrid.Columns.Add(HLinkCol)
End Sub
'
Function pagecount() As Integer
Return MyDataGrid.PageCount
End Function
'添加绑定的列
Public Sub AddBoundCol(ByVal FieldName As String, ByVal Title As String)
Dim BCol As New BoundColumn
BCol.DataField = FieldName
BCol.HeaderText = Title
MyDataGrid.Columns.Add(BCol)
End Sub
'DataBind方法
Public Overrides Sub DataBind()
MyDataGrid.DataBind()
End Sub
Public Function setPage(ByVal PageStyle As Boolean)
If PageStyle = True Then
MyDataGrid.PagerStyle.Mode = PagerMode.NextPrev
End If
End Function
'//////////////////////////////
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
btnFirst.Text = "最首页"
btnPrev.Text = "前一页"
btnNext.Text = "下一页"
btnLast.Text = "最后页"
If Not Page.IsPostBack Then
MyDataGrid.CurrentPageIndex = 0
TextBox2.Text = MyDataGrid.CurrentPageIndex
End If
End Sub
Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
'Dim startIndex As Integer
'startIndex = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize
'MyDataGrid.CurrentPageIndex = e.NewPageIndex
'ShowStats()
'++++++++++++++++++ 修改的代码
If (e.NewPageIndex > -1 And e.NewPageIndex < MyDataGrid.PageCount) Then
MyDataGrid.CurrentPageIndex = e.NewPageIndex
Else
MyDataGrid.CurrentPageIndex = 0
End If
ShowStats()
End Sub
Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs)
'used by external paging UI
Dim arg As String = CType(sender, LinkButton).CommandArgument
Select Case arg
Case "next"
If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
MyDataGrid.CurrentPageIndex += 1
TextBox2.Text = MyDataGrid.CurrentPageIndex
End If
'MyDataGrid.CurrentPageIndex = 0
Case "prev"
If (MyDataGrid.CurrentPageIndex > 0) Then
MyDataGrid.CurrentPageIndex -= 1
TextBox2.Text = MyDataGrid.CurrentPageIndex
End If
'MyDataGrid.CurrentPageIndex = 0
Case "last"
MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
TextBox2.Text = MyDataGrid.CurrentPageIndex
'MyDataGrid.CurrentPageIndex = 0
Case Else
'page number
MyDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)
TextBox2.Text = MyDataGrid.CurrentPageIndex
'MyDataGrid.CurrentPageIndex = 0
End Select
ShowStats()
End Sub
Sub GoPage(ByVal sender As Object, ByVal e As EventArgs)
MyDataGrid.CurrentPageIndex = TextBox1.Text
lblCurrentIndex.Text = "第 " + (MyDataGrid.CurrentPageIndex).ToString() + " 页"
TextBox1.Text = ""
End Sub
Sub ShowStats()
lblCurrentIndex.Text = "第 " + (MyDataGrid.CurrentPageIndex + 1).ToString() + " 页"
lblPageCount.Text = "总共 " + MyDataGrid.PageCount.ToString() + " 页"
End Sub
end class
