水晶报表的简单有关问题

水晶报表的简单问题
由如下3个表，做一打印报表：

1、用户信息表
   编号        姓名          住址                 电话
-------------------------------------------------------------------------------------------------------------
    1           张三   A小区B楼3单元401室    18483948393

2、购物记录表
   序号  客户编号    收费类型    单价  数量   金额     票据单号
-----------------------------------------------------------------------------------------------------------------
     1              1                 电费      1.175    10       11.75      2014100001
     2              1                 水费      2.347     10       23.47     2014100001

3、余额表
      票据单号        实收金额     本次余额       上次余额
-----------------------------------------------------------------------------------------------------------------
    2014100001             36.00                  0.88                0.10

注：本次余额和上次余额均为了避免在找零钱时，不找小于1元的零钱，将零钱中角、分  自动转储到下次购买的金额中，下次购买时，这剩余的角分对应的钱抵扣下次购买金额中相应的钱。

要根据以上数据生成以下格式的票据，请问用什么报表控件或方法可以实现

                       花园物业公司收费票据

编号：1           姓名：张三       住址：A小区B楼3单元401室
电话： 18483948393                   票据单号：1

   收费类型          单价           数量          金额
---------------------------------------------------------------------------------------------------------
        电费           1.175            10            11.75
        水费           2.347           10             23.47
----------------------------------------------------------------------------------------------------------------
  合计金额：35.22    上次余额：0.10    本次实收金额：36.00    本次余额：0.88

这个报表，水晶报表能完成吗，如何完成，谢谢大家！

------解决思路----------------------
我都10来年没用水晶报表了，邀请我来回答这个问题，可真有你的。

1、
把购物记录表绑定到水晶报表里面，然后把购物记录表中的对应的数据字段拖放到水晶报表的Section3详细资料里面

2、
花园物业公司收费票据

编号：XXX                              姓名：XXX                           住址：XXX
电话：XXX                              票据单号：XXX

   收费类型          单价           数量          金额
————————————————————————————
这部分直接在section1报表头部分输入文字调整好位置

3、
合计金额：XXX    上次余额：XXX    本次实收金额：XXX    本次余额：   XXX
—————————————————————————————
这部分直接在section4报表煨部分输入文字调整好位置

4、
在水晶报表里面定义一批参数字段（FormulaFields）对应2、3里面的XXX，一个XXX对应一个参数字段，然后把这些参数字段也拖放到水晶报表XXX的位置，然后导出成rpt文件

5、



Dim myReport As CRAXDRT.Report

Dim Report_App As CRAXDRT.Application

 

Set Report_App = New CRAXDRT.Application

Set myReport = Report_App.OpenReport("d:\123.rpt")

 

'绑定水晶报表数据源

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

rs.Open "select * from 购物记录表", dbConnection, adOpenKeyset, adLockReadOnly

myReport.Database.Tables(1).SetDataSource rs

Set rs = Nothing


‘替换参数字段

Call EditField("xm", "张三")                   ’假定你在水晶报表里面定义了一个名为xm的参数字段，这里用“张三”替换对应的内容

Call EditField("totalmoney", "35.22") 

…………

 

With CRViewer1

        .ReportSource = myReport

         

        .EnableGroupTree = False

        .EnableAnimationCtrl = False

        .EnableDrillDown = False

        .EnableHelpButton = False

        .EnablePopupMenu = False

        .EnableSearchControl = False

        .EnableSearchExpertButton = False

        .EnableSelectExpertButton = False

        .EnableStopButton = False

 

        .ViewReport

End With


Private Sub EditField(strSource As String, strReplace As String)

    Dim i As Long

    For i = 1 To myReport.FormulaFields.Count

        If myReport.FormulaFields(i).FormulaFieldName = strSource Then

            myReport.FormulaFields(i).Text = "'" & strReplace & "'"

            Exit Sub

        End If

    Next

End Sub

差不多就是这个样子了
------解决思路----------------------
已经很久没做报表了

水晶报表的简单有关问题

相关推荐