机房收费系统报表（2）

二、代码部分 跟之前写的excel相比，我觉得报表还是有点相同的。大体思路是这样的： 先定义。 （报表：Dim Withevents 对象变量 As 类名 这种用法是加载该类的事件，Withevents之后就能在代码编辑窗看到该类的事件了（如果有的话）。 因为类不像控件，双击控

二、代码部分
跟之前写的excel相比，我觉得报表还是有点相同的。大体思路是这样的：
先定义。
（报表：Dim Withevents 对象变量 As 类名

这种用法是加载该类的事件，Withevents之后就能在代码编辑窗看到该类的事件了（如果有的话）。

因为类不像控件，双击控件就可以进入事件编辑。

使用WithEvents 变量时，应该注意下面这些限制条件：

WithEvents变量不能是派生对象变量。也就是说，不能把它声明为As Object—当声明该变量时必须指定类名。
不能把 WithEvents 变量声明为As New。必须明确地创建事件源对象，并将它赋给WithEvents变量。）
实例化报表，打开报表位置。
链接数据源。（由于报表里面已经连接了数据源，所以这句话我注释后程序依然可以正常的运行。在excel是写地址）
查询表并把表里面的内容显示出来

下面看一下代码：

<span>		<span style="color:#006600">	</span></span><span style="color:#006600">'定义</span><pre class="plain" style="font-size: 19px">    Dim WithEvents report As grproLibCtl.GridppReport <span style="font-family: 华文楷体;font-size: 14pt">                  </span><span style="font-family: 华文楷体;font-size: 14pt">				</span>

<span style="color:#006600"> <span>			</span>'加载一个新报表</span>    Set report = New grproLibCtl.GridppReport                        <span style="color:#006600">'载入报表模版文件</span>    report.LoadFromFile (App.Path & "\日报表.grf")                        '设置数据连接串   <span style="color:#006600"> 'report.DetailGrid.Recordset.ConnectionString = ConnectString                        '链接数据源，由于在报表里面已经连接了。</span>    txtsql = "select * from checkday_Info where date ='" & Date & "'"    report.DetailGrid.Recordset.QuerySQL = txtsql &<mark>本文来源gaodaimacom搞#^代%!码&网(</mark>#39;执行                        <span style="color:#006600">'显示报表中的内容</span>    grddayBill.report = report    grddayBill.Start                          <span style="color:#006600">'报表模板上的4个日期或时间赋值</span>    report.ParameterByName("Date1").Value = Format(Date, "yyyy-MM-dd")    report.ParameterByName("Datetime").Value = Now    report.ParameterByName("username").Value = UserName

三、总结

所以很多新的东西只要理清好原理和思路，也没什么太难的。

还是特别感谢杨琛师哥的这两篇博客，巨详细。

机房收费系统之结账与报表（三）VB与报表代码《一学就会傻瓜版》

机房收费系统之结账与报表（二）周报表制作《一学就会傻瓜版》

喜欢 (0)赏

[搞代码]

分享 (0)