| 投稿日 | ： 2003/02/08(Sat) 10:42 |
| 投稿者 | ： ハイライト |
| ＵＲＬ | ： |
| タイトル | ： 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
上記のやり方で解決しました！ありがとうございます。
最下行からというのは思いつきませんでした！