标签:param where details 限制 string 事件 lin 显示 targe
二、代码部分
跟之前写的excel相比,我认为报表还是有点同样的。
大体思路是这种:
这样的使用方法是载入该类的事件。Withevents之后就能在代码编辑窗看到该类的事件了(假设有的话)。
由于类不像控件,双击控件就能够进入事件编辑。
使用WithEvents 变量时,应该注意以下这些限制条件:
也就是说,不能把它声明为As
Object—当声明该变量时必须指定类名。必须明白地创建事件源对象,并将它赋给
WithEvents变量。)以下看一下代码:
<span style="white-space:pre"> <span style="color:#006600;"> </span></span><span style="color:#006600;">'定义</span> <pre name="code" 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 style="white-space:pre"> </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 '运行 <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与报表代码《一学就会傻瓜版》
标签:param where details 限制 string 事件 lin 显示 targe
原文地址:http://www.cnblogs.com/blfbuaa/p/7339816.html