在RDLC中,可以使用自定义方法来扩充报表功能。
比如常见的,把数字转换为大写中文的需求。按如下方法操作。
1:在报表空白处先一点,确保没点中任何报表对象。然后点击菜单栏上的“报表”。
选“报表属性”,在弹出的小窗口上,切换到“代码”标签页。
在文本框内输入你的函数,我们这里输入了一个CNMoney函数。
注意:
(1)嵌入代码中的方法必须以 Microsoft Visual Basic 语法进行编写
(2)代码块可以包含多个方法。
(3)无法向函数传递数据值集,不支持自定义聚合。一般用于简单数据类型。
(4)此方法可在该报表中多次使用,但是不能脱离报表使用。即不能在报表中共享这一函数。
其他报表中要用到该方法,需在报表中创建同样的代码段。
2:在报表上拖一个文本框,在上面点右键,选“表达式”,在弹出的表达式界面上,输入
code.CNMoney(16)
注意:
以code+.+函数名称的方式引用之前定义的方法
下图为操作流程示意
下面为文中用到的函数体,可在项目中实际使用。
如果函数有错误,在编译时会出现类似的提示信息
可根据提示进行修正
注:
本文为在报表中使用自定义函数的方法之一,之后有时间补充其他方法。
修正:
感谢何金辉同学的提醒,第一版函数中,输入参数类型设置为Long了,所以丢失了小数点部分的角和分。修正为Double。
函数做一下修正:
- 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
版权声明:本文为博主原创文章,未经博主允许不得转载。