189 8069 5689
这样的效果用FineReport报表实现起来非常容易，只要在主报表的模板上，在需要放置子报表的单元格上右击选择“单元格元素|子报表”即插入了子报表，然后绑定子报表所需的数据源，实现让子报表的内容显示在主报表上，然后将整个cpt文件插入vb点虐 中。
超过十余年行业经验，技术领先，服务至上的经营模式，全靠网络和口碑获得客户，为自己降低成本，也就是为客户降低成本。到目前业务范围包括了：网站设计制作、做网站，成都网站推广，成都网站优化，整体网络托管，成都小程序开发，微信开发，App定制开发，同时也可以让客户的网站和网络营销和我们一样获得订单和生意！
Visualbasic代码编辑器没有这个功能，但可以用第三方的编辑软件Emedit来实现这个功能。
1、用Emedit打开*.frm文件。
2、点工具，当前配置属性，然后勾选显示行号即可。
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
With Me.ReportViewer1 '初始化报表
.Dock = DockStyle.Fill
.LocalReport.DataSources.Clear()
.LocalReport.ReportPath = "Report1.rdlc"
.RefreshReport()
End With
报表在设计时，不一定要绑定数据源，但在窗体加载时，需要初始化报表控件，以上代码可以放在窗体加载的Load事件里，供你参考。