RDLC报表中使用自定义函数

在RDLC中，可以使用自定义方法来扩充报表功能。比如常见的，把数字转换为大写中文的需求。按如下方法操作。

1、在报表空白处先一点，确保没点中任何报表对象。然后点击菜单栏上的“报表”。

选“报表属性”，在弹出的小窗口上，切换到“代码”标签页。

在文本框内输入你的函数，我们这里输入了一个CNMoney函数。

注意：

（1）嵌入代码中的方法必须以 Microsoft Visual Basic 语法进行编写

（2）代码块可以包含多个方法。

（3）无法向函数传递数据值集，不支持自定义聚合。一般用于简单数据类型。

（4）此方法可在该报表中多次使用，但是不能脱离报表使用。即不能在报表中共享这一函数。

 其他报表中要用到该方法，需在报表中创建同样的代码段。

2、在报表上拖一个文本框，在上面点右键，选“表达式”，在弹出的表达式界面上，输入

code.CNMoney(16)

注意：以code+.+函数名称的方式引用之前定义的方法

下图为操作流程示意

函数修正：

Function CNMoney(money As Double) As String
    Dim str_Money=money.ToString()
    Dim str_China As [String]() = {"分", "角", "元", "拾", "佰", "仟", _
        "万", "拾", "佰", "仟", "亿", "拾", _
        "佰", "仟", "兆", "拾", "佰", "仟"}
    Dim str_Number As [String]() = {"零", "壹", "贰", "叁", "肆", "伍", _
        "陆", "柒", "捌", "玖"}
    Dim M As [String] = ""
    Dim isPoint As Boolean = False
    If str_Money.IndexOf(".") <> -1 Then
        str_Money = str_Money.Remove(str_Money.IndexOf("."), 1)
        isPoint = True
    End If
    For i As Integer = str_Money.Length To 1 Step -1
        Dim MyData As Integer = Convert.ToInt16(str_Money(str_Money.Length - i).ToString())
        M += str_Number(MyData)
        If isPoint = True Then
            M += str_China(i - 1)
        Else
            M += str_China(i + 1)
        End If
    Next
    Return M
End Function

转载自：http://blog.csdn.net/babyt/article/details/5942285