皆さん始めまして。TARと申します。
いつも参考させて頂いております。

***開発環境***
OS：Windows2003Server
　　IIS6.0
開発言語：VB/ASP
CrystalReport 11
DB：Oracle10G
**************

現在下記の環境で稼動しているものを上記環境へ移植する作業を行っております。

***現行環境***
OS：WindowsNT
　　IIS4.0
開発言語：VB/ASP
CrystalReport 8
DB：SQLServer
**************
DBのデータをCrystalReportを使用してブラウザに表示させています。

IISの設定で拡張子.repの参照先設定
（プロパティ→ホームディレクトリ→構成）
を行ないますが、.repにはどのdllを設定すべきなのでしょうか。

現在稼動しているCrystalReport 8とはファイル構成が大きく違うために
困っております。

基本的な質問かもしれませんが、御教授お願いいたします。

> IISの設定で拡張子.repの参照先設定
> （プロパティ→ホームディレクトリ→構成）
> を行ないますが、.repにはどのdllを設定すべきなのでしょうか。

拡張子.rep とは、.rpt のことですか？
COM ASP を利用している場合、設定しなくても動作します。メーカーサイトからサンプルアプリケーションをダウンロードして試してみたら・・

お世話になります。まごと申します。

WindowsXP Pro
CrystalReport8
Access2000

データベースから絞込みを行った結果をレポートに表示させているのですが、
レポートを開くと、絞込みが行われずに、全てのデータが表示されてしまいます。

Fillした後に、データセットのカウントをとると、正常に絞り込まれており、
また、フォームにデータグリッドを用意しても正常に絞り込まれた結果が表示されます。
が、レポートでは、全てのデータが表示されます。

同様の現象をご存知の方居られないでしょうか？

以下、データの絞込みからレポート表示までのコードです。
If Me.cbcNumber.Text.Length <> 0 Then
      Me.OleDbDataAdapter3.SelectCommand.CommandText = "SELECT * FROM コース表 WHERE コース = " & CType(Me.cbcNumber.Text, Integer)
Else '全コース作成
      Me.OleDbDataAdapter3.SelectCommand.CommandText = "SELECT * FROM コース表"
End If
Me.DsCouLst1.Clear()
Me.OleDbDataAdapter3.Fill(Me.DsCouLst1, "コース表")
c.SetDataSource(Me.DsCouLst1)
cr.crv1.ReportSource = c
cr.crv1.Zoom(2) '表示領域ぴったり
cr.Show()

はじめまして。
YECと申します。

CrystalReportsの集計について質問をさせていただきます。

以下の環境で開発を行っております。
VisualBasic2005
CrystalReports  VisualStudio2005バンドル版
Windows XP Professional SP2

作成中のレポートは、↓こんな感じです。

グループヘッダ:AreaID     東京、大阪・・・
グループヘッダ:StoreID    A店、B店・・・
詳細　　　　　　
グループフッタ:StoreID     A店、B店・・・
グループフッタ:AreaID      東京、大阪・・・・


式フィールド
・@Fee---DBにある4つのフィールド値を単純に加算。
・@Tax---@Feeを10で割り、余りが有る場合は１円プラスする。DecimalPlaces=0に設定し、整数表現。
@Taxの式の内容は以下の通りです。
If Sum ({@Fee}, {DBName.StoreID}) Mod 10 <> 0 Then
Formula = Fix(Sum ({@Fee}, {DBName.StoreID})/10) + 1
Else
Formula = Fix(Sum ({@Fee}, {DBName.StoreID})/10)
End If


----------Fee-------Tax-----
                23,756円
                28,536円
A店 合計   52,292円     5,230円      グループフッタ:StoreID
                  3,875円
B店 合計     3,875円       388円      グループフッタ:StoreID
----------------------------
東京合計   56,167円     5,617円      グループフッタ:AreaID


グループフッタ:AreaIDでも、上で示した@Taxと同様の式で計算を行っており、
東京のTax合計 = A店のTax合計 + B店のTax合計 + ・・・・・
とはならずに困っております。

そこで、東京合計のTaxに
Sum ( {@Tax} )
という内容の式フィールドを作成して集計使用としたのですが、「このフィールドは集計できません。」と
エラーが出てしまい、うまくいきません。


東京のTax合計 = A店のTax合計 + B店のTax合計 + ・・・・・

を実現するには、どのような方法が考えられますでしょうか？
よろしくお願いいたします。

24x7様

無理そうですか・・。
EXCELに適当な値を入力して色々計算してみましたが、
計算が一致することがあったり無かったりで、その法則性がわかりません。

何か方法が無いか、引き続きこの掲示板をチェックしつつ色々と試してみます。
もし解決方法が見つかったら、ここでご報告します。

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

「出力後にページ番号をリセット」するとすべてリセットされてしまうので利用しないほうがいいでしょう。この場合、グループ毎の総ページ数は利用していないので、手動でカウントするしかありません。
ページフッターは、そのまま利用します。

ページヘッダーでは、式フィールドを利用して、グループ毎のページ数をカウントします。
グループヘッダーに以下の式フィールドを挿入します。
WhilePrintingRecords;
NumberVar gCount;
gCount:=gCount+1;
Left({グループフィールド名},1) + "-" + ToText(gCount);

グループフッターには、以下の式フィールドを挿入します。
WhilePrintingRecords;
NumberVar gCount:=0;

24x7　様

ほんとにありがとうございます！！！すばらしいです(ToT)うまくいきました！！
ありがとうございましたm(_ _)m

いつもお世話になっております。
早速なのですが質問させていただきますのでお願いします。

環境
Windows2000
Oracle 9i
crystal report 9

Table A
取引先番号　　　処理番号　　　金額　　フラグ
1000000000      00000001      5000         0
1000000000      00000002      1000         0
1000000000      00000002      1000         1
1000000000      00000003      3000         0
1000000000      00000004      4000         1

【Table A】というテーブルがあるとして、
「フラグ」が0のレコードのうち、処理番号が最大のものの
金額だけを表示したいと考えています。
（上記の場合であれば4レコード目の「3000」と出力したい）
クリスタルレポートの機能で実現する方法をご存知のかたいらっしゃいましたら
お教え願えますでしょうか？
（SQL式フィールドを利用しない方法であれば助かります。）

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

処理番号を降順ソートするのでは駄目ですか。処理番号が一番大きいレコードを最初で、それ以降はどの順ですか。処理番号が降順で構わないなら、ソートすればできると思います。

返信ありがとうございます。
明細部の表示は、上記のように処理番号の昇順で表示したいと考えています。
このような場合残された方法はやはり”SQL式フィールド”の利用となるのでしょうか？
以前にもあったのですが、うまくSQL文を認識してくれず、SQL/Plusで実行できても、
クリスタルレポートのSQLフィールドで実行できないという現象がおきてしまう為
今回の質問の際にも「SQL式フィールドを利用しない方法で」とつけさせていただきました。

降順でなく、昇順でしたね。失礼しました。

> ------------------------------------------
>                                       金額   3000

この部分を処理番号が一番大きく、フラグがゼロのレコードの金額を表示したいわけですね。

期待する方法ではないかもしれませんが、以下の手順で可能です。

1. フラグでグループを挿入します。
2. レコード選択式を利用しているかわかりませんが、。。
　フラグ=1 のレコードはすべて非表示にします。
　フラグのグループヘッダー、フッター、詳細の非表示の条件式に以下の式を挿入　
　します。 
  WhilePrintingRecords;  
  {xxx.フラグ}<>0
3. デザイナの挿入メニューから「集計」を選択します。
4. 集計するフィールドは、"処理番号"を選択します。
5. 集計方法は、「最大」を選択します。
6. 集計の保存場所は、グループを選択します。
挿入された集計フィールドをグループヘッダーに挿入します。
その結果、上記のイメージのレポートが完成します。

以下は、グループヘッダー　(フラグ）で表示する。                                    
------------------------------------------
　　　　　　　　　　　　　　　　　　　　　　金額   3000
　　　　取引先番号　　　処理番号　　　金額　　フラグ

以下は、詳細で表示する。
　　　　1000000000      00000001      5000         0
　　　　1000000000      00000002      1000         0
　　　　1000000000      00000003      3000         0

以下は、グループフッターで表示する。
------------------------------------------

上記の方法は、表示する内容が間違ってしまいました。何度もすみません。

この部分だけ「サブレポート」を利用して実現することができました。

上記手順 2. の次にサブレポートをグループヘッダーに挿入します。
メインとサブレポートは、フラグの項目でリンクします。

サブレポートもフラグでグループを挿入します。
詳細には、以下の式フィールドを挿入します。
WhileprintingRecords;
if {xxx.処理番号}= maximum({xxx.処理番号},{xxx.フラグ}) then
{xxx..金額}
else
0
この結果、処理番号が一番大きいレコードの金額を求めます。
サブレポートの詳細以外はすべて非表示とします。
詳細セクションの非表示の条件式には、以下の式を挿入します。
{@上記の式フィールド名}=0
その結果、処理番号が一番大きいレコードの金額のみ表示されます。

以下は、グループヘッダー　(フラグ）で表示する。        
但し、枠内は、サブレポートで表示する。                            
------------------------------------------
　　　　　　　　　　                                    +-----+　　　　　　　　　　　　
                                                  金額  |  3000 |
                                                          +-----+
　　　　取引先番号　　　処理番号　　　金額　　フラグ

以下は、詳細で表示する。
　　　　1000000000      00000001      5000         0
　　　　1000000000      00000002      1000         0
　　　　1000000000      00000003      3000         0

以下は、グループフッターで表示する。
------------------------------------------

期待する手法ではないかもしれませんが、参考にしてください。

No.2402参照しました。
これは式フィールドにの構文になりますよね？

自分の説明不足でもうしわけありません。
自分が聞きたかったのはＶＢ．ＮＥＴ
で外部のロジックからクリスタルレポート内の式フィールドに値を設定する
ロジックをご教授してもらえないかと伝えたかったんです。
日本語下手ですみません。。。

クリスタルレポートのテキストオブジェクトにＶＢ．ＮＥＴで外部から設定
CType(kouzimaewatasizandaka_meisai1.ReportDefinition.ReportObjects("Text_nen"), TextObject).Text = UnyoDate.Year

で設定できました。

式フィールドに設定する場合、どのように書けばよろしいですか？
よろしくお願いします。

24x7様
返信が遅れまして申し訳ありません。

さっそく資料を基にソース変更を行いました。
うまく動作をしてくれませんでした。
そこでご助力をお願いします。

前ソース
  CrystalReport1.Destination = 1
  If optプリンタ1.Value = True Then       
      CrystalReport1.ReportFileName = Report_PATH & "納品書376.rpt"
  ElseIf optプリンタ2.Value = True Then  
      CrystalReport1.ReportFileName = Report_PATH & "納品書673.rpt"
  Else
      Exit Sub
  End If

    CrystalReport1.Destination = 1
    If optプリンタ1.Value = True Then       
        If strPcName = "Soumu_2" Then
            CrystalReport1.PrinterPort = "LPT1"
        Else
            CrystalReport1.PrinterPort = "別ポート"
        End If
        CrystalReport1.PrinterDriver = "FUJITSU FMPR-376 (NPK)"
        CrystalReport1.PrinterName = "FUJITSU FMPR-376 (NPK)"
    ElseIf optプリンタ2.Value = True Then   
        If strPcName = "Eigyou" Then
            CrystalReport1.PrinterPort = "LPT1"
        Else
            CrystalReport1.PrinterPort = "別ポート"
        End If
        CrystalReport1.PrinterPort = "FM-LNA100 (Fujitsu  PTP  ポート)"
        CrystalReport1.PrinterDriver = "FUJITSU FMPR-673"
        CrystalReport1.PrinterName = "FUJITSU FMPR-673"
    Else
        Exit Sub
    End If


直しているソースはこのような感じです。
    Dim cr11Application As New CRAXDRT.Application
    Dim Report1 As CRAXDRT.Report
    'Set cr11Application = CreateObject("Crystalruntime.Application")
    Set Report1 = cr11Application.OpenReport(Report_PATH & "納品書.rpt")
   
        With CrystalActiveXReportViewer1
    '  レポートオブジェクトの指定
        .ReportSource = Report1
    '  プレビュー実行
        .ViewReport
        End With
       
    If optプリンタ1.Value = True Then       
        Set Report1 = cr11Application.OpenReport(Report_PATH & "納品書.rpt")
    ElseIf optプリンタ2.Value = True Then   
        Set Report1 = cr11Application.OpenReport(Report_PATH & "納品書673.rpt")
    Else
        Exit Sub
    End If

        With CrystalActiveXReportViewer1
    '  レポートオブジェクトの指定
        .ReportSource = Report1
    '  プレビュー実行
        .ViewReport
        End With

     '  Report1.PrintOut False
      
       Set Report1 = Nothing
       Set cr11Application = Nothing

まだまだ初心者なもので、変なソースになっていると思いますが
よろしくお願いします。

コードは問題ないように見えますが、ビュー表示を2回繰り返しているのでしょうか。
今回の現象に関係ないですが、ビュー表示を繰り返していると前のレポートがメモリに残ったままで、更新されないことがあります。

ActiveXビューアは正しいバージョンを参照していますよね。
あと、レポートは、データ付きで試してみてください。

24x7様

無事に1回で表示することが出来ました。
特に修正は加えていないんですけど・・・疑問が残ります。


新しく質問をさせてください。

修正前のソース
Private Sub cmd原価管理表_Click()
    If Exec_Proc_Print_Set(cnin原価管理表) Then
        If MsgBox("印刷を開始しますか？", vbQuestion Or vbYesNo) = vbYes Then
            strREPORTFILE = "原価管理表.rpt"
            CrystalReport1.Formulas(0) = "運用月='" & Mid$(運用Date, 1, 7) & "'"
           
            Call レポートセット_sub
        End If

        Exec_Proc_Print_Clr
    Else
        MsgBox "原価管理表は他で出力中ですので、出力できません。", vbExclamation Or vbOKOnly, Caption
    End If
End Sub

ここで使用されている”Formulas”なんですけど
資料を見ると”FormulaFields.Item(1).Text”を使えばいいというのは解っているのですが
その後の"運用月='" & Mid$(運用Date, 1, 7) & "'"をどのように修正すればいいのか解りません
ご助力をお願いします。

追記です。

SelectionFormulaも同様にエラーが起こってしまいました。
資料を見たときに、Selection・・・の部分だけを直して
後の宣言の仕方は変えなくていいと思ってました。
で、修正をしてみるのですが上手くいきませんでした。
 CrystalReport1.SelectionFormula = _
     "totext({受注テーブル.納品日}) >='" & STTDAT & "' and " & _
     "totext({受注テーブル.納品日}) <='" & ENDDAT & " '"

こちらのほうもご助力いただけると有難いです。

これも、レポートのデザイナで構文チェックでエラーがないことを確認して、その内容をコード上に反映すれば、簡単だと思いますが・・

式フィールドは、このように記述すればいいのではないでしょうか。

Dim I As Integer
Dim CrFormulaFields As CRAXDRT.FormulaFieldDefinitions
Dim CrFormulaField As CRAXDRT.FormulaFieldDefinition

For I = 1 To Report1.FormulaFields.Count
Set CrFormulaField = Report1.FormulaFields.Item(I)
        If CrFormulaField.FormulaFieldName = "式フィールド名" Then
            CrFormulaField.Text = "StringVar 変数名;" + Chr(13) + Chr(10)
            CrFormulaField.Text = CrFormulaField.Text + "変数名:='TEST';"         End If
Next I

直接、Report1.FormulaFields.Item(1).Text = "・・・＜省略>・・・" と記述しても同じです。やはり、式エディタで構文チェックしてからコードに反映すると間違いがわかると思います。

24x7様

構文チェックしてるんですけど、何も引っかからないんですよ。
もしかして構文チェックを行なう場所が違うのでしょうか。

式フィールドは、以下のコードで動きました。

STTDAT = "2003/12/01"
ENDDAT = "2003/12/10"
Report1.RecordSelectionFormula = "ToText({Orders.Ship Date})>= '" & STTDAT & "' and " & _
"totext({Orders.Ship Date}) <='" & ENDDAT & "'"

プログラムから表示されるエラーはなんですか。
あと、式フィールドの内容が複数行に渡る場合、上記のような手法でお試しください。

式フィールドは、Crystal 構文ですよね。
その場合、以下の式を最初に実行してください。
Report.formulasyntax = crCrystalSyntaxFormula
 
ひょっとして、この式を追加することで回避できるエラーだったりして・・

追記です。

全体のソースを書きます。
FormulaFieldsを使用しているソース

Private Sub cmd原価管理表_Click()
    Dim cr11Application As New CRAXDRT.Application
    Dim Report1 As CRAXDRT.Report
   
    If Exec_Proc_Print_Set(cnin原価管理表) Then
        If MsgBox("印刷を開始しますか？", vbQuestion Or vbYesNo) = vbYes Then
            strREPORTFILE = "原価管理表.rpt"
            'CrystalReport1.Formulas(0) = "運用月='" & Mid$(運用Date, 1, 7) & "'"
            'クリスタルレポート11用にソース変更
           
            Report1.FormulaFields.Item(1).Text = "'" & Mid$(運用Date, 1, 7) & "'"
           
            Call レポートセット_sub
        End If

        Exec_Proc_Print_Clr
    Else
        MsgBox "原価管理表は他で出力中ですので、出力できません。", vbExclamation Or vbOKOnly, Caption
    End If
End Sub

RecordSelectionFormulaを使用しているソース

Private Sub cmd印刷_Click()
    Dim cr11Application As New CRAXDRT.Application
    Dim Report1 As CRAXDRT.Report

    If MsgBox("印刷を開始しますか？", vbQuestion Or vbYesNo) = vbYes Then
       
        If IsDate(Txt開始日付.Text) = False Then
            MsgBox "開始日付が間違っています。", vbCritical Or vbOKOnly
            Txt開始日付.SetFocus
            Exit Sub
        End If
        If IsDate(Txt終了日付.Text) = False Then
            MsgBox "終了日付が間違っています。", vbCritical Or vbOKOnly
            Txt終了日付.SetFocus
            Exit Sub
        End If
       
        STTDAT = Txt開始日付.Text
        ENDDAT = Format(DateAdd("d", 1, CDate(Txt終了日付.Text)), "yyyy/mm/dd")

        Select Case strREPORTFILE
       
        Case "納品一覧表.rpt"
        '    CrystalReport1.SelectionFormula = _
        '        "totext({受注テーブル.納品日}) >='" & STTDAT & "' and " & _
        '        "totext({受注テーブル.納品日}) <='" & ENDDAT & " '"
        '住吉 クリスタルレポート11用にソース変更
            Report1.RecordSelectionFormula = _
                "ToText({受注テーブル.納品日}) >='" & STTDAT & "' and " & _
                "totext({受注テーブル.納品日}) <='" & ENDDAT & " '"
            レポートセット_sub
       
       
        Case Else
            レポートセット_sub
           
        End Select
       
        Cmd終了.SetFocus
    End If

End Sub

このようなソースになっています。

24x7様
返事が遅くなってしまい、申し訳ありません。

一応強引なやり方で動かしてみました。

Private Sub cmd原価管理表_Click()
    Dim cr11Application As New CRAXDRT.Application
    Dim Report1 As CRAXDRT.Report
   
    If Exec_Proc_Print_Set(cnin原価管理表) Then
        If MsgBox("印刷を開始しますか？", vbQuestion Or vbYesNo) = vbYes Then
            strREPORTFILE = "原価管理表.rpt"
            'CrystalReport1.Formulas(0) = "運用月='" & Mid$(運用Date, 1, 7) & "'"
            'Call レポートセット_sub
            'クリスタルレポート11用にソース変更
            Set Report1 = cr11Application.OpenReport(Report_PATH & strREPORTFILE)
            Report1.FormulaFields.Item(1).Text = "'" & Mid$(運用Date, 1, 7) & "'"
           
            Call レポートセット_sub(cr11Application, Report1)
        End If

        Exec_Proc_Print_Clr
    Else
        MsgBox "原価管理表は他で出力中ですので、出力できません。", vbExclamation Or vbOKOnly, Caption
    End If
End Sub

もう一つのソースも同様のやり方で動かしました。
あまり綺麗ではないので自分としては不本意ですが・・・

開発環境   VS2002付属のCrystalreportsとC#
データベース SQL-Server2000

レポートをPDFにエクスポートする処理を作っているのですが、
サブレポートを含むレポートを実行すると
「パラメータ フィールドの現在の値がありません」というエラーが出てしまいます。

コードは以下の通りです。よろしくお願いします。
サブレポートにパラメータセットする部分

for (int i = 0; i < Report.ReportDefinition.ReportObjects.Count; i++)
{
    ReportObject CurrentObject = Report.ReportDefinition.ReportObjects[i];
    if(CurrentObject.Kind == CrystalDecisions.Shared.ReportObjectKind.SubreportObject)
    {
     CrystalDecisions.CrystalReports.Engine.ReportDocument crCurSubRepDoc = Report.OpenSubreport(((SubreportObject)CurrentObject).SubreportName);
    
     ParameterValues currentParameterValues1 = new ParameterValues();

     ParameterDiscreteValue parameterDiscreteValue1 = new ParameterDiscreteValue();
     if (submittedValue == null)
     {
      parameterDiscreteValue1.Value = null;
     }
     else
     {
      parameterDiscreteValue1.Value = submittedValue.ToString();
     }
     currentParameterValues1.Add(parameterDiscreteValue1);
     ParameterFieldDefinitions parameterFieldDefinitions1 = crCurSubRepDoc.DataDefinition.ParameterFields;

     ParameterFieldDefinition parameterFieldDefinition1 = parameterFieldDefinitions1[aaa];
     parameterFieldDefinition1.ApplyCurrentValues(currentParameterValues1);
    }
   }

前の回答は適切じゃないので無視してください。

同一グループ内でカウンタを設置して、詳細の集計カウントと比較します。

グループヘッダーに a_count:=Count(項目名,グループ名) の式フィールドを挿入する。詳細に b_counter:=b_counter + 1 の式フィールドを挿入する。
この２つの変数の値を比較する。

ページフッターのところで、２つの変数の値が一致すれば、同一グループのデータはそこで終わりと判断できます。
試していないので、正しく動作するかわかりません。

コード上でデータベースの接続先を変更するのでは駄目ですか。

miyataと申します。
よろしくお願いします。

最近になって、Crystal Report XIに触れました。
で、次のような帳票を出力したいのですが、
実現するためのアイディアが浮かびませんので、
諸先輩の知恵を拝借したいのです。

早速、私の疑問を記述します。
やりたい事は、得意先別に売り上げた商品を
出力するというものです。

主テーブルと明細テーブルがあります。
主テーブルにある得意先をグループヘッダに設定し、
改ページ処理をメインレポートで行わせます。
明細テーブルは、サブレポートで使用し、
得意先の商品を列挙します。

メインレポートとサブレポートのリンクは、
当然得意先です。
以下のようなイメージです。

----------------------グループヘッダーA
得意先
----------------------グループヘッダーA
----------------------グループヘッダーB
商品金額合計
----------------------グループヘッダーB
----------------------グループヘッダーC
　オーバレイ用の罫線
----------------------グループヘッダーC
----------------------明細
日付、商品、個数、単価
----------------------明細

　※下記の商品金額合計は、主テーブルに
　　　持っているデータを出力します。

で、問題の個所というのは、
グループヘッダーBの部分は、得意先が複数ページに
またがる場合に、先頭ページにだけ出力したい
というものです。

この先頭ページにだけというのが、なかなか
実現するアイディアが浮かびません。
　試しに、グループヘッダーBの非表示ドリルダウン不可の
書式設定式エディタで
if {主テーブル.得意先}=previous({主テーブル.得意先}) then true
を記述してみましたが、思った結果は得られませんでした。

どうか、いいアイディアをお持ちの方、
私に、アドバイスをください。
よろしく、お願いします。

NZ-000 さん、レスありがとうございます。

>グループヘッダーA、B、Cは一つのグループヘッダーを三つに分割していると捉えてよろしいのでしょうか。
>
はい、その通りです。

>上記の文脈からグループヘッダーは毎ページ表示するという仕様が伺えます
>
はい、その通りです。

>、「思った結果は得られませんでした。」
>とはどんな結果を得てしまったのでしょうか。
>
これについては、同一得意先において先頭頁だけが
でてほしいところなのですが、毎頁に表示されました。

実は、ちょっと前に解決しまして、グループヘッダーA,B,Cに
対応するグループフッターにて、出力後に頁番号をリセットに
チェックして、グループヘッダーでは、非表示の式エディタにて
pagenumber <> 1を記述することで対応いたしました。


以上です。

いつも拝見させていただいてます。
VS2005バンドルのCrystalReportsを使用して
開発をしております、ともともと申します。

現在レポートを作成しているのですが
データによってレポート内の線オブジェクト等を消す為に
線オブジェクトの上に背景を真っ白にしたテキストオブジェクトを配置し
そのテキストオブジェクトの表示・非表示を切り替える事によって
線が消えたり現れたりする構造になっております。

ここまでは問題は特にないのですが
いざ、レポートをプレビューしてみると、
一見思惑通りに表示されているかのようにみえるのですが
上下にスクロールしたり、クリックを連打したりすると
何故か隠れている線オブジェクト等がチラチラ見えてしまい
隠しているのがバレバレになってしまい困っています。

もしこの問題の回避方法をご存知の方がいらっしゃるなら
教えてください。よろしくお願いしますっ！！

こんにちは。

どうしても自力で解決できなかったので、力を貸してください。

<<完成形>>
コードA　　コードB　　名前　　年齢　　名前　　年齢
-----------------------------------------
 001         001         AAA      22　　　BBB　　　24
 001         001         CCC     34
 001         002         DDD      26       EEE       21
 002         001         FFF      25        GGG      19
 
<<やりたいこと>>
・コードAとコードBが同じ値のデータが複数存在する場合、
　名前と年齢を１行に２件まで並べて印刷する
・コードAとコードBの値がどちらか一方でも変わったら改行

<<現在のデザイン>>
{コードA}　{コードB}　{名前}　{年齢}　next({名前}) next({年齢})

現在、セクションエキスパートの「詳細」の「非表示」の式には
下のように記述しています。

Global numberVar Flg;
Global numberVar Cnt;

booleanVar Bln := False;

if OnFirstRecord then
   Cnt := 0;
if OnFirstRecord then
   Flg := 0;

Cnt := Cnt +1;

 　 // コードA、コードBが同じで、レコードが２で割り切れないものは表示する
    if  ToNumber ({コードA}) = ToNumber(Next({コードA})) and ToNumber({コードB}) = ToNumber(Next({コードB})) and Remainder (Cnt, 2) = 1  then
       Flg := 0;

    // コードA又は、コードBが違っていて、レコードが２で割り切れないものは表示する
    if  (  ToNumber ({コードA}) <> ToNumber(Next({コードA})) or ToNumber({コードB}) <> ToNumber(Next({コードB}))  ) and Remainder (Cnt, 2) = 1  then
        Flg := 0;

    // コードA、コードBが同じで、レコードが２で割り切れるものは非表示にする
    if  ToNumber ({コードA}) = ToNumber(Next({コードA})) and ToNumber({コードB}) = ToNumber(Next({コードB})) and Remainder (Cnt, 2) = 0  then
        Flg := 1;

    // コードA又は、コードBが違っていて、レコードが２で割り切れるものは非表示にする
    if  (  ToNumber ({コードA}) <> ToNumber(Next({コードA})) or ToNumber({コードB}) <> ToNumber(Next({コードB}))  ) and Remainder (Cnt, 2) = 0  then
        Flg := 0;

    // コードA又は、コードBが違っている場合はレコードカウントを０にする
    if  (  ToNumber ({コードA}) <> ToNumber(Next({コードA})) or ToNumber({コードB}) <> ToNumber(Next({コードB}))  )  then
        Cnt := 0;

if Flg = 1 then
    Bln := True;

Bln;

このように設定してプレビューを見ると、
一番最後のデータが重複して表示されてしまいます。
ex)
002  001  ZZZ   22   YYY  11 
002  001  YYY  11

「詳細」に記述した式が正しくないのでしょうが、
いろいろ直しているうちに混乱してきてしまいました。。。
ココがおかしいとか、もっといい方法があるとか
どんな意見でもいいので、アドバイスをよろしくお願いいたします。

おもしろそうなレポートなのでチャレンジしてみました。
コードを見直すのは苦手なので、表示イメージから一から作成してみました。

まず、「コードA」と「コードB」でそれぞれグループを挿入します。
以下のようなイメージで表示されます。

<グループ１>
コードA　001 
    <グループ2> 
     コードB　001　
           <詳細>
          コードA　　コードB　　名前　　  年齢　　名前　　年齢
     　　　001         001         AAA      22　　　
     　　　001         001　　　　BBB　　 24
     　　　001         001         CCC     34
    <グループ2> 
    コードB　002　
          <詳細>
　　　　　001         002         DDD      26 　　     
　　　　　001         002　　　　EEE       21
<グループ１>
コードA　002
   <グループ2>
　　コードB  001　
          <詳細>
           002         001         FFF       25       
           002         001　　　　GGG      19

次は、以下の２つの式フィールドを作成します。

//次のレコードの名前を表示する
WhilePrintingRecords;
if {コードB} <> next({コードB}) Then
""
else
ToText(Next({名前}))

//次のレコードの年齢を表示する
WhilePrintingRecords;
if {コードB} <> next({コードB}) Then
""
else
ToText(Next({年齢}))

その結果、以下のような表示になります。

<グループ１>
コードA　001 
    <グループ2> 
     コードB　001　
           <詳細>
          コードA　　コードB　　名前　　  年齢　　名前　　年齢
     　　　001         001         AAA      22　　　BBB　　 24
     　　　001         001　　　　BBB　　 24　　　CCC     34
     　　　001         001         CCC     34
    <グループ2> 
    コードB　002　
          <詳細>
　　　　　001         002         DDD      26 　　  EEE       21
　　　　　001         002　　　　EEE       21
<グループ１>
コードA　002
   <グループ2>
　　コードB  001　
          <詳細>
           002         001         FFF       25        GGG      19
           002         001　　　　GGG      19

次は、重複している詳細の行を非表示にします。
以下の例では、非表示したい行は、２行目です。
<グループ１>
コードA　001 
    <グループ2> 
     コードB　001　
           <詳細>
          コードA　　コードB　　名前　　  年齢　　名前　　年齢
     　　　001         001         AAA      22　　　BBB　　 24
     　　　001         001　　　　BBB　　 24　　　CCC     34　・・・非表示にする行
     　　　001         001         CCC     34

以下の例では、非表示したい行も、２行目です。
<グループ１>
コードA　002
   <グループ2>
　　コードB  001　
          <詳細>
           002         001         FFF       25        GGG      19
           002         001　　　　GGG      19　　　　　　　　　　　　・・・非表示にする行

忘れていましたが、グループヘッダー、フッターは不要なら非表示にしてください。
実際に試したデータの値とは異なりますが、以下のような表示イメージになると思います。

<詳細>
          コードA　　コードB　　名前　　  年齢　　名前　　年齢
     　　　001         001         AAA      22　　　BBB　　 24
     　　　001         001         CCC     34
　　　　　001         002         DDD      26 　　  EEE       21
           002         001         FFF       25        GGG      19

24x7さん、こんにちは。

返事が遅くなってしまい申し訳ありません。

さっそく教えていただいた方法で試してみたところ、
期待していたかたちで表示されました！！

元のコードよりもシンプルにわかりやすくなっていて感激です。

どうもありがとうございました☆

ご存知の方教えて下さい。
クリスタルレポートでのＮＵＬＬの扱い方です。
例えば
ＡフィールドにＮＵＬＬが入ってたとします。
その場合
If A = 3 then
   "AAAA"
else
   "BBBB"
という条件式を入れても処理してくれないみたいです。

必ず
If isnull(A) then
を、かましてＮＵＬＬチェックをしないといけないのでしょうか？
ＮＵＬＬが入って来そうなフィールドは全て扱う場合はＩＳＮＵＬＬ等で判断しないと
駄目なんでしょうか？
すいません、教えてあげてくださいませ。

NULLが入る可能性があれば、IsNull で判断した方がいいです。

Dratheraさん、島崎さん
素早い回答ありがとうございます。

Dratheraさんと島崎さんのおかげで、
テキストボックスの中央に文字を表示することができました。
本当にありがとうございます。

島崎です。
以前　24x7　さんにご教授頂いて、その後、サブレポートで実現すると
自己レスしましたが、再度問題が発生してしまいました。。。
とても長い文章ですが、目を通してみてください。
お願いします。

【メイン帳票】１ページ目
-----------------------------------
グループヘッダ（部門でグルーピング）

部門　部門名　品名　　売上げ日　　金額
-----------------------------------
詳細

A     A部門　　A品　　2006.04.01　　1000
A     A部門　　A品　　2006.05.01　　1000
A     A部門　　A品　　2006.04.01　　1000
A     A部門　　A品　　　　　　　　　1000
-----------------------------------
グループフッタ

総合計
　　【サブレポート】
　　-------------------------------
　　詳細

　　売上げされていることが条件で、月毎の金額合計
                      2006.04       2000
                      2006.05       1000

　　-------------------------------

売上げ合計                          3000
-----------------------------------
グループフッタが出力後に改ページを設定

【メイン帳票】２ページ目
-----------------------------------
グループヘッダ（部門でグルーピング）

部門　部門名　品名　　売上げ日　　金額
-----------------------------------
詳細

B     B部門　　B品　　2006.04.01　　2000
B     B部門　　B品　　2006.05.01　　2000
B     B部門　　B品　　2006.04.01　　2000
B     B部門　　B品　　　　　　　　　2000
-----------------------------------
グループフッタ

総合計
　　【サブレポート】
　　-------------------------------
　　詳細

　　売上げされていることが条件で、月毎の金額合計
                      2006.04       4000
                      2006.05       2000

　　-------------------------------

売上げ合計                          6000
-----------------------------------

上記帳票にて、データセットをメインとサブで２つ用意しています。
メインデータセットのデータ
A     A部門　　A品　　2006.04.01　　1000
A     A部門　　A品　　2006.05.01　　1000
A     A部門　　A品　　2006.04.01　　1000
A     A部門　　A品　　　　　　　　　1000
B     B部門　　B品　　2006.04.01　　2000
B     B部門　　B品　　2006.05.01　　2000
B     B部門　　B品　　2006.04.01　　2000
B     B部門　　B品　　　　　　　　　2000

サブデータセットのデータ
A                     2006.04       2000
A                     2006.05       1000
B                     2006.04       4000
B                     2006.05       2000

というように実現したいのですが、サブレポートのデータの切り替えが
できません。１ページ目と２ページ目にすべてのデータ（部門A、B）が出力されてしまいます。
どなたかご教授お願いします。

とても長い文章で恐縮ですが、宜しくお願いします。

miyataと申します。よろしくお願いします。

JAVA (StrutsベースのWebアプリ)とCrystal Report XIを
組み合わせて、帳票出力をしようと考えています。

具体的な構成は、以下のように考えています。
検索指示画面.jsp
　　（抽出条件を入力し検索ボタンを押すと、抽出条件をCrystalReportのrptに摘要）
検索結果画面
　　（CrystalReportのrptをViewerで表示）

そこで、いろいろとググって、試しに以下のような
コーディングをしました。

==================================
 Object reportSource = session.getAttribute("reportSource");
 
  if (reportSource == null) {
   //Open report.
    ReportClientDocument reportClientDoc = new ReportClientDocument();
    reportClientDoc.open(REPORT_NAME, 0);
    reportSource = reportClientDoc.getReportSource();
    session.setAttribute("reportSource", reportSource);
  }
  Fields fields = new Fields();
  ParameterField pfield1 = new ParameterField();
  Values vals1 = new Values();
  ParameterFieldDiscreteValue pfieldDV1 = new ParameterFieldDiscreteValue();
  pfield1.setName("受注日");
  pfield1.setReportName("");
  pfieldDV1.setValue("2006-07-05");
  pfieldDV1.setDescription("受注日付='2006-07-05'");
  vals1.add(pfieldDV1);
  pfield1.setCurrentValues(vals1);
  fields.add(pfield1);

 //response.sendRedirect("CrystalReportViewer.jsp");
  CrystalReportViewer viewer = new CrystalReportViewer();
  viewer.setReportSource(reportSource);
  viewer.setParameterFields(fields);
  viewer.setEnableParameterPrompt(false);
  if (session.getAttribute("refreshed")==null) {
    viewer.refresh();
    session.setAttribute("refreshed", "true");
  }
  viewer.setOwnPage(true);
  viewer.processHttpRequest(request, response, getServletConfig().getServletContext(),null);
==========================

私は、上記コーディングで、受注日を絞り込んだ
帳票が出力されると考えていたのですが、
実際には、ブラウザに「エラー」とだけ出力され、
何が問題で思って動作をしないのかが、まったくの不明です。

なにか、こうすればいいといった情報をお持ちの方は、
是非アドバイスをください。

はじめまして。

クリスタルレポート７の対応OSをご存知の方いらっしゃらないでしょうか？

調べてはみたものの分からないのです。

誰か教えてもらえないでしょうか？

よろしくお願いします。

はじめまして。ネギです。

.NET 2003 付属の Crystal Report を利用してレポート表示を試みているのですが
「ログオンに失敗しました。」とのエラーが発生し困っています。

アドバイスなどありましたらお手数かとは思いますが
よろしくお願いします。

環境：
　Visual Studio 2003 ASP.NET
　Crystal Report for Visual Studio .NET
　Oracle 10g

やりたいこと：
　画面表示されたらＤＢから抽出したデータをクリスタルレポートに表示する。

現在のソース：
　
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    ' ページを初期化するユーザー コードをここに挿入します。
    Dim orclCnn As New OracleConnection
    Dim SqlDataAdapter As OracleDataAdapter
    Dim dataSet = New System.Data.DataSet
    Dim strSQL As String
    Dim report As New ReportDocument

    report.Load("C:\TEST.rpt")
    report.SetDatabaseLogon("UserName", "Password")

    orclCnn.ConnectionString = "User Id=UserName;Password=Password;Data Source=DbName;"
    strSQL = "SELECT * FROM TABLENAME"

    SqlDataAdapter = New OracleDataAdapter(strSQL, orclCnn)

    SqlDataAdapter.Fill(dataSet)

    report.SetDataSource(dataSet)

    CrystalReportViewer1.ReportSource = report

    With CrystalReportViewer1.LogOnInfo("TABLENAME").ConnectionInfo
        .DatabaseName = "DbName"
        .UserID = "UserName"
        .Password = "Password"
    End With
End Sub

※レポート（TEST.rpt）に対してはデータベースエキスポートを使って
　参照するデータソースを設定しています。（OLE DB(ADO)）


色々調べてはみたのですがこれぞという情報が見つからず困っています。

バージョン 5.2 は、無いと思いますが・・
知っている範囲では、製品バージョンは、3->4->4.5->4.6.1->6->7->8->8.5->9->10->11 だと思います。マイナーバージョンはあったかもしれませんが、メジャーなバージョンで５は無いのでは・・

そのバージョン情報からどのバージョンの製品版で開くことができ、そのまま同一バージョンで保存ができるかじゃないですか。。
知っている限りでは、V5は、存在していません。多分、V6になるのでしょう。
どちらにしても Crystl32.OCX で開発されている場合、V8までしか利用できないので、将来アップグレードはできません。

お疲れ様です
いつもお世話になっております。
島崎です。

セクションについて教えていただきいです。
宜しくお願いします。

---------------------------------------
ページヘッダ

---------------------------------------
グループヘッダ

---------------------------------------
詳細１
　生データ（売上げ日、金額）

---------------------------------------
グループヘッダ
　合計（金額）

---------------------------------------
詳細２
　詳細１生データのサマリ結果（売上げ日毎の金額合計）を出力したい
　売上げ日は可変であるため詳細で出力するしかないと思っています。

---------------------------------------
ページフッタ

---------------------------------------

というようなことを実現したいのですが、
自分が試みた限り
詳細セクションを離すことは不可能？なのではないかと
思っております。

どなたか実現方法をご存知の方
教えてください
宜しくお願いします。

いろいろ検証してみました。
Numberでいけるように思いますが、
実はNumberではダメなんですよ〜
など　問題点をご存知の方
教えて頂けませんか？
宜しくお願いします。

ＯＳ：ＸＰ　ＶＳ２００５　クリレポ：バンドル版を使用しています。

縦１２．７ｃｍ、横２８ｃｍの専用紙の伝票に印字しようと思っています。
右クリック→デザイン→プリンタ設定でユーザが任意で設定できる
用紙サイズを作成しようと思ったのですがそのような設定がありませんでした。
ユーザが任意で設定できる用紙サイズは、現在、PCに接続されているプリンタに
よって設定ができないのでしょうか？

印刷の設定画面の左上にある「プリンタなし」をチェックしても特に設定がありませんでした。

自己れすですいません。
プリンターサーバにユーザ設定でプリンタの設定を登録しなんとかできそうです
ありがとうございました。

はじめまして。
クリレポ初心者で、仕事で解決できず困っています。
もしご教授意いただけたら嬉しいです。

２種類の、複数行あるデータを
わけて表示したいのですが
やり方はありますでしょうか？
求めるイメージは、以下のような感じです。

--------詳細a
りんご
オレンジ
さくらんぼ
梨
マンゴ
バナナ

--------詳細ｂ
大根
ピーマン
トマト
白菜
たまねぎ
にんじん
ほうれん草
ねぎ


キーをつけてグループ化すると
（当然ですが・・・）例えば
以下のようになってしまいます。

--------
りんご
　大根
　ピーマン

オレンジ
　トマト
　
さくらんぼ
　白菜
　たまねぎ

梨
　にんじん
　ほうれん草
　ねぎ

--------

尚、表示させたい二つのグループの
罫線で作る項目欄は、大きさが異なります。



よろしくお願いします。

多分PrintEngine 関数を利用しているわけですよね。そのままでも問題ないと思います。違いは、VC++のランタイムのバージョンだけでしょう。データベースが、Access2000又はそれより新しい場合、製品付属のネイティブドライバーはサポートしていません。
11にアップグレードする方が影響度は高いです。まず、PrintEngine関数はサポートしていない。4.5->11では、レポートのデザインに多少の影響が生じるので、デザイナ環境で確認する必要があります。

島崎と言います。
宜しくお願いします。

-------------------グループヘッダ
・データA
-------------------グループヘッダ
-------------------詳細
・データB
・区分( a or b )
-------------------詳細
-------------------グループフッタ
・区分a積算データ
・区分b積算データ
-------------------グループフッタ

【状況】
上記レポートはデータAが変わる毎に改ページとリセットを行う。
という設定をしています。
グループフッタには区分毎の積算アイテムを設置しています。

区分aのデータがなかった場合、区分a積算データには何も表示されません。
これは問題ないのですが。。。

もし、データAの種類が３種類あり３ページ出力されるとします。
その場合、２ページ目に区分aのデータは存在しているが値は「０」
という場合、「０」が表示されます。
そうすると３ページ目（最終ページ）に区分aのデータが存在しない場合でも、
値「０」が出力されてしまいます。
これはクリスタルレポートの障害なのでしょうか？
それとも私の設定障害なのでしょうか？

わかりにくい説明で恐縮ではありますが、
どなたかご存知の方がいらっしゃいましたら、
教えて頂けたらと思っております。

失礼します。

はじめまして。しましまと申します。
現在、Crystal Reports for Visual Studio .NET ( .NET は2003）を
使用して帳票印刷をしようとしているのですが、初歩的な部分で悩んでいます。

1. レポートのデザイン画面で、用紙サイズ（余白等）を
　 指定する事はできないのでしょうか?

2. こちらのサイトの「入門編風」を参考に帳票を作成し、無事印刷できたのですが、
　 その後に、DataTableの定義を変更し、リビルドを行っても、クリレポのデザイン画面の
　「データベースフィールド」の内容が変わってくれません。
　 どうすれば、DataTableの変更が反映されるのでしょうか?

お手数お掛けしますが、よろしくお願いします。

「開発環境」
WindowsXP
VB.NET2003
Microsoft .NET Framework1.1
Crystal Reports for Visual Studio .NET

〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・〜・
 「入門編風」
 １：プロジェクトにDataSetを追加し、DataTableの定義を行う

 ２：該当のDataTableへデータを流し込む

 ３：クリレポで「データベースフィールド」に該当のDataSetをデータベースとして追加する

 ４：クリレポへ各アイテムを貼り付ける

さかもと 様

ありがとうございました!!
2. については、再起動をしたら反映されました。

ちなみに、1. についてですが、用紙サイズを縦何センチ、横何センチという形では
指定はできないのでしょうか?

あと、追加質問で、ラベル印刷を行う場合、
ラベルとラベルの間隔を設定するにはどうすればよいのでしょうか?

ご存知でしたら、ご教授ください。m(_ _)m

さかもと 様

早々の回答、ありがとうございます。


>ラベル印刷ですが、これは1枚の用紙に複数ラベル印刷ということでしょうか？WORDの差込印刷のようなもの？

どうやら、ロール紙にずらーっと縦１列にラベル用紙があるものに対して印刷を行うようです。
なので、ラベルの間隔を指定できたらと思ったのですが。。
この場合、ラベル専用プリンタが無いと、サイズ定義はできないのでしょうか?

さかもと 様

そうです。ロール紙なんです。

>「間隔」についてですが、縦一列とのことですので明細行の上下幅を調整すればよいかと思います。

ちなみに、クリレポのデザインで１ページ１ラベルとした場合、
改頁したら、用紙サイズ分だけ先に送られるようになるんですよねぇ?(想像)
そうであれば、きっちり用紙サイズを定義しておかないとずれてしまいそうですね。

自己レスです＾＾；
すみません　書込み後にもう一度良く探したら
発見できました。
ただこのパッチでいいのか・・・
このあと英語サイトに飛ばされるようです

http://japan.businessobjects.com/support/crystal/download.asp
うまくいったらまたご報告します

明示的というのは
貼り付けたフォーム内のViewerをDispose？ということでしょうか？
以下のような感じで書いてみましたがダメでした。。。。
form1.CRepView.Dispose()
ただ昨日はexeを落としてもldbファイルが残っていたのですが
今日はexeを落とすとそのタイミングでファイルが削除されるように・・・
謎の現象です

NZ-000様お早いご返答ありがとうございます。

なんとなくexeが落ちたときにldbファイルが消えるか消えないかの症状がつかめて
来ました。
昨日はレポートドキュメントを ビューアに割り当て後に破棄していたのですが
今日はコメントにしていたところexeの終了と同時にldbは消去されま
した。

Dim rp As New CRepNewWorkListLayer1　　’レポートドキュメント

            'ビュアーに割り当て
            CRepView.ReportSource = rp

            'rp.Close()
            'rp.Dispose()
            'rp = Nothing

うーんダメですね・・・＞＜

やはりexeを落とした後も残ってしまうようです・・・

どうもご無沙汰しております。
以下のような回答がビジネスオブジェクツ様より来ました。

>ご報告頂いた現象の回避策として次の方法が考えられます。
>お手元の環境にて下記に紹介致します方法により動作のご確認をお願いします。
>弊社検証環境においては下記コードを追加することにより .ldbファイルが削除されることを確認しております。
>
>'ReportDocument の DisposeメソッドによりReportDocumentオブジェクトが使用する
>'リソースを開放します。
>(例）
>CrystalReportViewer1.ReportSource = crReportDocument
>
>crReportDocument.Dispose
>
>GC.Collect

すでにNZ-000様にアドバイスされている内容でしたので
正直がっかりしましたが。
上によると

>.ldbファイルが削除されることを確認しております。
との事です。
もしや使い方が悪い？ということでソースを見直しました。
そして、ついに原因を突き止めました。

なんと、Form_Load時に
Dim crReportDocument As New ReportDocument1

CrystalReportViewer1.ReportSource = crReportDocument

のようにセットしているような場合

Form_Loadイベント内に

crReportDocument.Dispose
GC.Collect

としても開放されずldbファイルが残ってしまう（mdbファイルをオープンしっぱなし）
ようなのです。

してこうしました。

'クラス宣言時
Public Class
Dim crReportDocument As New ReportDocument1

'フォームロード時---------------------------------------------
Form_Load

'フォームに張ったビューアにレポートファイルを関連付けする-----
CrystalReportViewer1.ReportSource = crReportDocument

'フォームクローズ時-------------------------------------------
Form_Closed

crReportDocument.Dispose
GC.Collect

とすることでフォームの×ボタンを押した後mdbを開放しldbが削除されました。
これってバグなんでしょうか、仕様なんでしょうか。それとも
自分のプログラムの組み方が悪いせいでしょうか・・・ｘ。ｘ