クリスタルレポートで、n番目のレコードを指定して表示させることは出来るでしょうか？
例えば、
<TBL A>
Seq 項目名
1 ああああ
2 いいいい
3 うううう
4 ええええ
というテーブルがある場合に、Seq3の項目名「うううう」を表示させたいのです。
SQLが実行出来るのであれば、「Select 項目名 From TBL A Where Seq=3」を実行して表示させればいいかと
思いますが、SQLが実行できるのかも分かりません・・・・。
本当に、初心者質問で申し訳ありません。
ただ、周りに知識のある人がいなくてほとほと困ってます。
どうぞ宜しくお願いします。
とりあえず、seq３だけでよければ、
選択エキスパート-「と等しい値」で 3を選択されれば、
seq３のデータのみ表示されると思いますが。
ご回答有り難うございました。
説明不足だったようで、申し訳ありませんでした。
Seq3のデータのみとは限らないのですが、質問した問題は解決しました。
やりたかったのは、下記テーブルのSeq3の項目名「うううう」を表示
させたかったのです。
<TBL A>
NO Seq 項目名
001 1 ああああ
001 2 いいいい
001 3 うううう
001 4 ええええ
(選択エキスパートでNO=001で絞っています。)
サブレポートを使うことで解決しました。
サブレポートは、項目名を表示させるだけの簡単なものにして、
リンクの項目で、サブレポート側をSeqにして、
親レポート側で値('3')を渡すという方法です。
CRさん、ご回答有り難うございました。
> SQLが実行出来るのであれば、
> select 項目名 from TBL A where Seq = 3
> を実行して表示させればいいかと思いますが、
> SQLが実行できるのかも分かりません・・・・。
プレビュー／印刷時に SQL を実行できますよ。
With CrystalReport1
.ReportFileName = "C:\Sample.rpt"
.DataFiles(0) = "C:\Sample.mdb"
.SelectionFormula = "{TBL.Seq} = 3"
.Destination = crptToWindow
lRetValue = .PrintReport
If lRetValue <> 0 Then MsgBox "[" & .LastErrorNumber & "]" & vbCrLf & .LastErrorString
End With
こんな感じです。