VB中使用报表控件（一）

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

首先，需要下载一个报表控件并安装，安装完成后在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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!