いつもお世話になっています。

クリスタルレポートでＭＳＤＥをつかってデータを出力していますが、データセットに置き換えたいと考えています。
ＭＳＤＥからデータセットへの置き換えは可能でしょうか？
（データセットのテーブル名、フィールド名はＭＳＤＥと同じにしようと考えています）

環境：VisualStudio .NET 2003

ご教授宜しくお願い致します

この度はお世話になります。

VisualStudio2005、ＶＢで、VisualStudioについている
クリスタルレポートを使用しています。
作成アプリはWinアプリです。

DataSetを使用してクリスタルレポートの出力を行っているのですが、
そのDataSetのとあるフィールドの値によって線の表示／非表示を切り替えたいのですが、
どのようにしたらよろしいでしょうか？

Accessのレポートなどでは、詳細を出力する際のイベントなどがあったと思うのですが、
今回作成しているrptファイルのソース記述部分では、
それらしきイベントを見つける事が出来ませんでした。

何卒ご教授よろしくお願い致します。

なるほどね。できると思います。
テキストオブジェクトの境界線なら条件式が使えると思っていました。
レポートの見栄えというか印刷した結果が期待したものであれば、いいと思います。

24x7さん、クロさん、ありがとうございます。

投稿した後テキストオブジェクトの境界線を設定する方法を思いついたのですが、
線の太さを設定するところがなく、シングルの場合、線オブジェクトのデフォルトの太さより太くなるので困ってました。

クロさんにアドバイス頂いた方法でやってみようと思います。

有難うございました。

古いバージョンでは、バイト数を取得する関数が存在していましたが、V7(?) から文字数に変わってしまいました。
昔、メーカーのサイトにバイト数を取得することができるUFL関数があったけど、今は、見つかりませんでした。

式フィールドを使って、1文字ずつ文字コードを取得して、半角、全角を確認するしかないと思います。
あとは、UFL関数を自分で作成する。UFL関数は、式フィールドの中で利用する関数を自分で作成したものです。

返信遅くなりました。
回答ありがとうございます。

式フィールドにて１文字づつコードを取得するようにしました。
参考になるかわかりませんが、コードをのせておきます。

dim i as number
dim j as number
for i =1 to len(文字列) step 1
if asc(mid(文字列,i,1))<0 or asc(mid(文字列,i,1))>255 then
 j=j+2
else
 j=j+1
end if
next i
formula=j

はじめまして。

現在、以下のような構成で開発をしています


グループ１（会社コード）・・・・・・・・・・・・・・・・・タイトルのみ
　　　商品コード
　　　商品名
　　　価格
　　　　・
　　　　・
　　　　・

グループ２（部門コード）
グループ３（商品コード）
詳細・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・明細
　　　商品コード
　　　商品名
　　　価格
　　　　・
　　　　・
　　　　・

グループ３
グループ２・・・・・・・・・・・・・・・・・・・・・・・・・・小計
　　　商品コード
　　　商品名
　　　価格
　　　　・
　　　　・
　　　　・

グループ１・・・・・・・・・・・・・・・・・・・・・・・・・・総合計
　　　商品コード
　　　商品名
　　　価格
　　　　・
　　　　・
　　　　・

縦から横に印刷で設定しています。

グループ１の設定で「毎ページごと印刷する」にチェックし
グループ２のフッタで「印刷後に改ページ」にチェックをしています。
通常時は、問題ないのですが、
最終ページに総合計のみだった場合、
グループ１のヘッダが印刷されません。
どのようにすれば、総合計のみでも印刷されますでしょうか。

よろしくお願いいたします。


　

たびたびお世話になります。。。
24x7様昨日はお世話になりました。。。

昨日、グループ化で、解決した！かと思ったのですが・・・
再び別の問題が発生してしまいました・・・

問題というのは、ここでも何度か質問にでている
抽出後のデータセット、またはデータテーブルを
印字するというものです。
ただし、条件がちょっと違います・・・

現在書いている方法では
このようなソースを記述しています。
************************************************************
Dim dt As New DataTable
Dim sqlString As String
Dim Data_Set = New DataSet
Dim oCommand As New OleDbCommand
Dim rp As New CrystalReport1
Dim i As Integer

oCommand = oConn.CreateCommand()
sqlString = "SELECT * FROM 詳細クエリ WHERE 部署='東京Ａ'"

oCommand.CommandText = sqlString
Dim Ole_Adp_Sizai1 = New OleDbDataAdapter(oCommand)
Ole_Adp_Sizai1.Fill(dt)
dt.TableName = "tbl1"
Data_Set.Tables.Add(dt)

'rp.SetDataSource(Data_Set)  <--この記述でも問題ないはず（？）
rp.SetDataSource(dt)

************************************************************

ここで、ビューとしてアクセスのクエリを
もう1つ追加しました。

その場合、フィールドエクスプローラ上の
データベースフィールドは２つのクエリが表示されている状態です。

(1)詳細クエリ(詳細を表示するよう
------------------------------------
"SELECT * FROM テーブル"
------------------------------------

(2)カウントクエリ(カウント用）
------------------------------------
SELECT 部署,フラグ,count(フラグ) AS カウント
FROM テーブル
GROUP BY 部署,フラグ
HAVING  (フラグ)=True
------------------------------------

この状態で、実行すると、全てのデータが表示されてしまいます。
デザイン時には
「詳細クエリ」を使ってデザインしています。

データベースを追加する際には OLE DB(ADO)を選択して
mdbファイルを選択しています。

フィールドエクスプローラ上に１つのテーブル（クエリ・ビュー）がある場合には
上記のソースで、抽出したデータを表示できたのですが、
複数のテーブル（クエリ・ビュー）がある場合には、どのように
行えばよろしいのでしょうか・・・？

複数テーブルの場合過去ログに無く悩んでおります・・・

お助け願いますｍ（＿＿）ｍ

.NET のコードはよくわかりませんが、
一般的にレポートで複数テーブルを利用する場合、そのテーブルはリンクすると理解しています。
旧バージョンから複数テーブルをリンクしないでデザインすると警告メッセージが表示されていました。また、ランタイムからそれぞれのデータベース接続情報は引き渡すことができないと思います。
そのため、メインとサブレポートにそれぞれ分けて処理することになると思います。

以前、大変お世話になりました。

またしてもお世話になります・・・

クリスタルレポートで

以下の様なレポートを作成しようとしております。

レポート１枚目
======================================================================
部署：　東京Ａ　　　　　カウント：２

項目Ａ　項目Ｂ　　　　　　　フラグ
______________________________________
1234　　1234                True
1235　　1235                False
1236　　1237                True

レポート２枚目
======================================================================
部署：　東京Ｂ　        カウント：１

項目Ａ　項目Ｂ　　　　　　　フラグ
______________________________________
2234　　2234                False
2235　　2235                False
2236　　2237                True

このデータに対応するのは
-----------------------------------------
部署　 項目Ａ　項目Ｂ　フラグ
-----------------------------------------
東京Ａ 1234　　1234                True
東京Ａ 1235　　1235                False
東京Ａ 1236　　1237                True
東京Ｂ 2234　　2234                False
東京Ｂ 2235　　2235                False
東京Ｂ 2236　　2237                True
-----------------------------------------

なのですが

部署のグループ化や改ページはできたのですが
「フラグの集計方法」がページヘッダにあるため、
集計ができず、困っております・・・

WhilePrintingRecordsや
積算合計を利用すればできるというところまでは
解ったのですが、利用方法がわからず苦戦しております。

評価の式に　
if {フラグ} = true then
true
else
false

などと書いてもダメです。。。

グループヘッダや、ページフッターに貼り付ければ

うまいこと集計してくれるようなのですが・・・

お助け願えますでしょうか・・・

>>グループヘッダや、ページフッターに貼り付ければ

一部間違えました。

×　グループヘッダや、ページフッターに貼り付ければ
○　グループフッターや、ページフッターに貼り付ければ

よろしくお願いいたします。

うーん。そうでしたか・・・・
できれば、サブレポートは使わいたくなかったため
積算合計を使ってみたかったのですがダメですか＾＾；

いちおう、妥協案として解決した方法を
載せておきます。

先ほどのテーブルに

部署とフラグでグループ化するクエリを吐き
ＨＡＶＩＮＧでＴｒｕｅのもののみ抽出し
カウントでＴｒｕｅの個数を集計します。

SELECT 部署,フラグ,count(フラグ) AS カウント
FROM テーブル
GROUP BY 部署,フラグ
HAVING  (フラグ)=True

このクエリを追加しカウントのフィールドをヘッダに貼り付けます。

この時にデータベースエキスパートが表示される（？）と思うので

リンクを部署のみにします。
矢印の方向が逆向きにならないように注意します。
（逆の場合は矢印を右クリックし逆方法にリンクさせます。
逆向きになっていると、カウントが1以上のものしか表示されなくなってしまいます。）

（右クリックでデータベース＞ビジュアルリンクエキスパートでも表示可能）

このままでは　カウントが０の場合に何も表示されないので、
テキストフィールドを追加し、０と表示
カウントがNullの場合に表示、1以上の場合非表示とします。

これで一応要件は満たせました・・・

他にいい方法がありそうですが・・・

というわけで、よろしくお願いいたします。

初めて投稿させていただきます。

開発環境
　・VS2003CrystalReport　　
　・OS：WindowsXP
　・ASP.NET＋VB.NET2003
　・CR XI 

今、テキストオブジェクトに表示する文字列の、
ある特定部分の文字色をプログラム中から変更したいと思っています。
※テキストオブジェクトに表示する文字列全部の色変更は可能でした。
--
abcedfghjiklmn
  ~~~~~~~
　　↑
 文字色を変更したい
--

レポートファイルに配置したテキストオブジェクトの文字列を直接選択し、
テキストの書式設定を行えば、選択した文字列のみの色の変更は可能です。

ということは、プログラム中からも可能なのではと思っています。

以上、何とぞご教授をお願いいたします。

初めて投稿させていただきます。

開発環境
　・VS2005付属のCrystalReport　　
　・OSはWindowsVista
　・ASP.NET＋VB.NET2005

使用しているプリンターはテレフォンカードサイズのカードを印刷するプリンターです。
レポートを作成する際、CrystalReport→デザイン→プリンタの設定　でカードサイズになるよう設定し、
レポートプレビュー画面でカードサイズに作成されていることを確認しています。
※サーバにはカード印刷用のプリンタとは接続していません(ドライバもインストールしていない)。

処理内容としては
　1）クライアントからHTTPで接続し、レポート作成指示を行い、内部でPDFを出力
　2）作成したPDFをポップアップで画面に表示（例：http://***SVR/PDF/test.pdf）
　3）ポップアップ画面からカードに印刷
　
デバッグでは、このPDFをポップアップ表示すると、設定したページサイズで表示されます。
しかし、クライアントからPDFの作成指示を行うとA4サイズで作成されて表示されます。
※クライアントにはカード印刷用のプリンタを「通常使うプリンタ」に設定しています。

クライアントからもカード印刷用のプリンタのサイズまたは、CrystalReport→デザイン→プリンタの設定　で
設定したカードサイズで表示されるよう、正しくPDFを作成することはできないのでしょうか？

知識不足ですいません。
ご存知の方、よろしくおねがいいたします。

24x7様 ご回答いただきまして、有難う御座いました。
返信が遅くなり申し訳ありませんでした。

質問１については、ご教授頂きました式の方法で、思い通りの内容にすることが出来ました。

質問２なのですが、私の書き方がいけなかったようで申し訳ありません。

> グループの変更から改ページ毎にグループヘッダーを出力するように設定してみてください。
> 不要なグループヘッダーも表示されると思いますが、そのときは、非表示できる条件を考えます。

とご回答頂きましたが、「A支店 取引先A 事務所A ・・・」は『詳細』の場所にある為、
グループヘッダーでは出来ませんでした。

グループ ヘッダー #1 ・・・ 非表示
グループ ヘッダー #2 ・・・ 非表示

詳細  ↓
     A支店 取引先A 事務所A 9,999 999,999,999,999
                   事務所B 9,999 999,999,999,999
                   事務所C 9,999 999,999,999,999
詳細  ↑
グループ フッター #2  ↓
   ----------------------------------------------
                     小 計 9,999 999,999,999,999 
グループ フッター #2  ↑

◆

詳細  ↓                                     →  上記の出力後に余白が無く、改ページが行われた場合は以下のように出力したい
           取引先B 事務所D 9,999 999,999,999,999            A支店  取引先B 事務所D 9,999 999,999,999,999
                   事務所E 9,999 999,999,999,999                           事務所E 9,999 999,999,999,999
詳細  ↑
グループ フッター #2  ↓
   ----------------------------------------------
                     小 計 9,999 999,999,999,999
グループ フッター #2  ↑
グループ フッター #1  ↓
---------------------------------------------------------
                  支店合計 9,999 999,999,999,999
グループ フッター #1  ↑

ちなみに、「A支店」出力での重複データの非表示は、以下の式を用いております。

  If PreviousIsNull ({帳票.支店名}) = True Then
    {帳票.支店名}
  Else
    If {帳票.支店名} = Previous({帳票.支店名}) Then
      ""
    Else
      {帳票.支店名}


ご教授をお願いいたします。

早速有難う御座います。

お蔭様で
レポートヘッダ・フッタにつきまして、うまく非表示にすることが出来ました。
アンダーレイの件ですが、
グループセクションの改ページは入れていない設定にしてみましたが
残念ながらうまくアンダーレイされませんでした。

「セクションエキスパート」の設定は、
レポートヘッダ：非表示-ドリルダウン不可、まとめて表示
ページヘッダ：まとめて表示（強制）
グループヘッダ：なし
詳細：なし
グループフッタ：続くセクションをアンダーレイ
ページフッタ：ページ下部へ出力(強制)、出力後に改ページ(強制)、まとめて表示(強制)
レポートフッタ：非表示-ドリルダウン不可
にチェックを入れています。(強制)の個所は、固定でチェックされており外すことができない項目です。
式設定は、どこにも入れていません。

もはや、一からプロジェクトを作り直したほうが早いかな、とも思っています。
他にも何か確認点がありましたら、ぜひご教示下さい。

1. グループフッターの下にもう1つグループフッターを挿入します。
2. グループフッターb は、「出力後に改ページ」をチェックします。
3. ページフッターに挿入したものをすべてグループフッターb に移動します。
ページフッターは利用しないことになります。
レポートのデザイン的に期待した結果になるかわかりませんが・・

ご教示有難う御座います。
早速試してみましたところ
1aと1bとでアンダーレイはうまく動作してくれましたが、
グループ単位でのフッタ印字になってしまったため、
各ページに印刷したい固定のフッタが
印字されないページが出来てしまいました。

データソースに手を加えて、
もう１つページ単位のグループをつくって実現するなど必要な気がしてきました。

CrystalReportは、なかなか致し痒しです。。

OS：Windows XP
DB：Oracle 10ｇ
言語：VB6.0

CrystalReports.NET(2003)にてシステムを作成していますが、どうしてもテキストオブジェクトのフォントサイズをＶＢコードから変更させることができません。どうかご教授お願いいたします。

各セクションに式フィールドを追加して以下のような内容の式で
集計できると思います。ちょっと泥臭いですが^^;

ヘッダ
WhilePrintingRecords;
NumberVar sum_money;
sum_money := 0;

ディティール
WhilePrintingRecords;
NumberVar sum_money;
sum_money := sum_money + 100;

フッタ
WhilePrintingRecords;
NumberVar sum_money;
sum_money;

ヘッダの式で零クリア、ディティールで集計、フッタは出力(表示)みたいな。
間違ってたらすみません。

VB.NET2003及び付属しているCrystalReport+Accessです。

二つのコンボボックス(cmbStart・cmbEnd)があり、
パラメータ a,bを設定してあります。
選択エキスパートには「{帳票作成.DVDナンバー} in {?a} to {?b}」
が設定してあります。
(?aのcmbStart.texrと?bのcmbEnd.text大小比較は関数の呼び出し前に
cmbStart.text<cmbEnd.textになるように入れ替えをしてあります。)



それで、プレビュー画面をロードする関数ですが、
    Private Sub Report_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rp As New RecordReport_2      '対象レポート名
        Dim fm As frmvideoPrint              '呼び出し元フォーム名

        Dim pf As New CrystalDecisions.Shared.ParameterField            'Parameterfield
        Dim pfs As New CrystalDecisions.Shared.ParameterFields          'Parameterfields
        Dim pv As New CrystalDecisions.Shared.ParameterDiscreteValue    'パラメータの値
        Dim pf2 As New CrystalDecisions.Shared.ParameterField            'Parameterfield
        Dim pfs2 As New CrystalDecisions.Shared.ParameterFields          'Parameterfields
        Dim pv2 As New CrystalDecisions.Shared.ParameterDiscreteValue    'パラメータの値

        '呼び出し元をアクティブにする
        fm = MainMenu.ActiveForm

        pf.ParameterFieldName = "a" 'パラメータ名
        pv.Value = fm.cmbStart.Text

        pf.CurrentValues.Add(pv)
        pfs.Add(pf)
        rptViewer.ParameterFieldInfo = pfs

        pf2.ParameterFieldName = "b" 'パラメータ名
        pv2.Value = fm.cmbEnd.Text

        pf2.CurrentValues.Add(pv2)
        pfs2.Add(pf2)
        rptViewer.ParameterFieldInfo = pfs2
        'プレビュー
        rptViewer.ReportSource = rp
        rptViewer.Zoom(1)
    End Sub

において、?aは読み込んでくれますが、?bはパラメータを入力する画面が表示されます。
コンボボックスに選択された値が、入力画面を通さずに渡すには、上記コードのどこを修正したらよろしいでしょうか？

よろしくお願いいたします。

参考になるか分かりませんが、私の場合複数パラメータ渡しに以下のロジックを使ってます。複数パラメータでも問題なく渡せています。

        Dim repoDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim paramFieldDefinitiongs As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions
        Dim paramFieldDefinitiong As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition
        Dim paravalue As CrystalDecisions.Shared.ParameterValues
        Dim paraDuscrete As CrystalDecisions.Shared.ParameterDiscreteValue
        paramFieldDefinitiongs = testReport.DataDefinition.ParameterFields

        '** レポートファイルに作成したパラメータフィールドの名前を指定
        paramFieldDefinitiong = paramFieldDefinitiongs.Item("parm1")
        paravalue = paramFieldDefinitiong.CurrentValues
        paraDuscrete = New CrystalDecisions.Shared.ParameterDiscreteValue
        ''** パラメータフィイールドに渡す値をセット
        paraDuscrete.Value = "a"
        paravalue.Add(paraDuscrete)
        paramFieldDefinitiong.ApplyCurrentValues(paravalue)

        '----------
        '** レポートファイルに作成したパラメータフィールドの名前を指定
        paramFieldDefinitiong = paramFieldDefinitiongs.Item("parm2")
        paravalue = paramFieldDefinitiong.CurrentValues
        ''** パラメータフィイールドに渡す値をセット       
        paraDuscrete.Value = "b"
        paravalue.Add(paraDuscrete)
        paramFieldDefinitiong.ApplyCurrentValues(paravalue)

- 環境 -
  Windows XP 
  asp
  Crystarl Reports XI
  SQLServer

- 環境 -
  Windows XP 
  asp
  Crystarl Reports XI
  SQLServer

DBに画像のフルパスを格納し、ページごとに異なった画像を印字する帳票を
クリスタルレポートを使用して作成し、VBのアプリをから帳票印刷を行いたいのですが。
クリスタルレポートで作成した帳票を、印刷プレビューで確認すると、それぞれのレコードに格納した画像のフルパスで取得してきた
画像が表示され印字されるのですが、同じ帳票ををVB側から印字させるとテーブルから取得してきたパスの画像が正常に印字されません。
VBから印字を行う際になにか、必要なことがあるのでしょうか？

- クリスタルレポートの設定 -
・OLEオブジェクト(Picture1)を配置し、グラフィックの書式のピクチャ(タブ名)にある、保存場所:　の設定を画像のフルパスが格納してあるテーブルのフィールドを指定してあります。

- 環境 -
  Windows XP
  Visual Basic .NET 2003
  Crystarl Reports XI
  Oracle9i

VB側でイメージを表示している場合、そのイメージファイルをクリスタルレポート側で
参照する場合に、参照できずに印字ができないことがわかりました。

初めて投稿します。
VB6.0 SQLSERVER2005 クリレポ�]�Tを使って帳票を印刷することに
なり、いろんなサイトを見て印刷を試みていますが
「インデックスが有効範囲にありません」というメッセージが表示されます。
サイトを見る限りでは、他の方はこれで解決されているようですが、書き方が
おかしいのでしょうか？申し訳ありませんがご教授願います。

Dim CRApp As New CRAXDRT.Application
Dim report As CRAXDDRT.report
Dim ConnectProperty As CRAXDDRT.ConnectionProperty

Set report = CRApp.OpenReport(strReportNamewk, 1)
report.DiscardSavedData

Dim i As Integer
For i = 1 To report.Database.Tables.Count
'ODBCの場合
    Set ConnectProperty = report.Database.Tables.Item(i).ConnectionProperties.Item("DSN")
    ConnectProperty.Value = "123456"

↓この部分でエラーメッセージが表示されます
Set ConnectProperty = report.Database.Tables.Item(1).ConnectionProperties.Item("User Id")
↑メッセージ（インデックスが有効範囲にありません）


    ConnectProperty.Value = "sa"
    Set ConnectProperty = report.Database.Tables.Item(1).ConnectionProperties.Item("Pwd")
    ConnectProperty.Value = "sa"

Next i

'レポート表示
    CrystalActiveXReportViewer.ReportSource = report
    Call Sleep(1000)
    report.RecordSelectionFormula = strSelectFormula
    CrystalActiveXReportViewer.ViewReport
   
    Set CRApp = Nothing
    Set report = Nothing
End Function

念のためにデータベースの接続に必要な接続プロパティが正しいか確認してください。

For Each ConnectProperty In Report1.Database.Tables(1).ConnectionProperties.Count

    Debug.Print ConnectProperty.Name
   
Next

エラーの箇所は違いますが、パスワード("Password") が "Pwd" になっているところがあります。

データベースの接続方法は、レポートのデザイン時と同じですよね。
ODBC と書いてあるけど、レポートは異なる接続方法を利用しているとか？？

また、コード間違えた。

Dim ConnectProperty As CRAXDRT.ConnectionProperty
For Each ConnectProperty In report.Database.Tables(1).ConnectionProperties
    Debug.Print ConnectProperty.Name   
Next

「信頼関係接続」は、使ったことがないのでよくわかりませんが、以下のサイトにはサンプル記述があります。

http://technicalsupport.businessobjects.com/KanisaSupportSite/search.do?cmd=displayKC&docType=kc&externalId=c2012061&sliceId=&dialogID=7200031&stateId=1 0 7198202

http://technicalsupport.businessobjects.com/KanisaSupportSite/search.do?cmd=displayKC&docType=kc&externalId=c2012882&sliceId=&dialogID=7200031&stateId=1 0 7198202


report.Database.Tables.Item(1).ConnectionProperties.item("Trusted_Connection")=True

report.Database.Tables.Item(1).ConnectionProperties.item("User ID") =""

こんなような記述になるのではないですか。

はじめまして。

VB.NET、SQLServer2005でクリスタルレポートにて帳票作成を行おうとしています。Windowsアプリケーションです。
画面にはDataGridViewが２つ配置されており、SQLからの結果を受け取って表示させています。
そこにボタンを配置しており、押すとクリスタルレポートのプレビュー画面に遷移するといった仕様にしたいと思っております。

SQL文ではたくさんのテーブルを連結したり、DataGridViewの中で計算をさせたりとしているので、DataGridViewを見たままクリスタルレポートに表示させたいのですが可能でしょうか？

データテーブルには検索結果しかありませんので、もしデータテーブルを持ってきたとしても計算結果が取得できないという状態になってしまいます。

それより以前に別画面である親画面のデータテーブルをクリスタルレポートの方で使用するにはどうしたらいいのかもわかりませんでした。

今の状態では親画面でSQLの結果はDataTableで取得しています。
取得方法は共通関数を使用していますので、パラメータ（SQL文）をそれに渡すとDataTable型で結果が返ってきます。
それをそのまま活かして表示させて計算部分は後でやるのがいいのか、DataGridViewに表示されているそのままを持ってくるのがいいのかそれも迷っています。


クリスタルレポート側↓（こんな感じでしょうか？それもよくわかりませんが・・・）

Public dataTable As DaｔaTable

フォームロード処理()

Dim crReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument

dataTable = [ここに親画面から持ってきたデータテーブルを取得したいです]

crReportDocument.SetDataSource(dataTable)
CrystalReportViewer1.ReportSource = crReportDocument

Me.Show()

親画面↓（SQL実行のところだけ抜粋しました。）

↓ここでSQLを実行し結果をBindDatatableで取得しています。
BindDatatable = _database.SelectCommand(SQL.ToString)BindingSource.DataSource = BindDatatable
DetailGrid.DataSource = BindingSource

DataGridViewにはバインドした結果を表示させています。
この次にクリスタルレポートへDataTableを渡せばいいのかなと思ってこんな感じで書いて見ましたが、もちろんエラーが出ます。下のdataTableってのはくリスたるレポートの方で宣言したDataTable型の変数なのですが・・・どうやってこっちに持ってきて書けばいいのかわかりませんでした。
dataTable = BindDatatable


初心者なのでもしかしたら的外れな質問をしているかもしれませんが、どうぞよろしくお願いいたします。

こんにちは。

ハガキ、封筒のPGを作成しているのですが、−（長音）がどうしても横のまま表示されてしまします。
原因がわかる方がいらっしゃったら、教えて頂きたいのですが．．．

ちなみに、フォントは縦書き用の「@MS明朝（日本語）」を使用し、プロパティのテキストの回転も270°になっています。

宜しくお願いします。

いつも参考にさせていただいてます。
宜しくお願い致します。

OS：Windows XP
DB：Oracle 10ｇ
クリレポ：Crystal Report XI
言語：VB.Net(2003)
出力プリンター:　EPSON ESC/P 2001

現在、PrintOptions.PaperSizeにユーザー定義で作成した
用紙[連続紙](21cm×15.24cm)を指定し、
3台のPCから、同一データを1枚ずつ印字した所、
1枚は、完璧に印字され、2台目のPCからの印字は右にズレており、
3台目のPCからの印字は右上にズレて印字される現象に悩まされています。

なお、3枚印刷した結果より1枚目と2枚目の出力されたサイズは、
問題なく。3枚目だけ用紙サイズが大きくなって印字されているようです。

完璧に印字されたPCには、プリンターケーブルが接続されており、接続されている
プリンターを共有設定にし他2台が、参照し出力しています。

------------------------------------------------------------
クリスタルレポートは用紙サイズを名称ではなく値でもっている。
------------------------------------------------------------
↑正にこれが原因でしょうか？

しょうも無い質問で申し訳ありませんが、よろしくお願いいたします。

------------------------------------------------------------
クリスタルレポートは用紙サイズを名称ではなく値でもっている。
------------------------------------------------------------
↑正にこれが原因でしょうか？

開発環境：vb.net 2005
crystal reports for .net2005です。
マージモジュールも組み込みインストーラを作成して配布しましたが、
一部マシンでレポートの出力をしたところ、下記エラーがでます。
正常に出力できるマシンもあるのでなにかしらのｄｌｌの登録がおかしいと思うのですが、
どうしたらいいのか、教えてください。

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

************** 例外テキスト **************
CrystalDecisions.CrystalReports.Engine.DataSourceException: データ ソース オブジェクトが無効です。
   場所 CrystalDecisions.CrystalReports.Engine.Table.SetDataSource(Object val, Type type)
   場所 CrystalDecisions.CrystalReports.Engine.ReportDocument.SetDataSourceInternal(Object val, Type type)
   場所 CrystalDecisions.CrystalReports.Engine.ReportDocument.SetDataSource(Object dataSet)
   場所 ＥＲＰ販売管理システム.frmNyukinKakunin.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)

Crystal Report 6 を使用しています。
下記帳票イメージの時、※1 を「456」と表示するにはどのようにすればよろしいでしょうか。
要するに、「残高」で数値が入っている最終行の数値を※1 に表示したいということです。
最初、「残高」に式を挿入し、その式に「If 残高 <> 0 Then 残高」といった式を記述したら、※1 は
「0」が表示されました。
当たり前ですが...(最終行の「0」がセットされてしまったので)

売上日 |  品名|・・・|残高
------+----+------+
 08/01 |  A     |・・・| 123
 08/02 |  B     |・・・| 456
 08/03 |  C     |・・・|   
------+----+-- +---
                               456 ※1

御教授の程、宜しくお願い致します。

以上

すいません、ものすごく簡単な質問になるのかもしれませんが
レポートビューワーでプリントイメージを表示時に、処理を行った
タイミングや環境により１ページ目から出力されない現象が
発生します。
このような状況が発生時はどのような対処を行えばよいでしょうか。
すいませんが宜しくお願い致します。

---------------------------------------
VB.NET　2005
CrystalReport標準

バージョン７のクロス集計では実現できないと思います。

すみません。しつもんであります。

VB.NET　2005
CrystalReport（標準

ソリューションエクスプローラで、新規にクリスタルレポートを作成したら、
以下のような並びでセクションができていました、

レポートヘッダー
ページヘッダー
詳細
レポートフッター
ページフッター

レポートフッターとページフッターの順を逆にしたいのですが、
デザイナが変更を一切うけつけてくれません。

帳票が数枚にわたるため、ページフッターにページ名で、全ページを出力した後に、レポートフッターにレコードカウントを入れたいと思っています。

どなたかわかるかたいらっしゃいますか？よろしくお願いします

これは、デザイン時だけで、実際、プレビューしたときは、レポートフッターはページフッターの後です。

もう少し見栄えをよくするために・・

上記の式フィールドでグループ化した後、
詳細には、４つの項目を挿入して、最初の３つの項目は、それぞれ「重複データを非表示」をチェックします。その結果、グループ単位で重複データを非表示にすることができます。

Crystral Reports のパラメータフィールドに配列の値を引き渡すことはできません。
過去のログは、データベースに接続しないで値をレポートで表示（印刷)させるものと解釈して書いたものです。

古いバージョン、多分V8.5かV9までは、CDO(Crystal Data Object) と呼ばれるものがあります。
このCDOを使って、VB6で空からレコードセットを作成して、値にはデータベースから取得したものを挿入します。このレコードセットをレポートに引き渡すことができます。レポートのデザインは、レポート定義ファイルを利用するか、OLE DB 接続で実際に利用するデータベースに接続して行います。

あと、開発手法は、RDCです。OCXやPrintEngine API は使えるか知りません。

以下は、メーカーのサイトからダウンロードしたサンプルコードの中からCDOに関連した部分の抜粋です。
(RSは、データを取得するデータベース用のレコードセットです。)

    Dim cdoRowSet As CrystalDataObject.CrystalComObject
    Dim Rows() As Variant

    '//CDOオブジェクトの作成    
    Set cdoRowSet = CreateObject("CrystalDataObject.CrystalComObject")

    '//配列構造を作成する
    cdoRowSet.AddField "Customer No", vbString
    cdoRowSet.AddField "Customer NameCity", vbString
    cdoRowSet.AddField "country", vbString

    '//データベース(RS)から値を挿入する。
    Do While Not RS.EOF
        Rows(i, 0) = CStr(RS("CustomerID"))
        Rows(i, 1) = CStr(RS("CompanyName"))
        Rows(i, 2) = CStr(RS("Country"))
               
        i = i + 1

        RS.MoveNext
    Loop
   
    'Now we populate our VB array with data.
   
    'Now that the array is populated, we add it to the cdoRowSet
    '//配列構造に値を挿入する
    cdoRowSet.AddRows Rows
　　'//レポートにCDOレコードセットを引き渡す
    CrystalReport.DatabaseTable.SetDataSource cdoRowSet, 3
    '//レポートの保持されたデータ破棄
    CrystalReport.DiscardSavedData
     '//レポートの表示または、印刷する
　　　　（省略）

あと、データベースの値でなくても、上記の配列構造に値を挿入することでデータベースの接続なしでレポートに表示することが可能です。

ちょっと手間がかかるので、直接データベースに接続した方が早いと思うけど。

「帳票実行中」ってどんな処理ですか？
これだけじゃわからないと思います。

お返事遅れてすいません。
「帳票実行中」ですが、処理は以下のようなことをしています。
１．オラクルのストアドプロシージャ実行
２．上記１で作成したDBをレポート用MDBに編集
３．レポート印刷

どこでエラーが発生したかも分からない状態です。
もうちょっと自分で調査してみます。
わかったらまたご報告しようと思います。
お騒がせしました。

「できましたっけ？」という情報で別の手段を試しました。

下記方法で実現しました。
ありがとうございました。

'VB6
With CrystalReport1
    .Connect = "DRIVER={SQL Server};SERVER=(Server);UID=;PWD=;DATABASE=(Database)"
    .DiscardSavedData = True
    .ReportFileName = "c:\report1.rpt"
    .StoredProcParam(0) = (SP's parameter)

    .Destination = 1 ' Printer
    .PrinterStartPage = 1
    .PrinterStopPage = 9999
    .Action = 1
End With

--SP
CREATE procedure SelectTest(
@Code char(4)
)
as
select
[col01],
[col02],
[col03]
from [test01]
where [col01] = @Code
GO

はじめまして

.NET初心者のものですが、クリレポについて教えてください。
CR6→CR2005に移行する場合は、完全に作り変えるしかないのでしょうか？？
移行する手段があれば教えてください。
大昔につくられたＰＧを.NETに移行しなくてはいけなくなり、
大変困っています。
どなたかご教授ねがいます。

■旧環境
　VB5（SP3）　CR6

■新環境
　VB2005　CRはVB2005に付属しているものを使用

はい、その通りです。
VB5で記述された処理は、すべて .NETコンポーネントに移行（コード修正）することになります。

有難うございます。参考にさせて頂きます。
環境ですが
CR：Crystal Reports XI Developer Edition 評価版
OS：Windows XPSP2
言語：ASP（VBScript）
サーバー：SQL Server 8
です。

フォントについて教えてください。
フォントの種類をOSのシステムフォントにすることは出来ないのでしょう？
分かる方居ましたら教えてください。
お願いします。

２４ｘ７さま
すばやいレスポンスありがとうございます。

やはり8.5を手に入れるしかないですか。。
自分も開発環境はVBとクリスタルレポート９だと聞いていたので、
いざ参照設定を確認して、CrystalReport8.5Libraryとなっていたので、
開発環境が違うのかと思っていたのですが。。。

しかし、Crystal Report Viewer Control 9 は参照設定でチェックされているんですよね。。（もとから）
ってことは開発環境は、やっぱり　９？
２つのバージョンが同時に入るとかはないですよね？

ちなみに、クリスタルレポート9をインストールすると、c:\ProgramFiles\Crystal Decisions 配下に　
「8.5」っていうフォルダができるのですが、でももぐっていくと「Olap」とか出てくるので関係ないのかなと。。

すいません。わかるかたよろしくお願いします。

質問の意図が読めない？？
8.5を9へアップグレードするのではないのですか？
8.5で利用している開発手法に関係しますが・・
8.5でRDCを利用していれば、そのまま、アップグレードすればいいと思います。
OCXなら、RDCのコードへ書き換える以外に方法はない。
8.5の製品CDがあれば、同一環境に２つのバージョンはインストールは可能です。

すいません。わかりずらくて、
状況は、クリスタルレポート９をXIにアップデートするのが最終的な目的になります。

なので、現行の開発環境っということでクリスタルレポート９の環境を作成してVBの既存プロジェクトを起動したら、「Crystal Report 8.5 Library」が参照されるように設定されていて、クリスタルレポート9しかインストールしていないので、参照不可になっていました。

同一環境への2バージョンのインストールは可能なのですか。じゃーたぶん既存のプロジェクトが作成されたマシーンでは、
くりれぽの8.5と９の両環境があったということですかね。。
とりあえず、8.5は手元にないのですが、
参照設定で8.5Libraryのチェックをはずして、完全コンパイルをかけてもエラーがでなかったので、
ひょっとしたら、くりれぽ９の現行アプリの前にもう１バージョン8.5で作成したバージョンが存在しててその時の遺物なのかなと思っています。

すいません。
いろいろとご助言いただきありがとうございました。

上記の説明は、期待した結果だと思います。

参照不可の8.5のチェックをはずしてもコンパイルエラーにならずに動作するなら、RDCで開発されたものでしょう。
参照不可の8.5は、参照設定の一覧の中で上位で表示されていると思います。
バージョン9は、それよりも下位アルファベット順で表示されて、チェックされていると思います。
そのまま、バージョン9で再コンパイルと、動作確認で、問題ないのでは・・

そうですね、問題なく動きそうです。
ありがとうございました。

ただ、最終的な目的は、VB6　を　VB.NET　2005に上げて、
クリスタルレポート9　を　クリスタルレポートXI　に上げるのが目的なので、

また、質問を投げさせていただくかもしれません。。。。

はじめまして、クリスタルレポート始めて3週間のものです。

レポートの修正をしているのですが、デザイナが予想以上にいろいろやってくれて困っています。
データベースエキスパートでテーブルを削除するときに使用していないDBフィールドを「使用している」と言ってきたり。
上記のメッセージを無視してテーブルを削除するとサブレポートのリンク情報(削除したテーブルとは関係ない)を勝手に削除したり。

ということで、レポートファイルの定義情報をテキストで取り出せないかと考え下記環境でマクロを作成してみました。(VB、Delphiでないのは、環境がないからです)
-----
CRAXDRT(Crystal Reports ActiveX Designer Design and Runtime Library 10.0)
Microsoft Excel 2007


取り出せる情報
-----
使用テーブル一覧(データベースエキスパート-データ-選択したテーブル)
DBリンク一覧(データベースエキスパート-リンク-リンクの順序)
パラメータフィールド(フィールドエクスプローラー-パラメータフィールド)
式フィールド(式ワークショップ-式フィールド)
SQL式フィールド(式ワークショップ-SQL式フィールド)
選択式.レコードの選択(式ワークショップ-選択式-レコードの選択)


これに、サブレポートリンク(レポートエクスプローラーでサブレポートを右クリック→サブレポートリンクの変更で表示される情報)を追加しようといろいろやっていますが、なぜかうまくいきません。
次のプロパティにアクセスできないとかなんとか。
-----
CRAXDRT.Report.Sections(1).ReportObjects(1).Links(1).SubReportField


ActiveX経由でレポートファイルの定義情報を取り出す以外に何か同じようなことを実現する方法など知っている方、情報下さい。

残念なお知らせです。
エクスポートしましたが、エラーダイアログが表示されてエクスポートできず。
対象のサブレポートをごっそり削除するとエクスポートもうまく行きました。(サブレポートを削除したら意味無いデス)

MainReportFieldが取得できる分、自作マクロの方がましでした。

サブレポートリンクの情報取得は諦めて人力でやります。

いつも拝見させていただいています。

今回、古いVB4とクリレポ4.8で作ったプログラムを、VB6とクリレポXIで作り変えることになりました。

'Report1.Formulas(0) = "年月='" + Trim(Text1) + "'"

上記式で、フォームに表示してある年月をクリレポに渡していたのですが、XIでの記述がわかりません。

VB6から、クリレポXIへのテキストの渡し方をお教えください。

初歩的な質問ですみません。
よろしくお願いします。

VB6 なら RDC を利用するわけですね。

式フィールドの内容を変更する場合、以下のような記述になります。

Dim ｃｒFormulaFields As CRAXDRT.FormulaFieldDefinitions
Dim crFormulaField As CRAXDRT.FormulaFieldDefinition

Set crFormulaField = CrystalReport.FormulaFields.Item(1)
crFormulaField.Text =　"年月='" + Trim(Text1) + "'"

複数の式フィールドが存在しているような場合、For ループして、式フィールドの名前で区別することも可能です。

For i = 1 To CrystalReport.FormulaFields.Count
   Set crFormulaField = CrystalReport.FormulaFields.Item(i)
   If crFormulaField.FormulaFieldName = "式フィールド名" Then 
     crFormulaField.Text =　"年月='" + Trim(Text1) + "'"
   End If
Next i

24x7様ありがとうございました。
早速試したところ、うまくいきました。
ありがとうございました。

24x7 -さん
回答有り難うございます。
やはり直接では無理みたいですね。
DataSetを利用することにします。
どうも有り難うございました。

環境：
ＯＳ　　Windows2000
ＶＢ６、クリレポ９

クリレポ６から９へバージョンアップをしましたが、クリレポの機能である、ファイル出力
（エクスポート）ができません。
ファイル出力のボタンは押せますが、通常なら表示されるべき＜エクスポート＞という
画面が表示されません。

数台のパソコンにクリレポのバージョンアップをしたのですが、ファイル出力できるものと
できないものがあります。

できないパソコンについて、再度クリレポ９のインストールを行いましたが、現象は
変わらずです。
何が原因なのでしょうか？
よろしくお願いします。

レポートのデザイナ環境ですか、それともVB6アプリケーションですか？

デザイナ環境の場合、原因は思い当たりませんね。

VB６アプリケーションの場合、V6->V9 にアップグレードしてもそのまま記述されたコードは正しく動作しません。VBコードは修正する必要があります。
V9 では、RDC(CRAXDRT.DLL) を利用してコード記述が必要になります。