DataGridViewの行追加時、前行の特定セル値を追加した行にもセットしたい

Question

11月からVB.NET触り始めました。

前提・実現したいこと

DBから持ってきたデータをDataGridViewにセットして表示しているのですが、
そこに新しい行を「画面上で追加」操作したとき、前行の特定のセルに入っている値をその新しく追加した行の特定セルにセットしたいです。

例）

ID	NAME	CLASS
0001	NIC	1J
0002	EDGAR	1J
0003	GEORGE	2J
0004	ALFRED	3J
	3J

最終行が新規に追加する行。
このとき、前行のCLASSセル「J3」が新規追加した行の同じセルにセットされるようにしたいです。
行の追加は、画面に「＋行追加」のボタンを用意して、クリックするたびに新規行が追加されるようにしたいです。

現在の進捗

ボタンを押したら新規行が追加される、というところまでは実装しました。

該当のソースコード

 Private Sub NewRowsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewRowsButton.Click
        Dim dr As DataRow = ClassList.NewRow
        ClassList.Rows.Add(dr)
    End Sub

試したこと

 Private Sub NewRowsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewRowsButton.Click
        Dim dr As DataRow = ClassList.NewRow
        dr("CLASS") = "J3"
        ClassList.Rows.Add(dr)
    End Sub

上記のようにすると行追加時にCLASSセルに「J3」と出るのですが、当然前行が必ず「J3」になるとも限らないのでダメでした。

追加の疑問

新規追加した行を削除するとき、

 Private Sub DeleteRowsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteowsButton.Click
        Try
            'DataGridView = mrs
            Dim ClassData As DataTable = CType(mrs.DataSource, DataTable)

            For i As Integer = 0 To ClassData.Rows.Count - 1
                'celCHECKは選択ボックスです。未選択で「0」　選択すると「1」に変わります
                If ConvertInt32(ClassData.Rows(i)("CHECK")) = 0 Then Continue For

                ClassData.Rows.RemoveAt(i)

            Next

        Catch ex As Exception
            m_objLogFunc.WriteExceptionLog(ex)
        Finally
            '強制的に画面に戻る
            getMenuBar()
        End Try
    End Sub

このように削除処理を入れているのですが、
例えば5行分データがあるとき、3行目(Rows(2))を削除する際に「5行目(Rows(4))に行がない」ということで突き返されてしまいます。
削除後「i -= 1」を入れたらいけるだろうか、と思ったのですがうまくできませんでした。新規行追加と合わせて、もし良いアドバイスがあれば賜りたいと思います。
よろしくお願いします。

Comments

[退会済みユーザー]

全体的にどのような構成になっているのでしょう？ Visual Studio のデータソース構成ウィザードを使ってアプリを自動生成すると、型付 DataSet/DataTable に BindingSource と BindingNavigator を組み合わせて、それ経由で DataGridView にデータバインドするコードになりますが、そのような構成ですか？

[退会済みユーザー]

データソース構成ウィザードを使ってアプリを自動生成するとどのような構成になるかは以下の記事の図を見てください。

Windows フォーム アプリケーションでのデータへの接続
https://docs.microsoft.com/ja-jp/previous-versions/wxt2cwcc(v=vs.120)?redirectedfrom=MSDN

[mahry]

データソース構成ウィザードは使用していません。
https://qiita.com/MochiMochiChip/items/b4dbb6636b42c78db92c
上記をお手本にDBから持ってきたデータを「DataSource」セットしています。

[退会済みユーザー]

データソース構成ウィザードを使って作ることをお勧めします。勉強のために使わないで作ってみるというのは良いかもしれませんが、その前に基本はどういうものかを知っておいた方がよさそうです。

Answer 1

手っ取り早く前最終行の値を取得したいなら、こんな感じでしょうか？
（ClassListが空である場合はそれなりの対策をしてください。）

    Dim drLast As DataRow = ClassList.Rows(ClassList.Rows.Count - 1))
    Dim className As String = drLast("CLASS")
    Dim dr As DataRow = ClassList.NewRow
    dr("CLASS") = className
    ClassList.Rows.Add(dr)

追加の疑問への回答

本当は、別の質問としてスレッドを立てた方がよいと思いますが、ここで追加の疑問にお答えします。
For i = 0 To...～Nextの中でClassData.Rows.RemoveAt(i)のような行削除はお勧めできません。
ループ内でClassData.Rows.RemoveAt(i)を行うと、除かれたDataRowの分だけインデックスがズレます。
これにより、場合によってはRows(i)のDataRowが意図したものと異なるDataRowである恐れがあります。
また、ループで「For i As Integer = 0 To ClassData.Rows.Count - 1」と定義した場合、ループの途中でClassData.Rows.Countの値が変化しても、iの上限がループ開始時のまま固定になってしまうと思います。
これが「5行目(Rows(4))に行がない」エラーの理由だと思います。

対応策は色々とあるのですが、もし、今のコードを流用したいのであれば、
「For i As Integer = 0 To ClassData.Rows.Count - 1」の代わりに、
「For i As Integer = ClassData.Rows.Count - 1 To 0 Step -1」
のように行を逆方向から評価することです。
これならDataRowの抜けによるズレは気にしなくて済みます。

Comments

[mahry]

回答ありがとうございます！
これで一度試してみようと思います！

[kenshirou]

一応、追加の疑問に対しても回答しました。
本当は、DataGridView側で削除とか、そういうことがしたいのかなとも思いましたが、とりあえずは一般的な考え方として、回答しました。

[mahry]

エラー理由と現行コードの指摘点だけでなく対応策まで教えていただき、とても助かりました。逆方向からの評価で上手くいきました。ありがとうございました！！