要在vb中应用报表,首先必须加载新的控件。工程——》部件,然后在控件里面勾选Grid++report engine5.0 type library,应用即可,这时在工具箱中多了两个控件,添加GRDisplayViewer控件。
接下来就是代码啦:
GRDisplayViewer1.Stop
Set Report = New grproLibCtl.GridppReport '实例化一个报表
'加载报表文件
Report.LoadFromFile App.Path & "\weekaccount.grf" '选择建好的报表所在位置
'给报表中的参数赋值
Report.ParameterByName("startdate").AsString = Str(DTPickerStart.Value)
Report.ParameterByName("createtime").AsString = Now
Report.ParameterByName("enddate").AsString = Str(DTPickerEnd.Value)'这里注意,红色字体所对应的参数数据类型必须与报表中的数据类型一致,否则参数将无法传递。
'报表连接的记录集,选择需要连接的表
Report.DetailGrid.Recordset.Querysql = "select * from weekAccount_info "
GRDisplayViewer1.Report = Report '查看报表
GRDisplayViewer1.Start '显示报表到这里为止,我们已经可以在vb程序中看到我们设计的报表啦。