gridでデータ削除後に上へ１件分詰めて表示する方

質問

gridでデータ削除後に上へ１件分詰めて表示する方法

gridがあってデータが削除されるとその１件分上に詰めて表示されるような
プログラムを作りたいのですがアルゴリズムがわかりません
Rowには削除された行の行番号が入ります。
intIndexにはグリッドの全行数の件数が入ります。
この先がわかりません（一応自分で考えた限界です）
どなたかプログラムのコードをご回答していただけませんでしょうか

intIndex = flexgridList.Rows.Count - 1
Dim tempCode As String
Dim tempName As String
While intIndex > Row - 1
tempCode = flexgridList(intIndex - 1, "code")
tempName = flexgridList(intIndex - 1, "name")
flexgridList(intIndex - 1, "code") = flexgridList(intIndex, "code")
flexgridList(intIndex - 1, "name") = flexgridList(intIndex, "name")

intIndex -= 1
End While

グリッドはflexgridを使用しています。
どうかよろしくお願いいたします。

回答No.1

taro_y · ベストアンサー

flexgridを使ったことがないので、考え方だけ答えさせていただきます。

1,2,3,4,5行のデータがあるときに2を消したら3,4,5はそれぞれ一つ上の行にデータを動かす必要がありますよね？
その場合、3から順に動かしていかないと、下の行がまだデータのある行を上書きしてしまいます。
tkwavekさんが書かれているソースだと5から動かしているため、生きているデータが消えてしまっています。
また、tempCodeやtempNameに格納されたデータが使用されていないため無意味です。

Dim i As Integer
i = Row

' 一つずつ上に上げていく
For i to flexgridList.Rows.Count - 2
　flexgridList(i, "code") = flexgridList(i + 1, "code")
　flexgridList(i, "name") = flexgridList(i + 1, "name")
Next

' 最終行を空白にする
i = flexgridList.Rows.Count - 1
flexgridList(i, "code") = ""
flexgridList(i, "name") = ""

こんな感じじゃないでしょうか？
flexgridやflexgridListがなんなのか理解せずに答えているため、
ずれた回答をしていたら済みません。

お礼

ご回答ありがとうございます
回答していただいたプログラムと
flexgridの若干のくせを修正するために下記コードを追加することで
実現しました。ありがとうございました。
flexgridList.row = 0

flexgridList.col = 0