C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[4]: クリスタルレポートに任意の数字から連番を振る

(過去ログ 63 を表示中)

[トピック内 5 記事 (1 - 5 表示)]　 << 0 >>

■36395 / inTopicNo.1)

　クリスタルレポートに任意の数字から連番を振る

▼■

□投稿者/ hs (40回)-(2009/05/28(Thu) 12:44:30)

分類:[VB.NET/VB2005 以降]　

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

VS2008 VBで開発しています。

クリスタルレポートに任意の数から連番を振る手法について試行錯誤しております。
今回レポートをプレビューする際、不正防止のため、発行IDを設け毎回プレビューする際に、発行IDを新たに振りなおそうと考えています。

・システム運用開始時には、My.Settingに発行IDを設け、初期値を0としてスタートします。
・プレピュー毎に表示されるレポートのページ数まで毎回インクリメント
・例えばシステム運用開始後初めてのプレビューの場合、5件のデータがあったとします。
1件目のレポートの初期値の発行IDは0ですので、0となり2～5件のレポートには、1,2,3,4とインクリメントしたいです。
・インクリメントされた発行IDの最大番号、今回は4ですので、My.Setting.発行IDには次回スタートとなる5を保存しておきます。
・仮に同じ条件でプレビューされた場合にも、My.Setting.発行IDに格納してある5を発行IDのスタートとし各レポートの発行IDは5～9とし、毎回、My.Setting.発行IDに格納してある番号をスタートとし連番を振れればと考えています。

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

引用返信 編集キー/

■36418 / inTopicNo.2)

　Re[1]: クリスタルレポートに任意の数字から連番を振る

▲▼■

□投稿者/ 魔界の仮面弁士 (1103回)-(2009/05/28(Thu) 18:53:17)

■No36395 (hs さん) に返信
> ご教授よろしくお願いします。

肝心の質問内容が書かれていないようですが…。

(1) My.Setting から値を取得する方法が分からない／期待動作してくれない。
(2) My.Setting に値を書き込む方法が分からない／期待動作してくれない。
(3) クリスタルレポートに値を渡す方法が分からない／期待動作してくれない。
(4) 連番は出力できているが、この方法で何か問題が無いかどうか評価して欲しい。
(5) その他。

引用返信 編集キー/

■36427 / inTopicNo.3)

　Re[2]: クリスタルレポートに任意の数字から連番を振る

▲▼■

□投稿者/ hs (41回)-(2009/05/28(Thu) 21:22:47)

■No36418 (魔界の仮面弁士さん) に返信
> 肝心の質問内容が書かれていないようですが…。

大変失礼しました。
My.Setting から値を取得・書き込みはできています。
クリスタルレポートに値を渡す方法が分かりません。
連番は出力できてません。

やりたい事しか考えられず、手法はまったくわかりません。

よろしくお願いします。

引用返信 編集キー/

■36433 / inTopicNo.4)

　Re[3]: クリスタルレポートに任意の数字から連番を振る

▲▼■

□投稿者/ やじゅ (1015回)-(2009/05/28(Thu) 22:28:04)

■No36427 (hs さん) に返信
> クリスタルレポートに値を渡す方法が分かりません。
> 連番は出力できてません。
>
> やりたい事しか考えられず、手法はまったくわかりません。
>

やりたい事をキーワードにして検索するですよ。みなは、そうしてる
なので、「クリスタルレポートに値を渡す」で検索してみては
いかがでしょう。

引用返信 編集キー/

■36470 / inTopicNo.5)

　Re[4]: クリスタルレポートに任意の数字から連番を振る

▲▼■

□投稿者/ hs (42回)-(2009/05/29(Fri) 12:43:41)

■No36433 (やじゅさん) に返信

> やりたい事をキーワードにして検索するですよ。みなは、そうしてる
> なので、「クリスタルレポートに値を渡す」で検索してみては
> いかがでしょう。

何とかやりたい事ができました。
PGは以下のとおりです。

’　 'レポートのデータを一括取得
.　　Da = New OleDb.OleDbDataAdapter(SQL, Cn)
.　　Da.Fill(Ds, "Table")

.　　'フィールド(発行ID)追加
.　　Ds.Tables("Table").Columns.Add("発行ID")

.　　'Dsに発行ID を書き込み
.　　Dt = Ds.Tables("Table")

.　　Dim n As Long = My.Settings.発行ID
.　　For Each Drow As DataRow In Dt.Rows
.　　　　Drow("発行ID") = CStr(n)
.　　　　n += 1
.　　Next

.　　'次回、プレビュー時用、発行IDを格納
.　　My.Settings.発行ID = n

.　　'レポートソースをセット
.　　Me.CrystalReportViewer.ReportSource = Ds

難しく考えていたみたいです。

また何かあった時はよろしくお願いします。

解決済み

引用返信 編集キー/

トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

- Child Tree -