VB平台的报表问题

概述    由于前一段时间自考，关于VB平台报表问题的文章一直没有更新。现在和大家分享一下，在机房收费系统的过程中，对报表问题的解决。     我用的是Grid++Report,相对VB自带的报表和Crystal Reports而言，这种方法是被普遍认为最简单的方法了。 其实，利用Grid++Report方法，无疑是先制作一个报表的模版，然后利用VB，将报表模板引用过来，明白了这个道理，报表也就简单多 由于前一段时间自考，关于VB平台报表问题的文章一直没有更新。现在和大家分享一下，在机房收费系统的过程中，对报表问题的解决。

我用的是GrID++Report,相对VB自带的报表和Crystal Reports而言，这种方法是被普遍认为最简单的方法了。其实，利用GrID++Report方法，无疑是先制作一个报表的模版，然后利用VB，将报表模板引用过来，明白了这个道理，报表也就简单多了。在利用GrID++Report实现报表的问题时，遇到了很多的问题，例如如何在报表中显示系统当前的时间等等。

下面是关于日结账单中报表的代码，供大家参考，便于我们共同学习！

Private WithEvents Report As grprolibCtl.GrIDppReport    '声明对象变量ReportPrivate Sub cmdPrint_Click()   '打印报表    Report.[Print] (True)    '因为报表对象的print方法名与VB内部定义有冲突，所以要用中括号括起来End SubPrivate Sub cmdPrintShow_Click()   '打印预览    Report.PrintPrevIEw (True)End SubPrivate Sub Form_Load()    Dim strsql As String    Dim strMsg As String    Dim mrc As ADODB.Recordset        '创建报表对象    Set Report = New grprolibCtl.GrIDppReport        '载入报表模版文件    Report.LoadFromfile (App.Path & "\日结账单.grf ")        '设置数据连接串    Report.DetailGrID.Recordset.ConnectionString = ConnectString  '数据源        '用来使GrdisplayVIEwer1报表查询器控件显示报表中的内容    GrdisplayVIEwer1.Report = Report    GrdisplayVIEwer1.Start        '报表中参数的设置    Report.ParameterByname("startdate").Value = Now   '加载标题下面的当前时间    Report.ParameterByname("DateNow").Value = Now   '加载制表时间                End Sub

总结

以上是内存溢出为你收集整理的VB平台的报表问题全部内容，希望文章能够帮你解决VB平台的报表问题所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。