PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
21491 | 04/08/18 11:16:28 | RE(2):PB7.0: InsertRowしたDWに更に値をセットする By sori |
21490 | 04/08/18 10:13:47 | RE(1):PB7.0: InsertRowしたDWに更に値をセットする By Chicchi |
21489 | 04/08/17 19:51:58 | PB7.0: InsertRowしたDWに更に値をセットする By sori |
カテゴリ:スクリプトの記述
日付:2004年08月17日 19:51 発信者:sori
題名:PB7.0: InsertRowしたDWに更に値をセットする
こんばんは。
前回はInertRowのDWの並び順でお世話になったsoriです。
悲しい事に更新確認で「はい」を選択したら、
入庫Noを発番するという仕様になり、
この項目だけ後でセットしなければならなくなりました。
入庫Noが必要なのはdw_3,dw_7です。
以前、同期がとれなくなる可能性があるとアドバイスいただいたんですが、
下記のようにしてみました。
これならいけるかと思っているのですが、どうでしょうか?
dw_3の行数を基本にFor文でまわします。
dw_7のキーは入庫予定Noです。
それをキーにFind関数で該当する行番号を取得し、
取得した行番号に同じ入庫Noをセットする。
ll_end = dw_3.RowCount()
For ll_cnt = 1 To ll_end
IF ll_cnt > 1 THEN // 入庫Noのカウント
ll_nykno = ll_nykno + 1
END IF
// 入庫Noをセット
//test
int test
test=this.SetItem(ll_cnt,\"入庫no\",string(ll_nykno))
// dw_7を検索
ls_yotei = this.GetItemString(ll_cnt,\"入庫予定No\")
ll_found = dw_7.Find(\"入庫予定No=\'\" + ls_yotei +\"\'\",1,dw_7.RowCount())
IF ll_found > 0 THEN
test=dw_7.SetItem(ll_found,\"入庫no\",string(ll_nykno))
ELSE
MessageBox(\"dw_3\",\"料金情報の取得に失敗しました\")
g_error = -1
Return
END IF
Next
どうでしょうか?
これ以外に今のところやり方が浮かばないんですが
アドバイスお願い致します。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS Microsoft SQL Server Client 6.5
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Microsoft SQL Server 6.5
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.