前言
上篇文章已经对数据显示的必要性及三种不同数据显示方式的优劣做了简介，这里就不再赘述。直接为大家展示一下如何来将vb中的数据以报表方式显示。
@H_403_7@
@H_403_7@
@H_403_7@
一、 下载报表编辑器
@H_403_7@
http://www.rubylong.cn/Download_History.htm
@H_403_7@
注意：我特意把这一步拿来做为一个过程来讲，主要是因为目前最新的6.0版本好像有些兼容问题。 在用vb交互的过程中可能会出现 “ 数据无法解析 ”报错。我因为这个问题耽搁了好久。 最后才明白是版本问题。
@H_403_7@
@H_403_7@
@H_403_7@
二、自行绘制报表
@H_403_7@
@H_403_7@
@H_403_7@
1.插入控件
@H_403_7@
@H_403_7@
（BeginDate） 变量—— parameter参数
@H_403_7@
文字常量—— 静态框
@H_403_7@
当前时间——系统变量框
@H_403_7@
@H_403_7@
@H_403_7@
@H_403_7@
@H_403_7@
2.更改控件属性
@H_403_7@
@H_403_7@
三、代码设计
Private Sub Form_Load()
Dim strsql As String,strMsg As String
strsql = "select * from checkday_info where date='" & Format(Date,"yyyy-mm-dd") & "'"
Set Report = New grproLibCtl.GridppReport '实例化模版
Report.LoadFromFile (App.Path & "\checkday.grf") '加载模版
Report.DetailGrid.Recordset.ConnectionString = ConnectString() '连接数据源
Report.DetailGrid.Recordset.Querysql = "select top 1 * from checkday_Info order by date desc" '通过SELECT查询创建记录集
Report.ParameterByName("now").AsString = Date
Report.ParameterByName("username").AsString = UserName '给报表中元素赋值
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start '开始打印
End Sub
@H_403_7@