• 全部
  • .NET Framework
  • ASP
  • Web Services
  • .NET互联网桌面应用
  • VB
  • 图表区
  • 分析与设计
  • 组件/控件开发
  • AppLauncher
  • 问答

求一个VB翻页代码.

tnt8csdn2000 2006-06-06 10:20:16
VB忘记差不多了.想找点现成的代码.

datagrid默认的翻页,就是datagrid带个页脚上面有数字的那种.点了数字可以到那一页的那种.
...全文
145 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tnt8csdn2000 2006-06-06
谢谢你了,我就是记不得VB代码了.才想要个VB的.提供者另开贴给200分.
回复
boy_north 2006-06-06
datagrid1.CurrentPageIndex = e.NewPageIndex;
回复
yanghuijun 2006-06-06
public void ListBind(DataList Mylist,LinkButton up,LinkButton down,Label curpage,ref Label pagecount)
{
Connection.Close();
int Curpage = Convert.ToInt32(curpage.Text);
Connection.Open();
string Sql = "select * from book order by posttime desc";
OleDbDataAdapter Ada = new OleDbDataAdapter(Sql, Connection);
DataSet Myset = new DataSet();
Ada.Fill(Myset,"table");
PagedDataSource PgSource = new PagedDataSource();
PgSource.DataSource = Myset.Tables["table"].DefaultView;
PgSource.AllowPaging = true;
PgSource.PageSize = 3;
PgSource.CurrentPageIndex = Curpage - 1;
pagecount.Text = Convert.ToString(PgSource.PageCount);
up.Enabled = true;
down.Enabled = true;
if (Curpage==1)
{
up.Enabled = false;
}
if (Curpage == PgSource.PageCount)
{
down.Enabled = false;
}
Mylist.DataSource = PgSource;
Mylist.DataBind();
Connection.Close();


}

这是我封装成一个类的分页代码!!C#的,改成VB的代码应该会吧!!
第一个参数:分页的控件,可以改成datagrid
第二个参数:上一页的linkbutton控件
第三个参数:下一页的linkbutton控件
第四个参数:当前页
第五个参数:总共多少页

这些参数需要在页面指定!!

示例
protected void uppage_Click(object sender, EventArgs e)
{
curpage.Text = Convert.ToString(Convert.ToInt32(curpage.Text) - 1);
operate.ListBind(DataList1, uppage, downpage, curpage,ref totalpage);
newcurpage.SelectedIndex = Convert.ToInt32(curpage.Text) - 1;
}
protected void downpage_Click(object sender, EventArgs e)
{
curpage.Text = Convert.ToString(Convert.ToInt32(curpage.Text) + 1);
operate.ListBind(DataList1, uppage, downpage, curpage,ref totalpage);
newcurpage.SelectedIndex = Convert.ToInt32(curpage.Text) - 1;
}
protected void firstpage_Click(object sender, EventArgs e)
{
curpage.Text = "1";
operate.ListBind(DataList1, uppage, downpage, curpage,ref totalpage);
newcurpage.SelectedIndex = Convert.ToInt32(curpage.Text) - 1;

}
protected void endpage_Click(object sender, EventArgs e)
{
curpage.Text =totalpage.Text;
operate.ListBind(DataList1, uppage, downpage, curpage, ref totalpage);
newcurpage.SelectedIndex = Convert.ToInt32(curpage.Text) - 1;

回复
发帖
.NET技术社区
创建于2007-09-28

5.8w+

社区成员

.NET技术交流专区
申请成为版主
帖子事件
创建了帖子
2006-06-06 10:20
社区公告
暂无公告