当前位置：首页 -> 技术开发 -> NET专区 -> 小程序构成大项目之——分页显示

小程序构成大项目之——分页显示

时间： 2021-07-31 作者：daque

小程序构成大项目之——分页显示陈根发长久没有写作品了，即是感触有点抱歉本人，看我作品的人大约不多，以是就无所谓对不对的起大师了。：）笔者迩来方才走出校门，满脑筋搀杂的货色，没有苦衷静下来写货色，即日有空，不错，写点。我历次写的货色都有点布鼓雷门的滋味，然而控制不住本人的想写的理想。即使有碍视野，请诸位包容。然而笔者最重要的道理仍旧蓄意大师经过那些只字片断看法我这部分。在人生的工作生存中，本领大概是中坚力气，然而人生的所有路径中，大概再有其余的货色比本领更要害！比方为人。蓄意诸位长辈指出作品及自己的不及，给咱们后代点一盏灯！我即日要说的话题很大略，怎样在vb.net中，实行分页表露，再不在表格控件中表露指定的记载数。它是本质即是从一个dataset1里的m条记当选出n条记载生存其余一个dataset第22中学需要精确了，接下来一道来做吧。一．创造一个table与dataset1的table(0)构造一律，假如dataset1 惟有一个table. dim tab1 as datatable=dataset1. table(0).clone二．设置一个object东西，用来寄存指定的记载集dim ary as objectdim i as integerfor i=1 to n ‘n为应掏出的记载数ary=dataset1. table(0).rows.itemarray(i)next 三．用object东西革新dataset21. 经过rows革新tab1drow.itemarray = ary ‘drow为datarow东西tab1.rows.add(drow) 2．经过tab1革新page ‘page 为归来的dataset东西page.tables.add(tab1)四．归来page return page完备的代码示比方下：'==============================='称呼:page 类'功效：分页'==============================class page '----本领，分页 '参数（dataset总额 ,暂时页号） public function pageset(byval ds as dataset, byval curpage as integer) as dataset dim i, j, r as integer ' dim j as integer dim m as integer =25 '一页几何条 '页数 j j = cint(ds.tables(0).rows.count / m + 0.5) dim page as new dataset dim tab as datatable tab = ds.tables(0).clone dim dr as datarow dim col as datacolumn dim drow as datarow ' dim r as integer = 0 dim ary() as object '确定传入的页数能否有理 if ds.tables(0).rows.count <= 0 then exit function end if if curpage < 1 then curpage = 1 elseif curpage > j then curpage = j end if '取适合前提m条记载 i = m * (curpage - 1) for each dr in ds.tables(0).rows drow = tab.newrow ary = ds.tables(0).rows(i).itemarray drow.itemarray = ary tab.rows.add(drow) i += 1 '有m条记录就跳出 if i > m * curpage - 1 then exit for end if next page.tables.add(tab) return page end functionend class好了，大功成功，你只有把你的的表格控件的datasource树立为page ，ok！

小程序构成大项目之——分页显示

相关推荐

推荐下载

热门阅览

最新排行