hirotyanさん、こんにちは。

＞njさん、こんにちは。
＞
＞＞すいません。説明不足でした。
＞＞上で言っていることは、一行目から最終行までループで回して色を塗りつぶしたい行のことです(^^;)
＞＞(つまり、指定行のことです)
＞
＞すみません、まだよく解らないのですが、どういう動きをするのですか？
＞何行か複数行を選んで、その複数の行の色を変更したいということですか？

えっと、まず一行目から、最終行までをループで回し
次にIFで数量が１の場合、そこの行の数量に色を塗りつぶすという処理をしています。

＞
＞シングルクォーテーションは、プロパティー全体を囲まなくてはダメなので、
＞これではGetRow()=で途切れていることになってしまいます。
＞dw_1.Modify(\"aaa.BackGround.Color=\'12632256~tIf(GetRow() = \" + string(i) +　\",RGB
(255,255,255),RGB
＞(192,192,192))\'\")
＞にすればおっけーです。
＞
＞Modifyがややこしいようなら、
＞PowerBuilder技術情報にあったようにペインタで設定するのも手ですよ。
＞結果は同じになりますんで。
＞

どうもありがとうございます。
でも、不思議なことに上のような条件(数量 = 1)に当てはまる所に、色を塗りつぶしているのですが
条件に当てはまる最後の行にしか色が塗りつぶされません。
条件に当てはまる件数が５件あるとすれば、最後の５件目にしか色が塗りつぶされないのには
何か原因があるのでしょうか？

２回目に、今度は条件が４件当てはまるように設定してみても、条件に当てはまる４件目にしか
色が塗りつぶされていませんでした。

For i = 1 to dw_1.rowcount()
 IF 数量 = 1 Then

  dw_1.Modify(\"aaa.BackGround.Color=\'12632256~tIf(GetRow() = \" + string(i) +　\",RGB  
(255,255,255),RGB
(192,192,192))\'\")

 EndIF
Next

これで、条件に当てはまるi番目の行だけ色が塗りつぶされると思うのですが
これではいけないのでしょうか？
またよろしくお願いします