這樣的效果用FineReport報表實現(xiàn)起來非常容易,只要在主報表的模板上,在需要放置子報表的單元格上右擊選擇“單元格元素|子報表”即插入了子報表,然后綁定子報表所需的數(shù)據(jù)源,實現(xiàn)讓子報表的內(nèi)容顯示在主報表上,然后將整個cpt文件插入vb點虐 中。
超過十余年行業(yè)經(jīng)驗,技術(shù)領(lǐng)先,服務(wù)至上的經(jīng)營模式,全靠網(wǎng)絡(luò)和口碑獲得客戶,為自己降低成本,也就是為客戶降低成本。到目前業(yè)務(wù)范圍包括了:網(wǎng)站設(shè)計制作、做網(wǎng)站,成都網(wǎng)站推廣,成都網(wǎng)站優(yōu)化,整體網(wǎng)絡(luò)托管,成都小程序開發(fā),微信開發(fā),App定制開發(fā),同時也可以讓客戶的網(wǎng)站和網(wǎng)絡(luò)營銷和我們一樣獲得訂單和生意!
Visualbasic代碼編輯器沒有這個功能,但可以用第三方的編輯軟件Emedit來實現(xiàn)這個功能。
1、用Emedit打開*.frm文件。
2、點工具,當(dāng)前配置屬性,然后勾選顯示行號即可。
CrystalReportViewer
dataset 定義數(shù)據(jù)源
.rpt 文件描述具體報表樣式
再加一個調(diào)用報表的FORM,就可以實現(xiàn)簡單的報表功能
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'調(diào)用水晶報表時置鼠標為沙漏狀 CRViewer91.ReportSource = Report '該語句的賦值將在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '調(diào)用水晶報表完成后置鼠標為默認形狀
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
報表在設(shè)計時,不一定要綁定數(shù)據(jù)源,但在窗體加載時,需要初始化報表控件,以上代碼可以放在窗體加載的Load事件里,供你參考。