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

名前

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

本文 じゃんぬねっとさん、回答ありがとうございます。 早速テスト用に組み込んでみたのですが、 >DirectCast(hField.DataSource, Cr.FormulaFieldDefinition).Text >= """" & nSetText & """" の部分で「指定されたキャストは有効ではありません」というエラーが発生してしまいました。 テストしたときのソースを以下に記述しておきます。 環境：WinXP、VB.net2003 Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load Dim Repo As New CrystalReport2 Dim ConnectionStr As String Dim DataAdapterStr As String Dim TblName As String Dim DataBaseSet As New DataBaseSet Dim DTSET As DataSet ConnectionStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=G:\REPORT\REPORT.mdb;" & _ "Persist Security Info=False" DataAdapterStr = "select * from " 'ここでじゃんぬねっとさんのクラスを使用しています FormulaTest.SetFormulaFieldsText(Repo, "Field1", "test") 'データアダプタ構成クラス TblName = "WORK_REPO" DataBaseSet.DataViewSet(ConnectionStr, DataAdapterStr, TblName) 'データセット DTSET = DataBaseSet.DataSetRe 'レポートに連結 Repo.SetDataSource(DTSET) 'プレビュー CrystalReportViewer1.ReportSource = Repo End Sub ※クラスのソースはそのまま使用しました。 自分ではNEWしている[CrystalReport2](クリスタルレポート)を第一引数として送っているせいなのかな位しか思いつきませんでした。 引数で送る内容に問題があるのでしたらそのあたりを教えてもらえないでしょうか。