[リストへもどる]
一括表示

投稿時間:2003/02/08(Sat) 01:27
投稿者名:ハイライト
URL :
タイトル:
フレキシブルグリッドの削除
通常の削除とは違い、複数選択したものを削除するにはどうしたらいいのでしょうか?
たとえば、「文字列「ハイライト」の入った行を削除する」といった感じです。
教えていただけますでしょうか?よろしくお願いします。

投稿時間:2003/02/08(Sat) 10:10
投稿者名:takk
Eメール:
URL :
タイトル:
Re: フレキシブルグリッドの削除
> 通常の削除とは違い、複数選択したものを削除するにはどうしたらいいのでしょうか?
> たとえば、「文字列「ハイライト」の入った行を削除する」といった感じです。
> 教えていただけますでしょうか?よろしくお願いします。

現在選択されているセルはCol、ColSel、Row、RowSelプロパティで範囲を取得することが出来るので
あとは適当に削除すれば良いと思います。

また文字列「ハイライト」の入った行を削除する場合は、1行ずつ調べるしかないと思います。

投稿時間:2003/02/08(Sat) 10:33
投稿者名:ハイライト
URL :
タイトル:
Re^2: フレキシブルグリッドの削除
お返事ありがとうございます。
フレキシブルグリッドの列に「□」と「■」を設け、「■(チェックがON)」になった行を削除するというものなのですが、
Private sub mnuEditDelete()
with msgMain
  for r=1 to .Rows-1
   If .Textmatrix(r,23)="■" Then
    .Row=.TopRow
    .RemoveItem .TopRow
など、いろいろ試してみたのですがいまいちうまくいきません。もう一度ご教授願えますでしょうか?

投稿時間:2003/02/08(Sat) 10:28
投稿者名:NEU(ノイ)
Eメール:
URL :
タイトル:
Re: フレキシブルグリッドの削除
最下行から上に向かって検索するコードを書き、文字が見つかれば
RemoveItemメソッドで行を削除します。

投稿時間:2003/02/08(Sat) 10:42
投稿者名:ハイライト
URL :
タイトル:
Re^2: フレキシブルグリッドの削除
> 最下行から上に向かって検索するコードを書き、文字が見つかれば
> RemoveItemメソッドで行を削除します。

Private Sub mnuEditDelete_Click()

    With msgMain
        For r = .Rows - 1 To 1 Step -1
            If .TextMatrix(r, 23) = "■" Then
                .RemoveItem r
            End If
        Next
    End With

End Sub

上記のやり方で解決しました!ありがとうございます。
最下行からというのは思いつきませんでした!