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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.