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

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

前提・実現したいこと

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

例）

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

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

現在の進捗

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

該当のソースコード

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

試したこと

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

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

追加の疑問

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

VB.NET
1 Private Sub DeleteRowsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteowsButton.Click
2        Try
3            'DataGridView = mrs
4            Dim ClassData As DataTable = CType(mrs.DataSource, DataTable)
5
6            For i As Integer = 0 To ClassData.Rows.Count - 1
7                'celCHECKは選択ボックスです。未選択で「0」　選択すると「1」に変わります
8                If ConvertInt32(ClassData.Rows(i)("CHECK")) = 0 Then Continue For
9
10                ClassData.Rows.RemoveAt(i)
11
12            Next
13
14        Catch ex As Exception
15            m_objLogFunc.WriteExceptionLog(ex)
16        Finally
17            '強制的に画面に戻る
18            getMenuBar()
19        End Try
20    End Sub

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

退会済みユーザー

2019/12/05 21:50

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

退会済みユーザー

2019/12/06 01:35

データソース構成ウィザードを使ってアプリを自動生成するとどのような構成になるかは以下の記事の図を見てください。 Windows フォームアプリケーションでのデータへの接続 https://docs.microsoft.com/ja-jp/previous-versions/wxt2cwcc(v=vs.120)?redirectedfrom=MSDN

mahry

2019/12/06 01:39

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

退会済みユーザー

2019/12/06 02:19

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

VB
1    Dim drLast As DataRow = ClassList.Rows(ClassList.Rows.Count - 1))
2    Dim className As String = drLast("CLASS")
3    Dim dr As DataRow = ClassList.NewRow
4    dr("CLASS") = className
5    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の抜けによるズレは気にしなくて済みます。

投稿2019/12/05 08:06

編集2019/12/06 01:03