我做的分页怎么老是出错?
gltgl 2003-09-11 11:54:21 提示如下:
当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 MyGrid 的 DataGrid 必须设置 VirtualItemCount。
我的网页设计如下:
<asp:datagrid id="MyGrid" style="Z-INDEX: 110; LEFT: 230px; POSITION: absolute; TOP: 245px" AutoGenerateColumns="False" PagerStyle-PrevPageText="上一页" pagerstyle-NextPageText="下一页" PageSize="5" OnPageIndexChanged="GridPageChange" AllowPaging="True" Runat="server" PagerStyle-HorizontalAlign="Right">
如果添加了AllowCustomPaging=True,那么“下一页”的按钮就没有作用了。我的另一个程序用的是同样的语句,只是顺序不一样,可是却是正常的。
后台程序:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strSQL As String
Dim Strbt = txtBT.Text
Dim Strnr = txtNR.Text
If Strnr = "" And Strbt = "" Then
strSQL = "select * from files order by id desc"
ElseIf Strbt = "" Then
strSQL = "select * from files where texts like '%" & Strnr & "%' order by id desc"
ElseIf Strnr = "" Then
strSQL = "select * from files where topic like '%" & Strbt & "%' order by id desc"
Else
strSQL = " select * from files where topic like '%" & Strbt & "%' and texts like '%" & Strnr & "%' order by id desc"
End If
Label5.Text = strSQL
datafiller()
End Sub
Sub DataFiller()
Dim StrConn As String = ConfigurationSettings.AppSettings("DataConn")
Dim objConn As New SqlConnection(StrConn)
objConn.Open()
Dim strSQL As String = Label5.Text
Dim objComm As New SqlCommand(strSQL, objConn)
Dim objReader As SqlDataReader = objComm.ExecuteReader()
MyGrid.DataSource = objReader
MyGrid.DataBind()
End Sub
Sub GridPageChange(ByVal S As Object, ByVal E As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = E.NewPageIndex
DataFiller()
End Sub