大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
CrystalReportViewer
创新互联建站专注于企业成都全网营销推广、网站重做改版、沈北新网站定制设计、自适应品牌网站建设、html5、商城网站定制开发、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为沈北新等各大城市提供网站开发制作服务。
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
如果是FineReport报表,有两种方法,一种是需要将数据源放在你们本地或网络的服务器上,这样换一台机器数据源也不会出问题;另一种就是打包时将所用数据也一并打包,了。楼主可以试一下水晶报表,应该是一个原理。
可以这样添加rdlc ,下面为部分关键代码,看了就懂 我的是C#的,思路就是这样
if (ds.Tables[0].Rows.Count 0)
{
labmsg.Text = ds.Tables[0].Rows.Count.ToString();
ReportDataSource rds = new ReportDataSource("DataSet1", ds.Tables[0]);
ReportViewer1.LocalReport.DataSources.Clear();
ReportViewer1.LocalReport.DataSources.Add(rds);
ReportViewer1.LocalReport.ReportPath = "rdl\\YP\\rdlwtdataquery.rdlc";
ReportViewer1.LocalReport.Refresh();
}
else
{
}