在做机房收费系统时，有两个功能日结账单和周结账单中用到了报表控件，下面介绍一下如何使用报表控件。

首先，需要下载一个报表控件并安装，安装完成后在VB--工程--引用中选择Grid++Report Engine5.0TypeLibrary添加。

这两个控件添加进了工具箱。

下面添加代码就能使用此控件了。

Dim Report As grproLibCtl.GridppReport
'实例化报表
        Set Report = New grproLibCtl.GridppReport
        
        '报表建立的位置
        Report.LoadFromFile App.Path & "\DaySettle.grf"
        Report.DetailGrid.Recordset.ConnectionString = ConnectString   '数据源
        
        strtxtsql = "select * from DaySettle"
        Report.DetailGrid.Recordset.Querysql = strtxtsql
        '报表的参数设置
        Report.ParameterByName("ShowDate").AsString = Str(Date)
        Report.ParameterByName("MakeTime").AsString = Now
        '查看报表
        GRDisplayViewer1.Report = Report
        '显示报表
        GRDisplayViewer1.Start