可用分押宝游戏火热进行中...	专题改版：Java Web 专题

上一条，下一条按钮实现问题！

楼主huntwolf（猎狼人）2005-04-02 09:55:16 在 .NET技术 / ASP.NET 提问

我先用DataGrid绑定一数据集
例如:
用户名用户权限
详细信息
详细信息
其中详细信息一列摄制成一个链接，点击后在新页面中可察看选中的用户详细信息，我要在新页面中
加上 "上一条"，"下一条"按钮以便可以顺次访问所有用户信息。该怎么实现？
问题点数：100、回复次数：14Top

1 楼fayewang（飞狐）回复于 2005-04-02 10:03:29 得分 10

请把DataSet也传到另一个页面去!!!!!!!!Top

2 楼cfaq（网事随风）回复于 2005-04-02 10:04:07 得分 10

可以使用SQL语句
比如上一条是select top 1 * from [会员表] where id(假如有)> 当前用户ID

晕看你的排序了,上一条下一条我是不知道了,只提供一种思路Top

3 楼hackate（兰花开香入梦境,独思佳人亦飘然!!）回复于 2005-04-02 10:04:19 得分 10

sql="select top 1 id,bt from wenzhang where id < " & CLng(idid) & " order by id desc"

这句是取得上一条的

sql="select top 1 id,bt from wenzhang where id > " & CLng(idid) & " order by id asc"

这个是取得下一条的

Top

4 楼fayewang（飞狐）回复于 2005-04-02 10:04:44 得分 0

传到另一个页的方法很多,可以是Sesson,也可以Cache....Such asTop

5 楼ianok（再菜我也要up出個星來）回复于 2005-04-02 10:05:33 得分 10

http://search.csdn.net/Expert/topic/2620/2620976.xml?temp=.1241419Top

6 楼yizhixiaozhu（天啦，手都起茧了）回复于 2005-04-02 10:06:57 得分 10

你是不是要分页呢？Top

7 楼zhuxiaojun2002（车房志之扯坏的领带）回复于 2005-04-02 10:38:20 得分 10

DataGrid可以自己分页，你先看看。如果不用他的也行，

我先用DataGrid绑定一数据集
例如:
用户名用户权限
详细信息
详细信息
其中详细信息一列摄制成一个链接，点击后在新页面中可察看选中的用户详细信息，我要在新页面中
加上 "上一条"，"下一条"按钮以便可以顺次访问所有用户信息。该怎么实现？

这个东西，我们都做了很多了，改天上班了，我发给你一个很好的例子,atoz1@126.comTop

8 楼happyyht（lion）回复于 2005-04-02 10:41:12 得分 10

private void DataGrid1_PageIndexChanged(object source, System.Web.UI.WebControls.DataGridPageChangedEventArgs e)
{
this.DataGrid1.CurrentPageIndex=e.NewPageIndex;
FillGrid(); //重新绑定
}
就是这么简单!!Top

9 楼huntwolf（猎狼人）回复于 2005-04-02 10:45:06 得分 0

我用的是oracle 所以不能用
sql="select top 1 id,bt from wenzhang where id > " & CLng(idid) & " order by id asc"
这样的语句。
所以即使把dataset传过去，也不好使。
能不能获得用户名=“user1” 的纪录在数据库中存放的序号呢？Top

10 楼tengjian1981（新的一年又来到）回复于 2005-04-02 10:51:46 得分 10

用临时表，不知道oracle是否支持，增加一个序号列
select identity(int,1,1) as TempID,* into #t from 表

select * from #tTop

11 楼coldpanth（^War3^）回复于 2005-04-02 11:02:40 得分 0

说的都挺明白了....进来了,就顶一下Top

12 楼54Bendou（笨豆）回复于 2005-04-02 11:22:27 得分 10

你点击DataGrid中的链接时应该会传个id号到第二夜中,在对俩个按钮点击事件里面分别写sql语句:
上一页:
sql="select top 1 "字段"from "表名" where id < " & "传递过来的id号" & " order by id desc"
下一页:
sql="select top 1 "字段"from "表名" where id > " & "传递过来的id号" & " order by id desc"

你试试看Top

13 楼dzvsyt（一笑天）回复于 2005-04-02 12:59:47 得分 10

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
lblPageIndex.Text = "1"
LoadDataBind()
End If
End Sub
Sub LoadDataBind()
Dim Conn As New Conn
Conn.Open()

Dim Da As SqlDataAdapter
Dim Ds As New DataSet
Dim Sql As String

Dim CurrentPageIndex As Integer = Int(lblPageIndex.Text)

''取出数据
Sql = "Select 教号,姓名,教工照片 from 教工 where (教工照片 Is Not Null)"
Da = New SqlDataAdapter(Sql, Conn.Conn)
Da.Fill(Ds, "Photo")

''分页数据源
Dim objPds As New PagedDataSource
objPds.DataSource = Ds.Tables("Photo").DefaultView
objPds.AllowPaging = True
objPds.PageSize = 16
objPds.CurrentPageIndex = CurrentPageIndex - 1

''绑定到控件
dlPhoto.DataSource = objPds
dlPhoto.DataBind()

Dim PageCount As Integer = objPds.PageCount

''设置分页按钮的Enabled属性
butFirst.Enabled = True
butPre.Enabled = True
butNext.Enabled = True
butLast.Enabled = True
If CurrentPageIndex <= 1 Then
butFirst.Enabled = False
butPre.Enabled = False
End If
If CurrentPageIndex >= PageCount Then
butNext.Enabled = False
butLast.Enabled = False
End If

lblPageCount.Text = PageCount
lblRecordCount.Text = Ds.Tables("Photo").Rows.Count
ddpJump.SelectedIndex = CurrentPageIndex - 1

''　初始化跳转DropDownList
If Not IsPostBack Then
Dim i As Integer
If PageCount > 0 Then
ddpJump.Enabled = True
For i = 1 To PageCount
ddpJump.Items.Add(i)
Next
Else
ddpJump.Enabled = False
End If
End If
End Sub
Private Sub butLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butLast.Click
lblPageIndex.Text = lblPageCount.Text
LoadDataBind()
End Sub

Private Sub butFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butFirst.Click
lblPageIndex.Text = "1"
LoadDataBind()
End Sub
Private Sub butPre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butPre.Click
lblPageIndex.Text = Int(lblPageIndex.Text) - 1
LoadDataBind()
End Sub

Private Sub butNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butNext.Click
lblPageIndex.Text = Int(lblPageIndex.Text) + 1
LoadDataBind()
End Sub
Private Sub ddpJump_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddpJump.SelectedIndexChanged
lblPageIndex.Text = ddpJump.SelectedItem.Value
LoadDataBind()
End SubTop

14 楼wwwwww721（不穿内酷）回复于 2005-04-02 13:13:34 得分 0

有没有c# 的呢。up!
Top