[Crystal Report]使用技巧

1.如何制作页小计？

在DataTable中添加数值型字段pageno，代码中遍历记录赋值该字段，从1开始记数满10条自动还原为1。然后在水晶报表中使用该字段pageno分组，右键组页眉在菜单中选择“格式化节...”并钩选“在后面页新建页”，接着添加“运行总和字段”将需要小计的字段放在页脚即可。

在DataTable中添加数值型字段pageno，代码中遍历记录赋值该字段，从1开始记数满10条自动还原为1。然后在水晶报表中使用该字段pageno分组，右键组页眉在菜单中选择“格式化节...”并钩选“在后面页新建页”，接着添加“运行总和字段”将需要小计的字段放在页脚即可。

2.一页不够显示，如何添加空白记录？

在DataTable中添加，利用pageno统计每页记录是否达到10条。

3.如何将页小计转换成大写金额？

添加公式字段，右键“编辑”，在公式编辑器中更改语法为BASIC，并添加如下代码：

    dim LowerMoney  as Currency

    LowerMoney= Round ({#Total_psje}, 2)

    Dim strLower As String, strUPart As String, strUpper As String

    Dim iTemp      As Number

    strLower = cStr(LowerMoney)         '保留到两位小数

    strLower = Replace (strLower, "￥", "")

    strLower = Replace (strLower, ",", "")

    iTemp = 1

    strUpper = ""

    Do While (iTemp <= Len(strLower))

        Select Case Mid(strLower, Len(strLower) - iTemp + 1, 1)

            Case "."

                strUPart = "元"

            Case "0"

                strUPart = "零"

            Case "1"

                strUPart = "壹"

            Case "2"

                strUPart = "贰"

            Case "3"

                strUPart = "叁"

            Case "4"

                strUPart = "肆"

            Case "5"

                strUPart = "伍"

            Case "6"

                strUPart = "陆"

            Case "7"

                strUPart = "柒"

            Case "8"

                strUPart = "捌"

            Case "9"

                strUPart = "玖"

        End Select

        Select Case iTemp

            Case 1

                strUPart = strUPart & "分"

            Case 2

                strUPart = strUPart & "角"

            Case 3

                strUPart = strUPart & ""

            Case 4

                strUPart = strUPart & ""

            Case 5

                strUPart = strUPart & "拾"

            Case 6

                strUPart = strUPart & "佰"

            Case 7

                strUPart = strUPart & "仟"

            Case 8

                strUPart = strUPart & "万"

            Case 9

                strUPart = strUPart & "拾"

            Case 10

                strUPart = strUPart & "佰"

            Case 11

                strUPart = strUPart & "仟"

            Case 12

                strUPart = strUPart & "亿"

            Case 13

                strUPart = strUPart & "拾"

            Case 14

                strUPart = strUPart & "佰"

            Case 15

                strUPart = strUPart & "仟"

            Case 16

                strUPart = strUPart & "万"

            Case Else

                strUPart = strUPart & ""

        End Select

        strUpper = strUPart & strUpper

        iTemp = iTemp + 1

    Loop

    strUpper = Replace(strUpper, "零拾", "零")

    strUpper = Replace(strUpper, "零佰", "零")

    strUpper = Replace(strUpper, "零仟", "零")

    strUpper = Replace(strUpper, "零零零", "零")

    strUpper = Replace(strUpper, "零零", "零")

    strUpper = Replace(strUpper, "零角零分", "整")

    strUpper = Replace(strUpper, "零分", "整")

    strUpper = Replace(strUpper, "零角", "零")

    strUpper = Replace(strUpper, "零亿零万零元", "亿元")

    strUpper = Replace(strUpper, "亿零万零元", "亿元")

    strUpper = Replace(strUpper, "零亿零万", "亿")

    strUpper = Replace(strUpper, "零万零元", "万元")

    strUpper = Replace(strUpper, "万零元", "万元")

    strUpper = Replace(strUpper, "零亿", "亿")

    strUpper = Replace(strUpper, "零万", "万")

    strUpper = Replace(strUpper, "零元", "元")

    strUpper = Replace(strUpper, "零零", "零")

    '对壹元以下的金额的处理

    If (Mid(strUpper, 1, 1) = "元") Then strUpper = Mid(strUpper, 2, (Len(strUpper) - 1))

    If (Mid(strUpper, 1, 1) = "零") Then strUpper = Mid(strUpper, 2, (Len(strUpper) - 1))

    If (Mid(strUpper, 1, 1) = "角") Then strUpper = Mid(strUpper, 2, (Len(strUpper) - 1))

    If (Mid(strUpper, 1, 1) = "分") Then strUpper = Mid(strUpper, 2, (Len(strUpper) - 1))

    If (Mid(strUpper, 1, 1) = "整") Then strUpper = "零元整"

    Formula = strUpper

4.如何代码更改报表中的某个text值？

using CrystalDecisions.CrystalReports.Engine;

using CrystalDecisions.CrystalReports.Engine;

public void _SetReportTextObjectValue(string TextObjectCtrlName, string Value)

   {

    ReportDocument rd=(ReportDocument)this.crystalReportViewer1.ReportSource;

    TextObject o=(TextObject)rd.ReportDefinition.ReportObjects[TextObjectCtrlName];

    o.Text=Value;

   }

5.更新显示报表？

     using CrystalDecisions.CrystalReports.Engine;

     ReportDocument rpt = new ReportDocument(); 

     rpt.Load(报表文件路径);

     rpt.SetDataSource(DataSet对象);

     this.crystalReportViewer1.ReportSource = rpt;