分页:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<% @import namespace="system.data"%>
<% @import namespace="system.data.oledb"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<script language="VB" runat="server">
dim startindex as integer
sub binddata()
dim provider,connstr,sql,database as string
provider="microsoft.jet.oledb.4.0;"
database=server.mappath("chengji.mdb")
connstr="provider="+provider+"data source="+database
sql="select * from fen"
dim cmd as oledbdataadapter
cmd=new oledbdataadapter(sql,connstr)
dim ds as dataset
ds=new dataset
cmd.fill(ds,"fen")
grid1.datasource=ds.tables("fen").defaultview
grid1.databind()
end sub
sub page_load(sender as object,e as eventargs)
if not ispostback then
startindex=0
end if
binddata
end sub
sub changepage(sender as object,e as datagridpagechangedeventargs)
startindex=e.newpageindex*grid1.pagesize
grid1.currentpageindex=e.newpageindex
binddata
end sub
</script>
<body>
<form runat="server">
<asp:datagrid ID="grid1" AllowPaging="true" PageSize="5"
PagerStyle-HorizontalAlign="right"
PagerStyle-NextPageText="下一页"
PagerStyle-PrevPageText="上一页"
OnPageIndexChanged="changepage"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="red"
BorderColor="#990000"
CellPadding="2"
CellSpacing="0" runat="server"/>
</form>
</body>
</html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@import namespace="system.data"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>排序</title>
</head>
<script language="VB" runat="server">
dim sortfield as string
function createdatasource() as icollection
dim dt as datatable
dim dr as datarow
dim i as integer
dt=new datatable
dt.columns.add(new datacolumn("integervalue",gettype(integer)))
dt.columns.add(new datacolumn("stringvalue",gettype(string)))
dt.columns.add(new datacolumn("currencyvalue",gettype(double)))
for i=1 to 9
dr=dt.newrow()
dr(0)=9-i
dr(1)="item"&i.tostring()
dr(2)=1.23*(i+1)
dt.rows.add(dr)
next
dim dv as dataview=new dataview(dt)
dv.sort=sortfield
createdatasource=dv
end function
sub page_load(sender as object,e as eventargs)
if not ispostback then
if sortfield="" then
sortfield="integervalue"
end if
binddata
end if
end sub
sub grid1_sort(sender as object,e as datagridsortcommandeventargs)
sortfield=e.sortexpression
binddata
end sub
排序本身不再DataGrid里面进行,是在DataTable或者DataView里面!这要看你绑定的数据源了!
DataTable提供Select方法.DataView提供Filter属性(设置行筛选)!也就是说你可以在Select或者Filter里面设置Order by Fieldname.
翻页的时候只要改变页码重新绑定就可以了!(注意无效页码的产生)