Crystal Reportsで数値項目をカンマ区切り＋符号付きで表示するには？

モモ 2007-04-18 17:58:28 No: 136118

VB.NET2005＋Crystal Reports For Visual Studio 2005です。
Crystal Reportsで数値項目をカンマ区切り＋符号付きで
表示するにどうすればよいですか？
-------------------------------------------
（例）データ内容      表示内容
正の値「1000」  →  「+1,000」
０の値「1000」  →  「0」
負の値「-1000」 →  「-1,000」
-------------------------------------------
3つのコントロールを配置し、非表示の条件を使って
打ち分ける方法は可能ですが、それしか方法は
ありませんでしょうか。
何卒よろしくお願い致します。

daisei 2007-05-18 01:40:49 No: 136119

CrystalReportに、オブジェクト名が"txtValue"というテキストオブジェクトが貼り付けられているとして
VBの制御で出力フォーマットを変えればいいと思うのですが。

Public Sub SetReportValue(ByVal intValue As Int64)

Dim objCrystalReports As New CrystalReport
Dim CrTxt As CrystalDecisions.CrystalReports.Engine.TextObject

CrTxt = CType(objCrystalReports.Section3.ReportObjects("txtValue"), _
CrystalDecisions.CrystalReports.Engine.TextObject)

        If intValue > 0 Then    ' 正
            CrTxt.Text = String.Concat("+", String.Format("{0:#,##0}", intValue))
        ElseIf intValue < 0 Then  ' 負
            CrTxt.Text = String.Concat("-", String.Format("{0:#,##0}", intValue))
        Else            ' 0
            CrTxt.Text = intValue
        End If

End Sub

だめでしょうか。