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

概述如果不明白逻辑关系没做包表模板的、建议先看前面的详细讲解 有错请及时指出、有错必改、方便大家！（点击进入） 机房收费系统之报表（上）逻辑关系 机房收费系统之报表（中）周报表制作 机房收费系统之报表（下）VB与报表代码 在第二篇博客中报表模板做好了、VB中要先添加控件、然后用代码调用报表模板 1.添加Grid++Report 的控件、如图 2.选择名字为GRDisplayViewer的控件、放到Fr 如果不明白逻辑关系没做包表模板的、建议先看前面的详细讲解
有错请及时指出、有错必改、方便大家！（点击进入） 机房收费系统之报表（上）逻辑关系 机房收费系统之报表（中）周报表制作 机房收费系统之报表（下）VB与报表代码

在第二篇博客中报表模板做好了、VB中要先添加控件、然后用代码调用报表模板

1.添加GrID++Report 的控件、如图

2.选择名字为GrdisplayVIEwer的控件、放到From上（蓝色第一个）

3.其他控件也放上去、名字如下图（跟我名字一样才能用.名字不一样要改代码）

4.开始时间和结束时间用的是时间控件DTPicter时间控件，部件载入名上图有（本人忘了是哪个了……）

5.引用（菜单--工程--引用）引用GrID++Re…………如图

6.代码（复制进去应该就行了、有详细备注、实在不懂的可以点我）

Dim WithEvents Report As grprolibCtl.GrIDppReport  '实例化报表</SPAN>'报表刷新Private Sub cmdCheckDay_Click()    Dim txtsql As String    '判定终止日期不能小于起始日期    If StartDateVIEw.Value > EndDateVIEw.Value Then '条件限制        MsgBox "终止日期不能小于起始日期！","温馨提示"        Exit Sub    End If    Report.DetailGrID.Recordset.ConnectionString = ConnectString '数据源连接数据库直接调用写好的模块内容    If txtBalance.Text = "" Then '判断上期text里是否为空        '查询日期1到日期2的记录        txtsql = "select * from ReportForms_Info where cast(convert(varchar,date) as datetime) between '" & _                 StartDateVIEw.Value & "' and '" & EndDateVIEw.Value & "'"    Else        '如果上期余额的text里不为空则查询日期1到日期2中、上期余额是文本中的记录        txtsql = "select * from ReportForms_Info where cast(convert(varchar,date) as datetime) between '" & _                 StartDateVIEw.Value & "' and '" _                 & EndDateVIEw.Value & "' And Balance = '" & txtBalance.Text & "'"    End If    '显示报表中的内容    Report.DetailGrID.Recordset.querysql = txtsql    GrdWeekliyBill.Refresh    '报表模板上的4个日期或时间赋值    Report.ParameterByname("Date1").Value = Format$(StartDateVIEw.Value,"yyyy-mm-dd")    Report.ParameterByname("Date2").Value = Format$(EndDateVIEw.Value,"yyyy-mm-dd")    Report.ParameterByname("Date3").Value = Date    Report.ParameterByname("time").Value = TimeEnd Sub'预览Private Sub cmdprevIEw_Click()    Report.PrintPrevIEw (True)End Sub'打印Private Sub cmdput_Click()    Report.[Print] (True)End Sub'载入窗体Private Sub Form_Load()    '创建报表对象    Set Report = New grprolibCtl.GrIDppReport    '载入报表模版文件    Report.LoadFromfile (App.Path & "\周报表.grf")    '设置数据连接串    Report.DetailGrID.Recordset.ConnectionString = ConnectString    '查询语句    txtsql = "select * from ReportForms_Info where cast(convert(varchar,date) as datetime) between '" & StartDateVIEw.Value & "' and '" & EndDateVIEw.Value & "'"    Report.DetailGrID.Recordset.querysql = txtsql '执行    '显示报表中的内容    GrdWeekliyBill.Report = Report    GrdWeekliyBill.Start    '报表模板上的4个日期或时间赋值    Report.ParameterByname("Date1").Value = Format$(StartDateVIEw.Value,"yyyy-mm-dd")    Report.ParameterByname("Date3").Value = Date    Report.ParameterByname("time").Value = TimeEnd Sub

有错请及时指出、有错必改、方便大家！ 机房收费系统之报表（上）逻辑关系 机房收费系统之报表（中）周报表制作 机房收费系统之报表（下）VB与报表代码

—————一开始真被TA唬住了！———chenchen

总结

以上是内存溢出为你收集整理的机房收费系统之结账与报表（三）VB与报表代码《一学就会傻瓜版》全部内容，希望文章能够帮你解决机房收费系统之结账与报表（三）VB与报表代码《一学就会傻瓜版》所遇到的程序开发问题。

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