大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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,表示显示第一页。