VB2008(評価版)と付属の
Crystal Reports for Visual Basic
SQLSERVER2000

を使用しています。
お分かりになられる方がいらっしゃれば、ご教授願います。
サンプルコードを参考にして下記のようなソースを作っているのですが、
実行させると、”レポートソースが無効です。”とのメッセージが３回でて
ReportViewerには何も表示されません。
レポート自体にコマンドを記述していてそこからＤＢを見に行くようになっているのですが…。
何が原因なのでしょうか？

Dim Reprot1 As ReportDocument
Dim myConnectionInfo As ConnectionInfo

Reprot1 = New ReportDocument()
Dim reportPath As String = Application.StartupPath & "\" & "CrystalReport4.rpt"

myConnectionInfo = New ConnectionInfo
Reprot1.Load(reportPath)

myConnectionInfo.ServerName = "サーバー名"
myConnectionInfo.DatabaseName = "データベース名"
myConnectionInfo.UserID = "ユーザーＩＤ"
myConnectionInfo.Password = "パスワード"

myConnectionInfo.IntegratedSecurity = True
SetDBLogonForReport(myConnectionInfo, Reprot1)

CrystalReportViewer1.ReportSource = Reprot1

Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)

    Dim myTables As Tables = myReportDocument.Database.Tables

    For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
        Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
        myTableLogonInfo.ConnectionInfo = myConnectionInfo
        myTable.ApplyLogOnInfo(myTableLogonInfo)
    Next

End Sub

「出力後にページ番号をリセット」でページ関連の特殊フィールドはすべてリセットされるので、式フィールドを利用して、手動でカウントアップするしかないと思います。

通し番号なら、こんな感じです。
WhilePrintingRecords;
NumberVar pagecnt;
pagecnt:=pagecnt+1
この式フィールドをページヘッダーかフッターに挿入します。

また、レポートヘッダーには、上記の変数を初期化する式フィールドを挿入します。
WhilePrintingRecords;
NumberVar pagecnt:=0;

レス遅れまして申し訳ありません。
教えていただいた方法を参考に無事実装することができました。
ありがとうございました。

すみません。外国人なのでちょっと言葉がおかしいです。日本語が下手です。　：）

質問はページの最後のレコードを分かる関数がありますか、グループの最後のレコードを得るためにはOnLastRecordを使えば良いがページの最後のレコードを得るためにはどうすればよいでしょうか。なぜならページの最後のレコードを分かればページ毎に線を描くことができるためです。

宜しくお願いします。

はじめまして。

初心者プログラマです。
どうしても解決できないことがありまして皆さんに質問させていただきます。

詳細のデータが多い場合、２pageまでデータが続けるんですが
このとき、次のpageにはグループヘッダ（Ditails）の部分が表示されないです。
どうすれば次のpageにもグループヘッダのデータが表示されますか？

ヒントになるようなことでも良いので、よろしく御願いします。

「データがない場合、下線がなくなるように設定をしました」とはどのような設定ですか？

初めて投稿させていただきます。
同じグループにサブーレポートを二つ入れて使っていますが、
一つは問題が無いですが、他の事が勝手にデータの値が定例されてヘッダーと値が何回出力されてします。なぜでしょうか。(データのリンクの問題がないと思いましたが、なさそう見えました。）

宜しくお願いします。

解決しました。すみません。

残念ですが、サブレポートを動的に追加することはできませんね。

こんにちわ、クリスタルレポート11を使用します。

Access上のレコードのデータをODBC経由で表示します。
以下のようなテーブルを結合して、表示したいのです。

テーブルA
ID Data1 Data2

テーブルB
ID ID_2 Data3

テーブルA.ID : テーブルB.ID_2 = 1:N の関係にあって、ID_2はいわゆる追い番です。

テーブルA.ID  テーブルA.Data1 テーブルA.Data2 テーブルB.Data3 テーブルB.Data3 テーブルB.Data3…

と、テーブルAのひとつのレコードの後ろにテーブルBの複数レコードがくっつく感じで、
それが10レコード程度出力する必要があります。
どのようにしたら良いのでしょう

上手い方法があったら教えてください。

データ毎ならレコード番号という特殊フィールドでは駄目ですか。
あるいは、式フィールドを利用してカウントアップするとか・・

お世話になります。
先日は、クリスタルレポートの件ありがとうございました。
環境はＶＢ２００５＋Ａｃｃｅｓｓ２０００で開発しております。
その中で帳票印刷を「クリスタルレポート」を使用して行っております。
今回プリンタの「通常使うプリンタ」の設定を変更しようと、
たとえばプリンタの設定が縦設定になっているものを
「Ａ４　横」に設定しようとおもっております。
調べたところ下記のコードがサンプルであったので
使用したところ、「通常使うプリンタ」の設定はかわりませんでした。
下記のコードは検討違いでしょうか？
宜しく尾根がします。

        'Dim strPapaerSZ As String
        Dim pPaperSz As System.Drawing.Printing.PaperKind

        '用紙サイズ-'A3にする
        pPaperSz = Printing.PaperKind.A3
        Dim pkSize As System.Drawing.Printing.PaperSize

        For Each pkSize In PrintDocument1.PrinterSettings.PaperSizes
            If pkSize.Kind = pPaperSz Then
                PrintDocument1.DefaultPageSettings.PaperSize = pkSize
            End If
        Next

        '用紙を横長に設定
        PrintDocument1.DefaultPageSettings.Landscape = True

通常使うプリンタの用紙サイズの変更は、Crystal Reports に関係ない機能だと思います。レポートに対する用紙サイズの変更は、以下のような記述になりますよ。

' プリンタの指定
crReportDocument.PrintOptions.PrinterName = "test"
' 用紙サイズの設定
crReportDocument.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA3
' 印刷方向の設定
crReportDocument.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Landscape
' 給紙方法の設定
crReportDocument.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Auto
''Start the printing process.  Provide details of the print job
''using the arguments.
crReportDocument.PrintToPrinter(1, True, 1, 1)

指定した別のプリンタにはそのユーザー定義サイズの用紙に対応していないとか・・

いつもお世話になっております
現在クリスタルレポートを使って帳票を作成しております。
環境はＶＢ２００５＋Ａｃｃｅｓｓ２０００で開発しております。
その中で帳票印刷を「クリスタルレポート」を使用して行っております。
開発環境では、問題なく起動するのですが、配布先では、
下記エラーがでて起動できません。
ちなみに「CrystalReportViewer」を表示させるところで下記エラーが発生します。
EXEと同じフォルダには、
「Microsoft.ReportViewer.Common.dll」
「Microsoft.ReportViewer.ProcessingObjectModel.dll」
「Microsoft.ReportViewer.WinForms.dll」
が配置されております。
なにか情報の程よろしくおねがしいます。


Just-In-Time (JIT) デバッグを呼び出すための詳細については、
ダイアログ ボックスではなく、このメッセージの最後を参照してください。

************** 例外テキスト **************
System.IO.FileNotFoundException: ファイルまたはアセンブリ 'CrystalDecisions.Windows.Forms, Version=10.2.3600.0, Culture=neutral, PublicKeyToken=692fbea5521e1304'、またはその依存関係の 1 つが読み込めませんでした。指定されたファイルが見つかりません。
ファイル名 'CrystalDecisions.Windows.Forms, Version=10.2.3600.0, Culture=neutral, PublicKeyToken=692fbea5521e1304' です。
   場所 KoubanMA.TantoDialog.Button1_Click(Object sender, EventArgs e)
   場所 System.Windows.Forms.Control.OnClick(EventArgs e)
   場所 System.Windows.Forms.Button.OnClick(EventArgs e)
   場所 System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   場所 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   場所 System.Windows.Forms.Control.WndProc(Message& m)
   場所 System.Windows.Forms.ButtonBase.WndProc(Message& m)
   場所 System.Windows.Forms.Button.WndProc(Message& m)
   場所 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   場所 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   場所 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

警告: アセンブリ バインドのログ記録がオフにされています。
アセンブリ バインドのエラー ログを有効にするには、レジストリ値 [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD) を 1 に設定してください。
注意: アセンブリ バインドのエラー ログに関連するパフォーマンス ペナルティがあります。
この機能をオフにするには、レジストリ値 [HKLM\Software\Microsoft\Fusion!EnableLog] を削除します。

************** 読み込まれたアセンブリ **************
mscorlib
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
KoubanMA
    アセンブリ バージョン: 1.0.0.0
    Win32 バージョン: 1.0.0.0
    コードベース: file:///C:/Documents%20and%20Settings/meiko@sumi/デスクトップ/koubanMA.exe
----------------------------------------
Microsoft.VisualBasic
    アセンブリ バージョン: 8.0.0.0
    Win32 バージョン: 8.0.50727.42 (RTM.050727-4200)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Data
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_32/System.Data/2.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
System.Xml
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Configuration
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Transactions
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_32/System.Transactions/2.0.0.0__b77a5c561934e089/System.Transactions.dll
----------------------------------------
System.EnterpriseServices
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_32/System.EnterpriseServices/2.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll
----------------------------------------
Accessibility
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.42 (RTM.050727-4200)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/Accessibility/2.0.0.0__b03f5f7f11d50a3a/Accessibility.dll
----------------------------------------
System.Windows.Forms.resources
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.42 (RTM.050727-4200)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_ja_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------
mscorlib.resources
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------

************** JIT デバッグ **************
Just-In-Time (JIT) デバッグを有効にするには、このアプリケーション、
またはコンピュータ (machine.config) の構成ファイルの jitDebugging
値を system.windows.forms セクションで設定しなければなりません。
アプリケーションはまた、デバッグを有効にしてコンパイルされなければ
なりません。

例:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

JIT デバッグが有効なときは、このダイアログ ボックスで処理するよりも、
ハンドルされていない例外はすべてコンピュータに登録された
JIT デバッガに設定されなければなりません。

アプリケーションの配布の方法は？

以前は、以下のリンクから配布用の msi ファイルがダウンロードできたのに、ない。http://www.businessobjects.com/support/

以下のリンクに変更になってようです。
https://www.sdn.sap.com/irj/sdn/businessobjects-sdk-forums　

マージモジュールで配布するなら、アプリケーションと一緒にセットアップを作成できると思いますが・・なぜか、VS2005 では、msi ファイルですね。よくわかりません。サーバー側からダウンロードしてインストールする ClickOnce があるのですが、そのための兼用になっているとか・・??　

数値なら、以下のような感じで式フィールドを挿入してみてください。
//
WhilePrintingRecords;
If {数値フィールド} < 10 then
"0000" + ToText({数値フィールド}}
else
If {数値フィールド} < 100 then
"000" + ToText({数値フィールド}}
else
"00" + ToText({数値フィールド}}

文字列なら、こんな感じです。
//長さのチェックは割愛
WhilePrinitingRecords;
"0000" + {文字列の数値}

ありがとうございます。
早速試してみましたが、出来ませんでした・・・

Dim x() as string
↑
『残りのテキストは式の一部にはなりません』とエラー？が出ました。

　Dim x() as string
　↓
　StringVar x[3];
　x= Split ({ZAT_TP_ZAT.IDO_KBN_ENDOUT},",");
　x [1];

結果は、""で、値が表示されません・・・

もう少し、探って見ます。。。
限界のような気がしますが・・・

プロジェクトって、何の開発環境ですか？
「レポートは項目を変えて」って何を変更したのですか？
「エクセルに出力」って、Excel 形式にエクスポートすることですか？
「一枚目しか出ず」って、Excel に出力した結果ですか？
それとも、Crystal レポートですか？
そのデータ内容は最新データですか？
「もとのクリスタルレポートの帳票」って、「別名のクリスタルレポート」ではないということですか？
「データベースログイン」って、コード上でデータベースの接続は行っていますか？
プロジェクト内では、「もとの・・」と「別名の・・」の２つのレポートが含まれているということですか？
１つは、そのままプレビュー表示、印刷(?)、もう一つは、Excel 形式にエクスポートですか？

いつもここで、お世話になっています。今回もよろしくお願いします。
VB.net 2005 + 付属のクリスタルレポートで作成中です。

クリスタルレポートを表示させる画面の統一を行っています。
1つの画面にreportviewerとreportSourceを置き使いまわしています。

この時に、新たな帳票を作成するときに、始めにクリスタルレポートのデータの初期化を行いたいのですが、どのようにしたらよろしいのでしょうか？
過去ログのNo.3250の
'//レポートの保持されたデータ破棄
    CrystalReport.DiscardSavedData
は、VB.net 2005では、使用できなかったのですが・・・

キャッシュのクリアも考えましたが、これだと、クリスタルレポートで表示された帳票の2ページ目以降も再読み込みの必要があるのでスピードが遅くなってしまいます。


どなたかご存知でしたら教えてくださいお願いします。

あ！ありがとうございます。
これからもちょくちょく質問させていただきますね。
その時はよろしくお願いします。

Ｖｉｓｕａｌ Studio Installer で、マージモジュールだけでパッケージ作成したのですよね。U2xx が無効ですとはならないはですよ。
開発環境にインストールされたランタイム ファイルを利用してパッケージは作成してので、製品インストール時に不足しても関係ないですけど・・

ここでは、最近お世話になっています。
No.3807　　の続きなのですがよろしくお願いします。
VB.net 2005 + 付属のクリスタルレポートで作成中です。

今回、DBフィールド[文字列１]のテキストオブジェクトの書式で「複数行に出力」にチェックをいれて、その値にデータを入力しているます。
そして、表示させた場合、文字列が変なところで切られて改行されてしまいます。
これは、なぜなのでしょうか？

どなたか、教えてください。

ちなみに、フォントは、MSゴシックです。

例
==============
| そ　　　　　　　　｜
| の他　　　　　　 ｜
==============

24x7さんありがとうございます。
返信おそくなりましたが、なんとか、解決しました。
USP10.DLL ファイルのバージョンが違うのを多く試したのですが、きれいに切ってくれる文字モジュールが見つかりませんでした。当然、Windows XP SP1 環境に存在するUSP10.DLL は、始めに試しました。

いろいろ考えた末に、文字列の適当な文字数で、改行コードを入れることで、無理やり改行することにしました。
ありがとうございました。

コメントありがとうございます。

>CR7/CR8.5 なら、OCX でも使っているのでしょうか？それなら、もう存在していません。RDC もサポートしていないし・・

そうです。OCXです。
古いバージョンですが、システムの都合上このバージョンのままです。

いずれにしてもバージョンアップなら周りの機能もあわせてのことに
なりますので、相談してみないと一担当者では決められないです。

半年前のスレっぽいですが・・・


＞Dim report As New CrystalReport　←この行でエラー

'クリスタルレポートのインスタンス化
Dim report As HiraCryRepo1 = New HiraCryRepo1
'文字列の設定
Cmd.CommandText = strSqlSelect
'データテーブルの定義
Dim dadp As OleDbDataAdapter
Dim dset As DataSet = New DataSet("レポート")
Dim dtbl As DataTable
'データテーブルの設定
dadp = New OleDbDataAdapter(strSqlSelect, gDbConData)
dadp.Fill(dset, "レポート")
dtbl = dset.Tables("レポート")
'クリスタルレポートの設定
report.SetDataSource(dtbl)
CrystalReportViewer1.ReportSource = report

あとはクリスタルレポート上で、表示したいカラムを
ドラッグしてあげれば表示可能かと。

よろしくお願いします。

VB.net 2005 + 付属のクリスタルレポートで作成中です。

新しい問題です。
改ページを行った場合、ページヘッダの文字列が表示されません。

その文字列は、ページヘッダーにデータベースフィールドにあるテーブルの列を１つ置いています。そして、列の名前をデータベースからとって来るようにしています。

しかし、2ページ目に移動したときにページヘッダにあった文字列が表示されませんでした。
どのようにしたらよろしいでしょうか？

一応、ページヘッダに書かれたテキストボックスは、表示されるのですが・・・


例
1ページ目
----------------------------------------------
ページヘッダ

DBフィールド[文字列１]　　DBフィールド[文字列２]　　作成者名(テキストオブジェクト)

---------------------------------------------------
詳細
　テキスト１　　　　　　　　テキスト２　　　　　　　　　　　太郎

　テキスト３　　　　　　　　テキスト３　　　　　　　　　　　次郎
---------------------------------------------------


２ページ目
----------------------------------------------
ページヘッダ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　作成者名(テキストオブジェクト)

---------------------------------------------------
詳細
　テキスト１　　　　　　　　テキスト２　　　　　　　　　　　太郎

　テキスト３　　　　　　　　テキスト３　　　　　　　　　　　次郎
---------------------------------------------------

というような感じです。
どのようにしたら文字列を改ページしたものに表示できるのでしょうか。
どなたか教えていください。

データベースから取得するデータをページヘッダー、フッターに表示することはやめたほうがいいですよ。
ページヘッダー、フッターは、項目名などのテキストのみで、データベースのデータを表示しないことです。

＜補足＞

SQLクエリーにて加算済の項目を取得しようと試みましたが、
追加記述したSQLが保存できませんでした。

※レポートファイルを閉じて再オープンし、SQLクエリーを開くと追加記述した項目が消える。

縦方向の中央揃えはできないですね。

クリスタルレポート初心者です。
VB.net 2005 + 付属のクリスタルレポートでクリスタルレポートの１つの画面に表２つとグラフを作成しています

１つの表は、4行
２つの表は、10行のものです。

１つのクリスタルレポートに異なるカラム名のテーブルを２つ使用して詳細画面に表示させると

２つのテーブルが相互作用してか1つ目の帳票×2つ目の帳票の行だけ表示されます。

どなたか、クリスタルレポートに2つの表を並べて作成するよい解決方法を知っていませんか？

例

ページヘッダー

表１　　機械名　　機械名２　　機械名３ ・・・機械名10                表２　 故障原因１　　　故障原因２
---------------------------------------------------------------------------------------------------------
詳細

発売日    2007        2008       2007            　　　　　　　         機械名

値段 　　\2000       \50000      \3000　　　　　　　　　　　　　　　　　機械名２
　
発売台数　100　　　　　200　　　300     機械名３　発熱

メーカー　○○　　　　×× △△     機械名４
         　　・
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　機械名10
-------------------------------------------------------------------------------------------------------------

実際に作成した結果　

・40行作成されました。

表１の1行が10行作成されて、表２も4回繰り返されています。

ページヘッダー

表１　　機械名　　機械名２　　機械名３ ・・・機械名10                表２　 故障原因１　　　故障原因２
---------------------------------------------------------------------------------------------------------
詳細

発売日    2007        2008       2007   ・・・   　　　　　　　         機械名
発売日    2007        2008       2007   ・・・　　　　　　　　　　　　　機械名２
発売日    2007        2008       2007   ・・・　　　　　　　　　　　　　機械名３　発熱
発売日    2007        2008       2007   ・・・　　　　　　　　　　　　　機械名４
　　　　　　　　　　・　　　　　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　・　　　　　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　・　　　　　　　　　　　　　　　　　　　　　　　　　機械名10

値段 　　\2000       \50000      \3000　・・・　　　　　　　　　　　　　機械名　　　　　
         機械名２
　
         機械名３　発熱

         機械名４
         　　・
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　機械名10
-------------------------------------------------------------------------------------------------------------

プログラムは、このような感じです。

Dim dataset As New dataset
       
        dataset.Tables("表1").Rows.Add()
        dataset.Tables("表1").Rows(0).Item("表1") = "発売日"
        dataset.Tables("表１").Rows(0).Item("機械名") = 2007
        dataset.Tables("表１").Rows(0).Item("機械名２") = 2008
        dataset.Tables("表１").Rows(0).Item("機械名３") = 2007

        dataset.Tables("表１").Rows.Add()
        dataset.Tables("表１").Rows(1).Item("表1") = "値段"
        dataset.Tables("表１").Rows(1).Item("機械名") = 2000
        dataset.Tables("表１").Rows(1).Item("機械名2") = 50000
        dataset.Tables("表１").Rows(1).Item("機械名3") = 3000

　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　　・

       
        dataset.Tables("表2").Rows.Add()
        dataset.Tables("表2").Rows(0).Item("表2") = "機械名"
        dataset.Tables("表2").Rows(0).Item("故障原因1") = ""
        dataset.Tables("表2").Rows(0).Item("故障原因2") = ""

        dataset.Tables("表2").Rows.Add()
        dataset.Tables("表2").Rows(1).Item("表2") = "機械名2"
        dataset.Tables("表2").Rows(1).Item("故障原因1") = ""
        dataset.Tables("表2").Rows(1).Item("故障原因2") = ""

        dataset.Tables("表2").Rows.Add()
        dataset.Tables("表2").Rows(2).Item("表2") = "機械名3"
        dataset.Tables("表2").Rows(2).Item("故障原因1") = "発熱"
        dataset.Tables("表2").Rows(2).Item("故障原因2") = ""
　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　・

        CrystalReportSource1.Report.FileName = "クリスタルレポート.fpt"
        CrystalReportSource1.ReportDocument.SetDataSource(dataset)

データエキスパートで、
ADO.NET データセット
（dataset.xsd で作成したまったく違った種類のテーブルを２つを使用）
この２つを選択した場合
========================================================================================================================

ビジュアルリンク　
現在のリンク設定には、複数の開始点があります。複数の開始点のサポートは、されていません
========================================================================================================================

とでるのですが、テーブルを複数セットできると書いてある本があるのですが、これのせいなのでしょうか？
どなたか分かる方がおられたら教えてください。

そうだと思いますよ。

はじめまして、クリスタルレポート初心者です。

VB.NET2005 + .NET付属のクリスタルレポートで開発しています。

折れ線グラフと棒グラフを組み合わせたグラフを作成しようとしているですができません。
折れ線か棒グラフかしか作成できません。
どのようにすればよろしいか教えてください。

製品版では、2重軸を選択している場合、折れ線と棒グラフはできますが・・チャートオプションにメニューがありますが・・.NET付属はどうでしょう？

見てみましたが、2重軸を選択し、チャートオプションのメニューを見てみましたが、「テンプレート、一般、タイトル、グリッド」のみしか表示されません。
やはり、.NET付属版では、できないのでしょうか。
後、.NET付属版のせいか、凡例も文字列も修正することができないのですが、他にやりかたなどがありましたら、教えてください。

.NET バンドル版では折れ線と棒グラフを混在させることはできませんね。残念。

クロスタブを使用するのを諦めて、質問をグラフのみに変えさせてもらいます。

クリスタルレポートで、以下のグラフを作成しようとしています。
要素数｜
　　　　 ｜
　　　　 ｜　　□
　　　　 ｜　　□　　　　　　　　　
　　　　 ｜　　■　　□　　　　　　□　　　　
　　　　 ｜　　■　　■　　　　　　■　　　　■
　　　　 ｜　　■　　■　　　　　　■　　　　■
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

　　　　　　　要素１　要素２　　要素１　　要素２

               5月　　　　　　　　　6月
■　行１
□　行２

参照するデータは、以下のようになっています。
　　　｜　　　　　年月　  　｜　　年月              |
       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
　　　｜要素１ 　 要素２　 ｜要素１  　 要素２   |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
行名1 | 　数値　    数値   |   数値   　 数値     ｜     
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
行名2 |  　数値　   数値   |   数値  　  数値 　  ｜

このグラフは、
同じ月の要素１と要素２を比較するため、積み上げるものは、行名を使用し、横軸には、月日とその月日の要素１と要素２の積み上げ棒グラフを作成しています。
ですが、積み上げ棒チャートでは、要素１か要素２のどちらかしか指定できませんでした。
どなたか、月日とその月日の要素１と要素２の積み上げ棒グラフの作成の方法を教えてください。

製品付属のXtreme.mdbファイルで作成してみました。
年月を以下の式で作成します。
//年月
WhileReadingRecords;
Year({Orders.Order Date})&Month({Orders.Order Date})

チャートエキスパート画面から
変更時
@年月
Orders.Employee ID

表示する値
Orders.Order Amountの合計
Orders.Order ID の件数

チャートオプションのレイアウトから2重軸をチェックすることでX軸には２つの要素が表示できるはずです。ラベルは、右と左に分けて表示することになります。

お試し版で作成したQRコードの画像を貼り付けることはできたけど・・
プリンタドライバ経由で直接QRコードを印刷することは無理だと思います。

連続投稿で恐縮です。どなたかご教授ください。
納品書に会社のロゴを印刷させたいのですがうまくいきません。
動作イメージは、ユーザーが画像を参照後、決定したものを、テキストとして
データベースに保存し、その情報をもとに印刷させたいのです。
デザイナを使用した場合は、オブジェクトが指定できたので以下のように実現
できたのですが。

Set obj = Me.SubRpt_ピクチャ1
Set obj.FormattedPicture = LoadPicture("c:\sample.jpg"))

RDC（CRAXDRT）を使用しＶＢで行いたいのです。過去ログを参照してみたのですが、
自分の知識では．．．
具体的にサンプルコードを記述してもらうと非常に助かるのですが、
質問ばかりで大変申し訳ありません。

ＶＢ６（ＳＰ５）、ＣＲ８

Crystal Reports XI では、以下のコード記述で任意に選択した画像をレポートにお表示させることはできます。
但し、レポートには画像を表示させるオブジェクトが挿入されていることが必要です。

Public WithEvents SecD As CRAXDRT.Section

Private Sub SecD_Format(ByVal pFormattingInfo As Object)

'任意に bmp ファイルを指定する

Report.Sections.Item("D").ReportObjects.Item(1).SetOleLocation ("C:\WINDOWS\フィッシング.bmp")

End End

既存のコードに上記のフォーマットイベントのルーチンを追加します。
上記コードでは、詳細セクションに画像を表示するオブジェクトを挿入しているので、「Report.Sections.Item("D")」と記述しています。
テストでは、１つのオブジェクトしか挿入していないので、「ReportObjects.Item(1)」と記述しています。

通常、複数オブジェクトが存在するのでインデックス値を+1で該当するオブジェクトを取得してから上記コードを実行するようにします。

質問内容からレポートには画像を表示するオブジェクトが存在しているようなので、画像を表示する場所（セクションとインデックス値）を取得できれば、可能じゃないでしょうか。

バージョン８でもRDCのコード自体は同じはずなのですが、フォーマットイベントが使えるかどうかじゃないでしょうか。

VS2005　Oracle
クリスタルレポートでグラフを出力するとき、データがない場合、
データに1単位分表示されます。

データがない場合でも、1単位表示されるものなのでしょうか？
わかる方教えていただけないでしょうか？

これだけじゃ、わかりませんね。データがなければ、表示されないはずですよ。

返信ありがとうございます。

データがない場合というのは、
取得したデータが0なのに、棒グラフでは表示されているので、
0の場合表示されなくなるようにはどうすればいいのかということです。

私の説明不足で申し訳ありません。

それは、おめでとさんです。

表で外枠が太くなっている帳票で最終行の線が太く出来ません
アンダーレイを使えばできるっぽい書込みは見かけたんですがやり方がさっぱりです

ページフッターの相対位置をチェックすれば出てくれそうな気がしたんですが反応無いしorz

最終行の線とはどこのことですか？

表の外枠なので最終行の下線です

「下線」とは、フィールドの境界線のことですか。その場合、太くはできないでしょう。

すみません、書き方が良くありませんでした。

ページヘッダーの上部に太い線
ページヘッダーに表の見出し
ページヘッダーの下部に細い線を2本
詳細に表のデータ
詳細の下部に細い線

という感じで現在レイアウトを作成しました
この状態で出力を行うと詳細の最終明細行の下線が細いのでそこだけ太くしたいのです

分かりにくくてすみませんorz

それはよかった。

もう少し、どんな方法でアプリケーションを書いているか説明しないと現象だけ説明されてもわかりませんよ。

失礼しました。
条件が不足していました。フラグ制御を追加します。
グループフッターが表示されたページであることが判断できるようにします。
例えば、グループヘッダーとグループフッターに式フィールドを挿入します。
//グループヘッダー
WhilePrinitingRecords;
BooleanVar GF_Supress:=False 

//グループフッター
WhilePrinitingRecords;
BooleanVar GF_Supress:=True 

そして、ページフッターには、以下の式に置き換えます。

WhilePrintingRecords;
BooleanVar GF_Supress;
GF_Supress =True AND {グループで利用している項目}<>Next{グループで利用している項目}

他にもグループフッターが表示されているページであることが判別できるものがあれば、それを使ってみてください。

画面ASPで内部処理がC#のWEBシステムを作っています。
環境：WINDOWS XP SP2、フレームワーク1.1  VisualStudio2003  CrystalReport Ver9.9800(VisualStudio2003に入っていたもの)
     IE6.0  システムに必要なＤＬＬは参照しています。

目的：クリスタルレポートをPDFに変換してファイルとして出力したい。
デバック時に「st = crReportDocument.FormatEngine.ExportToStream(req);」
をステップ実行した時に下記エラーが発生します
「
ファイル C:\DOCUME~1\【コンピュータ名】\ASPNET\LOCALS~1\Temp\temp_54155b28-2d28-4cd3-87ce-e447ee438d03.rpt のエラー : この操作はサポートされていません。
説明 : 現在の Web 要求を実行中に、ハンドルされていない例外が発生しました。エラーに関する詳細および例外の発生場所については、スタック トレースを参照してください。

（スタックトレース）
NotSupportedException: ファイル C:\DOCUME~1\【コンピュータ名】\ASPNET\LOCALS~1\Temp\temp_54155b28-2d28-4cd3-87ce-e447ee438d03.rpt のエラー :
この操作はサポートされていません。]
   .A(Int16 
, Int32 )
   .@(Int16 )
   CrystalDecisions.CrystalReports.Engine.FormatEngine.Export(ExportRequestContext reqContext)
   CrystalDecisions.CrystalReports.Engine.FormatEngine.Export()
   CrystalDecisions.CrystalReports.Engine.ReportDocument.Export()
   【システム名】.src.NE3103PR.NE3103PRV.Page_Load(Object sender, EventArgs e) in c:\【システム名】\src\ne3103pr\ne3103prv.aspx.cs:147
   System.Web.UI.Control.OnLoad(EventArgs e)
   System.Web.UI.Control.LoadRecursive()
   System.Web.UI.Page.ProcessRequestMain()

」

原因がわからず作業が止まっています。解決策をご存知の方教えて頂けませんでしょうか。お願いします。

 //////////////////////
 変数:crReportDocument
 型:ReportDocument 
 //////////////////////
 //下記、crReportDocumentにデータセットした後の動きです。
 
 
 ExportOptions opt = new ExportOptions();
 
 opt.ExportFormatType = ExportFormatType.PortableDocFormat;
 opt.FormatOptions = new PdfRtfWordFormatOptions();
 
 ExportRequestContext req = new ExportRequestContext();
 req.ExportInfo = opt;
 
 System.IO.Stream st;
 ↓↓↓↓↓↓↓↓↓↓ここで落ちる↓↓↓↓↓↓↓↓↓↓↓
 st = crReportDocument.FormatEngine.ExportToStream(req);
 
 //以下動作未確認 
 byte[] b = new byte [st.Length];
 st.Read(b, 0, (int)st.Length);

 System.IO.FileStream fs = new System.IO.FileStream("c:\aaa.pdf",System.IO.FileMode.CreateNew);
 fs.Write(b,0,b.Length);

次のような式を使って解決しました。

if IsNull ({PRNDATA.pdt_data}) then
{#RTotal0}  - {@numNetto}
else
{#RTotal0}

（{@numNetto　は　{PRNDATA.pdt_data}　に含まれている値を別の式で加工したものです。）
案外単純でしたが、クリスタルレポートは初めてで何が何やらわからず失礼しました。