用datagrid作分页效果时，只显示前2页，哪位帮忙看看

dujian_xian 2005-08-17 03:00:16

用datagrid作分页效果时，只显示第一页和第二页。点后几页时仍然显示第二页的内容。而且点了第二页后再点第一页无法退回到第一页。
哪位兄弟姐妹帮忙看看，aspx文件和pas文件如下：

aspx:
<%@ Page Language="c#" Debug="true" Codebehind="WebForm1.pas" AutoEventWireup="false" Inherits="WebForm1.TWebForm1"%>
<%@ Register tagprefix="borland" Namespace="Borland.Data.Web" Assembly="Borland.Data.Web"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
</head>
<body style="HEIGHT: 407px" ms_positioning="GridLayout">
<form runat="server">
<asp:DataGrid id="DataGrid1"
style="Z-INDEX: 6; LEFT: 14px; POSITION: absolute; TOP: 14px"
runat="server" width="582px" height="142px" pagesize="5"
allowpaging="True" allowcustompaging="True" borderstyle="Inset">
<PagerStyle mode="NumericPages"></PagerStyle>
<SelectedItemStyle backcolor="#C0FFFF"></SelectedItemStyle>
</asp:DataGrid>
</form>
</body>
</html>

pas文件：
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Put user code to initialize the page here
SqlConnection1.Open;
DataGrid1.DataSource:=SqlCommand1.ExecuteReader;
datagrid1.VirtualItemCount:=50;
DataGrid1.DataBind;
end;

procedure TWebForm1.OnInit(e: EventArgs);
begin
//
// Required for Designer support
//
InitializeComponent;
inherited OnInit(e);
end;

procedure TWebForm1.DataGrid1_PageIndexChanged(source: System.Object; e: System.Web.UI.WebControls.DataGridPageChangedEventArgs);
begin
dataGrid1.CurrentPageIndex:=e.NewPageIndex;
datagrid1.DataBind;
end;

...全文

133 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

loveWife 2005-08-17

打赏
举报

procedure TWebForm1.DataGrid1_PageIndexChanged(source: System.Object; e: System.Web.UI.WebControls.DataGridPageChangedEventArgs);
begin
dataGrid1.CurrentPageIndex:=e.NewPageIndex;
adapter:=SqlDataAdapter.Create
('select orderid,customerid,employeeid,orderdate from orders',
'server=localhost;database=northwind;uid=sa;pwd=');
ds :=DataSet.Create();
adapter.Fill(ds);
dataGrid1.DataSource:=ds;
dataGrid1.DataBind();
end;