DataGrid 记录定位问题

apengyun 2004-11-22 12:50:09

现在想实现这样一个功能：页面上有一个自定义分页的dataGrid，每次进入页面都会带一个keyid来定位数据库中的某一条记录,现在想每次显示的时候，能够在datagrid中准确定位，也就是选中这一条记录，并且当前页面的页数也要求是正确的。例如：现在我选中datagrid中的一条记录，将他的id取出来，到另外一个页面修改，修改完成后，回到这个页面。用户看到datagrid这个页面时，该记录被更新而且被选中。如果该记录被删除，则选中他的下一条。如果是新增的记录，则定位到新增的记录上。
此时页次可能不是原来的页次，但一定是分页后的正常的页次，即原来是第三页，现在可能是第二页，或者第四页。使用的是oracle数据库。目前分页语句是这样的：
select * from (select *,rownum as myrowno from( select * from dual order by id desc--正常的select 语句 ) where ronum<110 ) where myrowno>100.
不知道说清楚了没有。盼望大侠解决。

...全文

262 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

xxwnet 2004-11-29

打赏
举报

学习

plmokn719 2004-11-29

打赏
举报

look4sword 2004-11-29

打赏
举报

用SQL分页也许可以.
定位页可以先得到记录的位置,再除以每页的个数.
删掉一个就movenext.增加就movelast.

learner01 2004-11-29

打赏
举报

up!

吐司vivi 2004-11-29

打赏
举报

不是很明白用datagrid自带的分页，把当前页号传过去，直接索定datagrid得页码不成吗

goody9807 2004-11-29

打赏
举报

这个问题的关键是从数据库返回的结果只有一页，如何保证操作的纪录正好在这一页里面。
=================
没明白

既然只有一页就无需定位了啊是不是写错了

talenty 2004-11-29

打赏
举报

up and thinking

apengyun 2004-11-28

打赏
举报

apengyun 2004-11-23

打赏
举报

自己顶

wuzhijie 2004-11-22

打赏
举报

不是很理解，UP

Jack2013tong 2004-11-22

打赏
举报

apengyun 2004-11-22

打赏
举报

up有分。
分不够另开新贴散分

apengyun 2004-11-22

打赏
举报

谢谢goody9807() 。
我是使用reader来作为datasource的。如果使用dataset这也就不成问题。这个问题的关键是从数据库返回的结果只有一页，如何保证操作的纪录正好在这一页里面。
我的初步想法是先找出该纪录所在的页面，再来读取纪录，然后绑定。问题是在这个时间差内，这条记录的位置会发生改变，就是所在的页面发生变化。

goody9807 2004-11-22

打赏
举报

'得到数据视图，参数为要排序的列
Private Function GetDv(ByVal strSort As String) As DataView
'定义数据库连接
Dim dv As DataView
Dim CN As New SqlConnection()
Try
'初始化连接字符串
CN.ConnectionString = "data source=pmserver;
initial catalog=Northwind;persist security info=False;user id=sa;Password=sa;"
CN.Open()
'从NorthWind得到orders表的数据
Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from orders", CN)
Dim ds As New DataSet()
adp.Fill(ds)
'得到数据视图
dv = ds.Tables(0).DefaultView
Catch ex As Exception
#If DEBUG Then
Session("Error") = ex.ToString()
Response.Redirect("../error.aspx") '跳转程序的公共错误处理页面
#End If
Finally
'关闭连接
CN.Close()
End Try
'排序
dv.Sort = strSort
Return dv
End Function

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
If Not IsPostBack Then
ViewState("strSort") = "orderid"
dgOrder.DataSource = GetDv(ViewState("strSort").ToString())
dgOrder.DataBind()
End If
End Sub
'排序
Private Sub dgOrder_SortCommand(ByVal source As Object,
ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles dgOrder.SortCommand
dgOrder.CurrentPageIndex = 0
'得到排序的列
ViewState("strSort") = e.SortExpression.ToString()
dgOrder.DataSource = GetDv(ViewState("strSort").ToString())
dgOrder.DataBind()
End Sub

'分页
Private Sub dgOrder_PageIndexChanged(ByVal source As Object,
ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dgOrder.PageIndexChanged
'得到分页的页号
dgOrder.CurrentPageIndex = e.NewPageIndex
dgOrder.DataSource = GetDv(ViewState("strSort").ToString())
dgOrder.DataBind()
End Sub

goody9807 2004-11-22