ActiveReports 是一款專注于 .NET 和 .NET Core 平臺(tái)的報(bào)表控件。通過(guò)拖拽式報(bào)表設(shè)計(jì)器，可以快速地設(shè)計(jì) Excel表格、Word文檔、圖表、數(shù)據(jù)過(guò)濾、數(shù)據(jù)鉆取、精準(zhǔn)套打等類型報(bào)表，全面滿足 WinForm、ASP.NET、ASP.NET MVC、WPF 平臺(tái)中各種報(bào)表的開發(fā)需要。同時(shí)，通過(guò)豐富的 API 可以靈活的實(shí)現(xiàn)報(bào)表創(chuàng)建、加載和運(yùn)行時(shí)的個(gè)性化自定義需求。

獲取ActiveReports最新正式版下載

為了對(duì)來(lái)自數(shù)據(jù)源的數(shù)據(jù)進(jìn)行進(jìn)一步處理，或者根據(jù)字段數(shù)據(jù)對(duì)報(bào)表元素的格式進(jìn)行特殊的設(shè)置，可以在設(shè)計(jì)區(qū)域的上方，點(diǎn)擊【腳本】選項(xiàng)卡，進(jìn)入腳本編輯窗口，編寫自定義的腳本函數(shù)。

腳本函數(shù)使用Visual Basic .NET編程語(yǔ)言，下面是一個(gè)自定義腳本函數(shù)的例子：

1. 在腳本選項(xiàng)卡中輸入正確的函數(shù)

該函數(shù)用于實(shí)現(xiàn)將數(shù)字轉(zhuǎn)換為中文大寫功能，供參考。

Function ConvertToRMB(ByVal inputString As String) As String
Dim numList As String = "零壹貳叁肆伍陸柒捌玖"
Dim rmbList As String = "分角元拾佰仟萬(wàn)拾佰仟億拾佰仟萬(wàn)"
Dim number As Double = 0
Dim tempOutString As String = ""
number = Double.Parse(inputString)


Dim tempNumberString As String = Convert.ToInt64(number * 100).ToString()
Dim tempNmberLength As Integer = tempNumberString.Length
Dim i As Integer = 0

While i < tempNmberLength
Dim oneNumber As Integer = Int32.Parse(tempNumberString.Substring(i, 1))
Dim oneNumberChar As String = numList.Substring(oneNumber, 1)
Dim oneNumberUnit As String = rmbList.Substring(tempNmberLength - i - 1, 1)
If Not (oneNumberChar = "零") Then
tempOutString += oneNumberChar + oneNumberUnit
Else
If oneNumberUnit = "億" OrElse oneNumberUnit = "萬(wàn)" OrElse oneNumberUnit = "元" OrElse oneNumberUnit = "零" Then
While tempOutString.EndsWith("零")
tempOutString = tempOutString.Substring(0, tempOutString.Length - 1)
End While
End If
If oneNumberUnit = "億" OrElse (oneNumberUnit = "萬(wàn)" AndAlso Not tempOutString.EndsWith("億")) OrElse oneNumberUnit = "元" Then
tempOutString += oneNumberUnit
Else
If Not tempOutString Is Nothing Then
Dim tempEnd As Boolean = tempOutString.EndsWith("億")
Dim zeroEnd As Boolean = tempOutString.EndsWith("零")
If tempOutString.Length > 1 Then
Dim zeroStart As Boolean = tempOutString.Substring(tempOutString.Length - 2, 2).StartsWith("零")
If Not zeroEnd AndAlso (zeroStart OrElse Not tempEnd) Then
tempOutString += oneNumberChar
End If
Else
If Not zeroEnd AndAlso Not tempEnd Then
tempOutString += oneNumberChar
End If
End If
End If

End If
End If
i += 1

End While
If Not tempOutString Is Nothing Then
While tempOutString.EndsWith("零")
tempOutString = tempOutString.Substring(0, tempOutString.Length - 1)
End While
While tempOutString.EndsWith("元")
tempOutString = tempOutString + "整"
End While
Return tempOutString
Else
Return ""
End If
End Function

2.在單元格（文本框）中引用函數(shù)

在單元格（文本框）中引用函數(shù)，設(shè)置單元格 Value 屬性（注意：凡是支持【表達(dá)式】的屬性均可調(diào)用腳本函數(shù)）。

調(diào)用形式是：Code.函數(shù)名(參數(shù)列表) ，

= Code.ConvertToRMB(Fields!Bonus.Value)

3. 預(yù)覽

本文內(nèi)容源自