这样的效果用FineReport报表实现起来非常容易，只要在主报表的模板上，在需要放置子报表的单元格上右击选择“单元格元素|子报表”即插入了子报表，然后绑定子报表所需的数据源，实现让子报表的内容显示在主报表上，然后将整个cpt文件插入vb.net中。
公司主营业务：成都网站设计、网站建设、外贸网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联推出禹王台免费做网站回馈大家。
当然能，把你不分页的程序贴出来，我给你修改嘛。
主要就是利用rs.PageSize等实现，在你程序的下面语句：
rs.open sqlc,conn,1,1
之后，添加下面的代码可以控制显示的记录范围：
rs.PageSize = 10 'pagesize属性指定了每页要显示的记录条数
rs.AbsolutePage = Page '把页码赋给absolutepage属性从而知当前页的首条记录号
上的PAGE是调用是带过来的参数，没有参数时指定为1，表示显示第一页。
怎么用vb.net取word的当前页页码
我用vb.net来操作word，怎么才能取到word文档的的当前页页码？
谢谢！
------解决方案--------------------
a=Selection.Information(wdActiveEndAdjustedPageNumber)
------解决方案--------------------
之前把光标放到当前页面上。
app.Selection.Information(Word.WdInformation.wdActiveEndAdjustedPageNumber)
很简单。只需要安装Code39字体，或者加载到系统中就可以。
报表设置该字体自然就表示成条形码了。
Code39字体从网上搜索能搜索到。