mysql = "select top 18 * from qiye where 编号 not in(select top " c2 " 编号 from qiye) "
在集宁等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站设计、成都网站建设、外贸网站建设 网站设计制作定制制作,公司网站建设,企业网站建设,成都品牌网站建设,全网营销推广,外贸网站制作,集宁网站建设费用合理。
CrystalReportViewer
dataset 定义数据源
.rpt 文件描述具体报表样式
再加一个调用报表的FORM，就可以实现简单的报表功能
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
当然能，把你不分页的程序贴出来，我给你修改嘛。
主要就是利用rs.PageSize等实现，在你程序的下面语句：
rs.open sqlc,conn,1,1
之后，添加下面的代码可以控制显示的记录范围：
rs.PageSize = 10 'pagesize属性指定了每页要显示的记录条数
rs.AbsolutePage = Page '把页码赋给absolutepage属性从而知当前页的首条记录号
上的PAGE是调用是带过来的参数，没有参数时指定为1，表示显示第一页。
