gridview分页后显示不正常 偶尔只显示一行半 刷新也不管用
小弟初学，好不容易搞定了查询加分页，没想到不知道什么原因显示不正常了，郁闷，第一页显示都正常，在点击某一页后，偶尔显示的不正常，只显示一行半，下边的全是空白了，困惑....
各位大哥给看看 同时看看小弟写的哪里有不好的地方，回者有分，谢谢各位大哥！
Protected Sub BtnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSearch.Click
Dim BusConn As New SqlConnection
Dim StrSearch As String
If Trim(TxtBus.Text) = " " Then
StrSearch = "select (LineNum+ '路 ') as LineNum,LineType,Path,BothTime,Corp,( '共 '+Stations+ '站 ') as Stations from BusLine order by ShowNum "
Else
Dim StrWhere As String
Dim StrBus() As String
Dim I As Integer
StrBus = Split(TxtBus.Text, " ")
If RadioLineNum.Checked = True Then
StrWhere = " where linenum in ( '0 ' "
For I = 0 To UBound(StrBus)
StrWhere = StrWhere & ", ' " & StrBus(I) & " ' "
Next I
StrWhere = StrWhere & ") "
Else
StrWhere = " where 1=1 "
For I = 0 To UBound(StrBus)
StrWhere = StrWhere & " and path like '% " & StrBus(I) & "% ' "
Next I
End If
StrSearch = "select (LineNum+ '路 ') as LineNum,LineType,Path,BothTime,Corp,( '共 '+Stations+ '站 ') as Stations from BusLine " & StrWhere & " order by ShowNum "
End If
BusConn.ConnectionString = ConfigurationManager.ConnectionStrings( "sq_fishsoftConnectionString ").ToString
Dim BusAdapter As SqlDataAdapter = New SqlDataAdapter(StrSearch, BusConn)
Dim BusDataSet As New DataSet
Dim BusCmd As New SqlCommand
BusConn.Open()
BusCmd.Connection = BusConn
BusCmd.CommandText = StrSearch
BusCmd.CommandType = CommandType.Text
BusAdapter.Fill(BusDataSet, "BusLine ")
If BusDataSet.Tables( "BusLine ").Rows.Count = 0 Then
BusDataSet.Tables( "BusLine ").Rows.Add()
BusDataSet.Tables( "BusLine ").Rows.Add()
BusDataSet.Tables( "BusLine ").Rows.Add()
BusDataSet.Tables( "BusLine ").Rows(1).Item(2) = "Sorry！根据您设置的条件未检索到数据 ：（ "
End If
GridView1.DataSource = BusDataSet.Tables( "BusLine ")
GridView1.DataBind()
BusCmd.Dispose()
BusDataSet.Dispose()
BusAdapter.Dispose()
BusConn.Close()
BusConn.Dispose()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack = False Then Call BtnSearch_Click(Nothing, Nothing)
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
Call BtnSearch_Click(Nothing, Nothing)
End Sub
[解决办法]
看了显示出来的HTML，是否完整了没有？
[解决办法]
做的挺不错的 加油!
[解决办法]
html代码没问题，是否和服务器的速度有关系呢？
[解决办法]
正常啊
[解决办法]
VB.neT不会
[解决办法]
楼主加油！
[解决办法]
你的代码太多了!根据你的描述!真不明白!!
[解决办法]
不是正常的吗??
[解决办法]
Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
GridView1.PageIndex = e.NewPageIndex
Call BtnSearch_Click(Nothing, Nothing)
End Sub
-------------------------------
这个!把后面Handles GridView1.PageIndexChanging去掉!VB里面除了handles mybase.load之外其它好像都没什么用.加了还经常报错!!
[解决办法]
程序好像没问题，你说的翻到某一页后没有显示8条记录，会不会是指翻到最后一页的时候，记录数不够8条？如果是这个原因的话，不用改了，所有的分页都是这样规定的，最后一页的记录数量是1~PageSize。
另外有个小bug，不设置查询条件进行列表，翻到最后一页后，再输入查询条件，查询，出来的页面应该是查询结果的第一页，你的程序没有清除之前列表的页码数，结果出来的是最后一页，这样当然显示不是8条记录，而是最后一页的1~PageSize记录。
[解决办法]
把只显示了一半的那个错误页面的html源代码贴出来看看，看看html源代码有没有问题，如果源代码没问题的话，可能是web浏览器的某些设置或者杀毒软件导致显示不正确。
[解决办法]
正常啊，浏览了一下，没发现问题。
[解决办法]
up
