vb制作报表（曾经站位）

概述  第一步：下载安装grid++report (下载grid++report) 第二步： 创建报表模板。    （如何制作报表模板） 第三步：添加应用和部件（部件 ：和 引用：） 第四步：用VB将报表连接起来。（报表的位置app.path最方便 ） Dim WithEvents Report As grproLibCtl.GridppReportPrivate Sub cmdPre_Cli

第一步：下载安装grID++report (下载grid++report)

第二步：创建报表模板。 （如何制作报表模板）

第三步：添加应用和部件（部件 ：和 引用：）

第四步：用VB将报表连接起来。（报表的位置app.path最方便 ）

Dim WithEvents Report As grprolibCtl.GrIDppReportPrivate Sub cmdPre_Click()    Report.PrintPrevIEw (True)End SubPrivate Sub cmdPrint_Click()   '因为报表对象的 Print 方法名与 VB 内部定义有冲突，所以要用中括号括起来    Report.[Print] (True)End SubPrivate Sub Command1_Click()        GrdisplayVIEwer1.RefreshEnd SubPrivate Sub Form_Load()    '创建报表对象    Set Report = New grprolibCtl.GrIDppReport    '载入报表模板文件    Report.LoadFromfile ("C:\Users\HaifANG\Desktop\机房收费系统1.0\byDay.grf") '    strTxtsql = "select * from allbyday_tableInfo where date='" & Format(Now,"yyyy-mm-dd") & "'"  '设置数据连接串    Report.DetailGrID.Recordset.ConnectionString = "fileDSN=computerChargeSys.dsn;UID=sa;PWD=123456"    Report.DetailGrID.Recordset.querysql = strTxtsql        GrdisplayVIEwer1.Report = Report    GrdisplayVIEwer1.Start        End Sub Private Sub Form_Resize()    GrdisplayVIEwer1.left = 0    GrdisplayVIEwer1.WIDth = Me.WIDth - 500End SubPrivate Sub Report_Initialize()    '设置各个参数的值                              Report.ParameterByname("makedate").Asstring = Format$(Date,"yyyy-mm-dd")    '显示开始日期'    Report.ParameterByname("DateEnd").Asstring = Format$(DTPEnd.Value,"yyyy-mm-dd")        '显示结束日期'End Sub

在报表GrIDReport中显示日期时间的改变： http://www.jb51.cc/article/p-bwkaymyg-ts.html 总结

以上是内存溢出为你收集整理的vb制作报表（曾经站位）全部内容，希望文章能够帮你解决vb制作报表（曾经站位）所遇到的程序开发问题。

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