クリスタルレポートの任意項目への値設定 (ID:120482)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは、じゃんぬ です。 > ・・・そのとおりです。ＶＢ側から式フィールドへ値をいれる方法も教えていただけるとありがたいのですが。 じゃあ、そうやって書いておきましょうよ (^-^*) > 本当に１から１０まで全てを聞いているようで申し訳ないのですがよろしくお願いします。 いえいえ、好きで答えているだけですからお気になさらないようにしてください。 さて、式フィールドへの値の挿入ですが、 FormulaFieldDefinition クラス を使います。 http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/crystlrf/html/crlrfformulafielddefinitionclasstopic.asp が、これだけじゃわかりませんので、ちょっと静的メソッドを作ってみました。 '/ 面倒なので Cr として省略させてください Imports Cr = CrystalDecisions.CrystalReports.Engine '/ あるクラス Public Class 〜 #Region " 式フィールドに値をセット " Public Shared Sub SetFormulaFieldsText(ByVal hReport As Cr.ReportClass, ByVal nFieldName As String, ByVal nSetText As String) Dim hObject As Cr.ReportObject = hReport.ReportDefinition.ReportObjects(nFieldName) Dim hField As Cr.FieldObject = DirectCast(hObject, Cr.FieldObject) DirectCast(hField.DataSource, Cr.FormulaFieldDefinition).Text = """" & nSetText & """" End Sub #End Region End Class ・第 1 引数に対象となる、ReportClass (ReportDocument) を指定 ・第 2 引数に設定したい式フィールドの名前を指定 ・第 3 引数にセットしたい文字列を指定 # 例外処理とか、整合性のチェックとかやってませんので、適当に改造してください。