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

3楼xqf309昨天 19:19

不错，多多加油

2楼lmdcszh昨天 22:46

不错！

1楼lishehe昨天 16:31

加油

Re: kanglix1an昨天 20:36

嗯嗯，嘿嘿