上面说到了制作报表,相信大家都能制作了吧!下面就说几句报表和vb的交互。其实就是几句话的事情。
Dim WithEvents Report As grproLibCtl.GridppReport
Private Sub Form_Load()
Dim txtSQL As String
Dim msgtext As String
txtSQL = "select * from CheckDay_Info where Date ='" & Format(Date, "yyyy-mm-dd") & "'"
Set Report = New grproLibCtl.GridppReport '创建报表对象
Report.LoadFromFile (App.Path & "\机房收入日汇总表.grf") '路径,加载报表模板文件
Report.DetailGrid.Recordset.ConnectionString = ConnectString() '连接数据源
Report.DetailGrid.Recordset.QuerySQL = txtSQL '通过select查询创建记录集
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start '开始打印
End Sub
主要部分搬上来了,剩下的就是细枝末节了。
打印:
Private Sub cmdPrint_Click() '打印
Report.[Print] (True) '方法名与vb的内部定义有冲突,所以要用中括号
End Sub
打印预览:
Private Sub cmdPreview_Click() '打印预览
Report.PrintPreview (True)
End Sub
刷新:
Private Sub cmdRefresh_Click() '刷新
GRDisplayViewer1.Refresh
End Sub
欧了,就是这么简单的。因为在制作报表时,已经和数据库有关联了,所以在vb里的代码比较简单,大家试试看。