PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 11864 | 00/06/21 18:14:49 | RE(4):PB6.5: dddwカラムのModify関数によるプロパティ設定で内容が消える By BigBen |
| 11854 | 00/06/21 14:43:47 | RE(3):PB6.5: dddwカラムのModify関数によるプロパティ設定で内容が消える By てとらぽっと |
| 11853 | 00/06/21 14:10:27 | RE(2):PB6.5: dddwカラムのModify関数によるプロパティ設定で内容が消える By BigBen |
| 11848 | 00/06/21 09:46:30 | RE(1):PB6.5: dddwカラムのModify関数によるプロパティ設定で内容が消える By てとらぽっと |
| 11819 | 00/06/19 11:07:26 | PB6.5: dddwカラムのModify関数によるプロパティ設定で内容が消える By BigBen |
カテゴリ：PowerBuilderの開発環境
日付：2000年06月21日 14:10 発信者：BigBen
題名：RE(2):PB6.5: dddwカラムのModify関数によるプロパティ設定で内容が消える
てとらぽっとさん、こんにちは。
ｄｗは外部ソース・フリーフォームです。
ここに編集可能なdddw（a）、編集不可なdddw(b)を貼り付けてあります。
カラムの設定は「編集可能」以外特に変更していしていません。
以下が試して見たスクリプトです。
<< ウィンドウ-open >>
DataWindowChild ldwc
dw_1.SetTransObject(SQLCA)
dw_1.InsertRow(0)
If dw_1.GetChild(\"a\",ldwc) = 1 Then
ldwc.SetTransObject(SQLCA)
ldwc.SetFilter(\"年度 <= \'412\'\")
ldwc.Filter
End If
If dw_1.GetChild(\"b\",ldwc) = 1 Then
ldwc.SetTransObject(SQLCA)
ldwc.SetFilter(\"区分 <= 10\")
ldwc.Filter
End If
<< コマンドボタン-Clicked >>
DataWindowChild ldwc
Long a_p,a_f,b_p,b_f
If dw_1.GetChild(\"a\",ldwc) = 1 Then
a_p = ldwc.RowCount()
a_f = ldwc.FilteredCount()
End If
If dw_1.GetChild(\"b\",ldwc) = 1 Then
b_p = ldwc.RowCount()
b_f = ldwc.FilteredCount()
End If
<< dw_1-ItemChanged >>
DataWindowChild ldwc
Long a_p,a_f,b_p,b_f
String a_fs,b_fs
If dw_1.GetChild(\"a\",ldwc) = 1 Then
a_p = ldwc.RowCount()
a_f = ldwc.FilteredCount()
a_fs = ldwc.Describe(\"DataWindow.Table.Filter\")
End If
If dw_1.GetChild(\"b\",ldwc) = 1 Then
b_p = ldwc.RowCount()
b_f = ldwc.FilteredCount()
b_fs = ldwc.Describe(\"DataWindow.Table.Filter\")
End If
// 背景色設定
dw_1.Object.a.BackGround.Color = RGB(192,192,192)
dw_1.Object.b.BackGround.Color = RGB(192,192,192)
If dw_1.GetChild(\"a\",ldwc) = 1 Then
a_p = ldwc.RowCount()
a_f = ldwc.FilteredCount()
a_fs = ldwc.Describe(\"DataWindow.Table.Filter\")
End If
If dw_1.GetChild(\"b\",ldwc) = 1 Then
b_p = ldwc.RowCount()
b_f = ldwc.FilteredCount()
b_fs = ldwc.Describe(\"DataWindow.Table.Filter\")
End If
不細工なスクリプトですが以上です。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS Oracle SQL*Net 2.3
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.