| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 969 人关注过本帖
标题:问一个datalist+分页的问题
只看楼主 加入收藏
scindy
Rank: 1
等 级:新手上路
威 望:1
帖 子:591
专家分:4
注 册:2006-10-23
结帖率:50%
收藏
 问题点数:0 回复次数:10 
问一个datalist+分页的问题
我是用datalist实现的分页,但是却出问题了,我让一页显示6条数据,第一次执行的时候,显示正常,显示的是6条,但是当我点下一页时就把数据库里所有的数据都显示出来了,但是页数还是第2页,当我再点下一页时,页数在变化,但数据就不变了.

也是啊,数据都读出来了,肯定不会再变了,呵呵,但这是为什么呢????


搜索更多相关主题的帖子: datalist 数据库 
2007-01-31 16:55
scindy
Rank: 1
等 级:新手上路
威 望:1
帖 子:591
专家分:4
注 册:2006-10-23
收藏
得分:0 
有没有人会啊?

指导一下了`~


第一次做datalist分页,还不完全是我做的.帮帮忙吧!!!

淘宝新到货: http://shop36082390. 电脑及配件/杀毒U盘/移动硬盘/减肥产品/切苹果器/剥蒜器/个性烟灰缸/装饰彩灯/雨伞/女包//手机座/极品铁观间茶叶/五层布衣柜/三洋/日立投影机
QQ:410243392 (常用)
2007-02-03 10:29
etilm
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-12-4
收藏
得分:0 
贴出你的代码啊,不然怎么知道那里错啊????

2007-02-03 21:05
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
收藏
得分:0 
以下是引用etilm在2007-2-3 21:05:34的发言:
贴出你的代码啊,不然怎么知道那里错啊????


飘过~~
2007-02-03 22:19
super小峰
Rank: 1
等 级:新手上路
帖 子:56
专家分:0
注 册:2006-11-29
收藏
得分:0 
顺着程序看一遍,逻辑上有错误!

今生若有你相伴,不羡鸳鸯不羡仙!QQ:19267602
2007-02-05 16:53
absentlyh
Rank: 2
等 级:论坛游民
帖 子:105
专家分:14
注 册:2006-6-5
收藏
得分:0 
Sub lbtn_Click(ByVal Sender As Object, ByVal E As EventArgs)
'下面首先从隐藏标签中读取原来显示的页码和总页数
Dim intPageIndex As Integer = CInt(lblPageIndex.Text) '读取原来显示第几页
Dim intPageCount As Integer = CInt(lblPageCount.Text) '读取总页数
'下面根据单击按钮设定新的显示页码
Dim arg As String = Sender.CommandName.ToString
Select Case arg
Case "First"
intPageIndex = 0
Case "Prev"
If intPageIndex > 0 Then
intPageIndex -= 1
End If
Case "Next"
If intPageIndex < intPageCount - 1 Then
intPageIndex += 1
End If
Case "Last"
intPageIndex = intPageCount - 1
End Select
'下面将新的显示页码保存到隐藏标签中
lblPageIndex.Text = intPageIndex
'下面调用数据,重新绑定页面
Call class1()
End Sub
这个是分页的一段代码不知道对你有没帮助

我就是我!我自信,我成功!
2007-02-05 21:35
absentlyh
Rank: 2
等 级:论坛游民
帖 子:105
专家分:14
注 册:2006-6-5
收藏
得分:0 

还有点
Public Sub btnPage_Click(ByVal Sender As System.Object, ByVal E As System.EventArgs) Handles btnPage.Click
'下面首先从隐藏标签中读取总页数
If txtPage.Text <> "" Then
Dim intPageCount As Integer = CInt(lblPageCount.Text) '读取总页数
'下面获取客户填写的页码,并处理使其符合要求
Dim intPageIndex As Integer = CInt(txtPage.Text)
If intPageIndex < 1 Then
intPageIndex = 0 '如果客户填写了小于1的页码,则显示首页
ElseIf intPageIndex > intPageCount Then
intPageIndex = intPageCount - 1 '如果填写了大于实际页面的数字,则显示末页
Else
intPageIndex = intPageIndex - 1 '因为索引从0开始,所以减1
End If
txtPage.Text = "" '清空文本框
'下面将要显示的页码保存到隐藏标签中
lblPageIndex.Text = intPageIndex
'下面重新绑定数据
Call class1()
End If

End Sub


我就是我!我自信,我成功!
2007-02-05 21:36
super小峰
Rank: 1
等 级:新手上路
帖 子:56
专家分:0
注 册:2006-11-29
收藏
得分:0 

VB。NET去VB。NET看看吧


今生若有你相伴,不羡鸳鸯不羡仙!QQ:19267602
2007-02-06 10:41
scindy
Rank: 1
等 级:新手上路
威 望:1
帖 子:591
专家分:4
注 册:2006-10-23
收藏
得分:0 

谢谢几位的帮助.我从头看了好几遍了,也没看出是哪错了.我现在把代码贴出来,大家帮看一下~~~
对了,忘了说明一点,我是在首页上填写的要搜索的内容和点的搜索按钮.然后转到这页来显示.在这页获取一下首页所填的内容.
Page_load事件:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
Dim searchinfo As String = Request.QueryString("info")
'每页显示的个数
Pagesize = 2
'联接数据库
conn.Open()
'计算总共有多少记录
Dim strsql As String = "select count(*) as ID from dvlist where dvname='" & searchinfo & "'"
Dim cmd As New SqlCommand(strsql, conn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
Dim intCount As Integer
If dr.Read() Then
intCount = dr("ID")
Else
intCount = 0
End If
dr.Close()
conn.Close()

lblRecordCount.Text = intCount
RecordNum = intCount

'计算总共有多少页

If RecordNum Mod Pagesize = 0 Then
Pagecount = RecordNum \ Pagesize
Else
Pagecount = RecordNum \ Pagesize + 1
End If
ViewState("PageCount") = Pagecount
If Not IsPostBack Then
CurrentPage = 0
ViewState("PageIndex") = 0
dvlist()
End If
label1.Text = "当前显示的是第&nbsp;&nbsp;1&nbsp;&nbsp;页&nbsp;/"
End If
End Sub
上一页,下一页事件:
Sub Page_OnClick(ByVal sender As Object, ByVal e As CommandEventArgs)
CurrentPage = ViewState("PageIndex")
Pagecount = ViewState("PageCount")

Dim cmd As String = e.CommandName
Select Case cmd
Case "next"
If CurrentPage < (Pagecount - 1) Then CurrentPage += 1
Case "prev"
If CurrentPage > 0 Then CurrentPage -= 1
End Select
ViewState("PageIndex") = CurrentPage
label1.Text = "当前显示的是第&nbsp;&nbsp;" & CurrentPage + 1 & "&nbsp;&nbsp;页&nbsp;" & "/"
dvlist()

End Sub


淘宝新到货: http://shop36082390. 电脑及配件/杀毒U盘/移动硬盘/减肥产品/切苹果器/剥蒜器/个性烟灰缸/装饰彩灯/雨伞/女包//手机座/极品铁观间茶叶/五层布衣柜/三洋/日立投影机
QQ:410243392 (常用)
2007-02-06 10:56
scindy
Rank: 1
等 级:新手上路
威 望:1
帖 子:591
专家分:4
注 册:2006-10-23
收藏
得分:0 

丢了一点,下面是数据绑定的代码

Sub dvlist()
Dim searchinfo As String = Request.QueryString("info")
Dim StartIndex As Integer
StartIndex = CurrentPage * Pagesize
Dim cmd As New SqlCommand("select * from dvlist where dvname like '%" & searchinfo & "%'", conn)
Dim adp As New SqlDataAdapter(cmd)
Dim ds As New DataSet
adp.Fill(ds, StartIndex, Pagesize, "dvlist")
mydvs.DataSource = ds.Tables("dvlist").DefaultView
mydvs.DataBind()

lbnNextPage.Enabled = True
lbnPrevPage.Enabled = True
If (CurrentPage = (Pagecount - 1)) Then lbnNextPage.Enabled = False
If (CurrentPage = 0) Then lbnPrevPage.Enabled = False
End Sub



淘宝新到货: http://shop36082390. 电脑及配件/杀毒U盘/移动硬盘/减肥产品/切苹果器/剥蒜器/个性烟灰缸/装饰彩灯/雨伞/女包//手机座/极品铁观间茶叶/五层布衣柜/三洋/日立投影机
QQ:410243392 (常用)
2007-02-06 10:57
快速回复:问一个datalist+分页的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035624 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved