更新ボタンで対象の行だけ値を置き換えたい

Question

visual studioのwindowsフォームアプリケーションで
vb.netを使用しToDoリストなるものをつくっています。

テキストボックスにタスクを入力し、「登録」ボタン押下でデータをcsvに出力し
それをdatagridviewに表示させるというものですが、表示されているdatagridviewの値を変更して「更新」ボタンを押下したときの処理がうまくいかず困っています。

現在はタスク登録時に乱数でIdを項目として持たせ、「更新」押下時にその乱数が表示されているデータのものと一致していたらデータを上書きという処理にしていますが、更新押下時の画面は更新されていてもcsvファイルが更新されていないので再表示すると元に戻っている状態です。
初心者の質問で恐れ入りますが、ご回答いただけるとありがたいです。

Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic.FileIO

Public Class ToDoリスト

    Dim FilePath = "C:\ファイルパス\ToDoList.csv"

    Public Sub ToDoリスト_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.ReadCsv()

    End Sub



    '登録ボタン
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'グリッド初期化
        DataGridView2.Rows.Clear()

        If RichTextBox1.Text = "" Then  'テキストボックスが空の時エラー
            MessageBox.Show("内容を入力してください")

        Else

            Dim Status As String


            If RadioButton1.Checked = True Then
                Status = "未着手"

            ElseIf RadioButton2.Checked = True Then
                Status = "着手中"

            ElseIf RadioButton3.Checked = True Then
                Status = "完了"
            Else　　　　　　　　　　　　　'状態が未選択の時エラー
                MessageBox.Show("状態が選択されていません。")
                Exit Sub
            End If




            'csvファイルへ書き出し
            Dim r As New Random           '乱数作成（Id)
            Dim id As Integer = r.Next(1, 1001)

            Dim sw As New StreamWriter(FilePath, True, Encoding.GetEncoding("shift_jis"))
            sw.WriteLine(MonthCalendar1.SelectionStart.ToString("yyyy/MM/dd") & "," &
                         RichTextBox1.Text.ToString() & "," &
                         Status.ToString() & "," &
                         id.ToString())

            sw.Close()

            'csvデータファイル読み込み
            Me.ReadCsv()

            'テキストボックスクリア
            RichTextBox1.Clear()

        End If
    End Sub




    'ファイルを読み込みDataGridViewに表示
    Public Sub ReadCsv()
        Dim FilePath = "C:\ファイルパス\ToDoList.csv"
        Dim parser As TextFieldParser = New TextFieldParser(FilePath, Encoding.GetEncoding("Shift_JIS"))
        parser.TextFieldType = FieldType.Delimited
        parser.SetDelimiters(",")

        'csvファイルの最終行まで読みこむ
        While (Not parser.EndOfData)

            Dim row As String() = parser.ReadFields()
            If row(0).ToString() = MonthCalendar1.SelectionStart.ToString("yyyy/MM/dd") Then
                DataGridView2.Rows.Add(row)
                '日付は変更不可とする
                DataGridView2.Columns(0).ReadOnly = True

            End If

        End While
    End Sub

    'カレンダー日付押下で対象日データ表示
    Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged

        DataGridView2.Rows.Clear()
        Me.ReadCsv()

    End Sub


    '更新ボタン
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click



        Dim FilePath = "C:\ファイルパス\ToDoList.csv"
        Dim sr As New StreamReader(FilePath, Encoding.GetEncoding("shift_jis"))
        Dim tmpPath As String = Path.GetTempFileName()
        Dim sw As New StreamWriter(tmpPath, True, Encoding.GetEncoding("shift_jis"))

        Dim parser As TextFieldParser = New TextFieldParser(FilePath, Encoding.GetEncoding("Shift_JIS"))
        parser.TextFieldType = FieldType.Delimited
        parser.SetDelimiters(",")


        Dim row As String() = parser.ReadFields()
            Dim RowId As String = row(3).ToString()   'ファイル内Idの値

        While sr.Peek() > -1


            Dim i As Integer = DataGridView2.Rows.Count - 1

            '非表示項目IdとデータファイルのIdが一致していたら更新
            If DataGridView2.Rows(i).Cells(3).Value = RowId Then

                sw.WriteLine(DataGridView2.Rows(i).Cells(0).Value.ToString() & "," &
                                 DataGridView2.Rows(i).Cells(1).Value.ToString() & "," &
                                 DataGridView2.Rows(i).Cells(2).Value.ToString() & "," &
                                 DataGridView2.Rows(i).Cells(3).Value.ToString())

            Else
                'Id不一致の場合はそのまま
                Dim line As String = sr.ReadLine()
                sw.WriteLine(line)

            End If

        End While

        sr.Close()
        sw.Close()

        File.Copy(tmpPath, FilePath, True)
        File.Delete(tmpPath)


        MessageBox.Show("更新しました☆")
    End Sub


    '閉じるボタン
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

End Class

```

Comments

[YAmaGNZ]

質問内容とは関係ありませんが、同じIDになったらまずいんじゃないですか？
乱数なので同じ値を取ることがありますよ。
また、内容にカンマを含む入力をされた場合もまずそうですね。

Answer 1

考え方が違うかもしれませんが、CSVファイルのデータを一旦DataTableに読み込んで、そこで日付で要らないレコードはDataTableから削除して、残った結果を

dataGridView1.DataSource = dataTable1

と言う感じにしてはどうでしょうか。
dataGridView1のデータをユーザが書き換えたら、DataTableからではなく、dataGridView1から直接データを拾って書き出して、その後で再度書き出したCSVファイルを読み込んで、dataGridView1に表示するという処理がいいような気もします。

CSVファイルのデータを一旦DataTableに読み込んでDataGridViewに表示する

DataTableのデータをCSVファイルに保存する

Answer 2

ブレークポイントを使ってＦ８（ステップイン）を押して
1行ずつデバックしましょう
恐らく
書き込む時
最後のDatagridviewの行が追加可能になってるので
Dim i As Integer = DataGridView2.Rows.Count - 1しても空の値を参照している
datagridviewの設定が足りない？
datagridview2.AllowUserToAddRows=false
Dim i As Integer = DataGridView2.Rows.Count - 1の影響で
書き込む時の比較がおかしい