一个datagrid用户控件的问题 急

[happyRose]

我做了一个datagrid用户控件，我绑定了一些数据，当我想根据条件进行查询时，报错，”currentPageIndex 必须小于等于0和不能大于pagecount“，mydatagrid.databind，请问各位大虾，该如何解决该问题，还有页面第一次点下一页翻看数据时，要点2次才行。具体代码如下：
Public Property DataSource() As Object
Get
Return MyDataGrid.DataSource
End Get
Set(ByVal Value As Object)
Me.MyDataGrid.DataSource = Value
End Set
End Property

Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
If (e.NewPageIndex > -1 And e.NewPageIndex < Me.MyDataGrid.PageCount) Then

MyDataGrid.CurrentPageIndex = e.NewPageIndex
Else
MyDataGrid.CurrentPageIndex = 0
End If
end sub

Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs)
'used by external paging UI
Dim arg As String = sender.CommandArgument

Select Case arg
Case "next"
If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
MyDataGrid.CurrentPageIndex += 1
TextBox2.Text = MyDataGrid.CurrentPageIndex
End If
Case "prev"
If (MyDataGrid.CurrentPageIndex > 0) Then
MyDataGrid.CurrentPageIndex -= 1
TextBox2.Text = MyDataGrid.CurrentPageIndex
End If
Case "last"
MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
TextBox2.Text = MyDataGrid.CurrentPageIndex
Case Else
'page number
MyDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)
TextBox2.Text = MyDataGrid.CurrentPageIndex
End Select
End Sub

[softchao]

注意：翻页时，赋完新页码对DataGrid重新绑定数据源

[zl13]

没看懂,不知道对你有没有用
http://www.blueidea.com/tech/program/2003/894.asp

[13880079673]

你的问题的错误提示是说你访问的行不存在，这有可能是你在操作过程中删除了一些行，或者对结果集进行了一些错误的操作。解决办法最好是你在执行其他的操作后，重新绑定数据源到DataGrid控件（把你的查询条件写在数据库查询语句里面）

[acewang]

1.查询时先将DataGrid的当前页置0
2.翻页时，赋完新页码对DataGrid重新绑定数据源

[hnliruoyu]

按 acewang(龍芯*Ｉｎｓｉｄｅ！) 的做，就可以解决

[webdiyer]

点击查询按钮时把DataGrid的CurrentPageIndex设为0

[goody9807]

新页码对DataGrid重新绑定数据源

[Tony8002003]

代码没问题。把它放到第一个事件里

[happyRose]

各位大虾你们的帮法不行，还是会出错，如下是所有的代码，大虾帮我看看。 急急
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

[aboluoyuren]

呵呵，年轮也来抢分！
那我就不客气了~~~~~~~~~~~~~~~~~~~~~`

[FlyBirdInLife]

笨，去吃大肉，就能解决，猪啊