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

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

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

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

VB.NET
1Imports System.IO
2Imports System.Text
3Imports Microsoft.VisualBasic.FileIO
4
5Public Class ToDoリスト
6
7    Dim FilePath = "C:\ファイルパス\ToDoList.csv"
8
9    Public Sub ToDoリスト_Load(sender As Object, e As EventArgs) Handles MyBase.Load
10
11        Me.ReadCsv()
12
13    End Sub
14
15
16
17    '登録ボタン
18    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
19
20        'グリッド初期化
21        DataGridView2.Rows.Clear()
22
23        If RichTextBox1.Text = "" Then  'テキストボックスが空の時エラー
24            MessageBox.Show("内容を入力してください")
25
26        Else
27
28            Dim Status As String
29
30
31            If RadioButton1.Checked = True Then
32                Status = "未着手"
33
34            ElseIf RadioButton2.Checked = True Then
35                Status = "着手中"
36
37            ElseIf RadioButton3.Checked = True Then
38                Status = "完了"
39            Else　　　　　　　　　　　　　'状態が未選択の時エラー
40                MessageBox.Show("状態が選択されていません。")
41                Exit Sub
42            End If
43
44
45
46
47            'csvファイルへ書き出し
48            Dim r As New Random           '乱数作成（Id)
49            Dim id As Integer = r.Next(1, 1001)
50
51            Dim sw As New StreamWriter(FilePath, True, Encoding.GetEncoding("shift_jis"))
52            sw.WriteLine(MonthCalendar1.SelectionStart.ToString("yyyy/MM/dd") & "," &
53                         RichTextBox1.Text.ToString() & "," &
54                         Status.ToString() & "," &
55                         id.ToString())
56
57            sw.Close()
58
59            'csvデータファイル読み込み
60            Me.ReadCsv()
61
62            'テキストボックスクリア
63            RichTextBox1.Clear()
64
65        End If
66    End Sub
67
68
69
70
71    'ファイルを読み込みDataGridViewに表示
72    Public Sub ReadCsv()
73        Dim FilePath = "C:\ファイルパス\ToDoList.csv"
74        Dim parser As TextFieldParser = New TextFieldParser(FilePath, Encoding.GetEncoding("Shift_JIS"))
75        parser.TextFieldType = FieldType.Delimited
76        parser.SetDelimiters(",")
77
78        'csvファイルの最終行まで読みこむ
79        While (Not parser.EndOfData)
80
81            Dim row As String() = parser.ReadFields()
82            If row(0).ToString() = MonthCalendar1.SelectionStart.ToString("yyyy/MM/dd") Then
83                DataGridView2.Rows.Add(row)
84                '日付は変更不可とする
85                DataGridView2.Columns(0).ReadOnly = True
86
87            End If
88
89        End While
90    End Sub
91
92    'カレンダー日付押下で対象日データ表示
93    Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged
94
95        DataGridView2.Rows.Clear()
96        Me.ReadCsv()
97
98    End Sub
99
100
101    '更新ボタン
102    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
103
104
105
106        Dim FilePath = "C:\ファイルパス\ToDoList.csv"
107        Dim sr As New StreamReader(FilePath, Encoding.GetEncoding("shift_jis"))
108        Dim tmpPath As String = Path.GetTempFileName()
109        Dim sw As New StreamWriter(tmpPath, True, Encoding.GetEncoding("shift_jis"))
110
111        Dim parser As TextFieldParser = New TextFieldParser(FilePath, Encoding.GetEncoding("Shift_JIS"))
112        parser.TextFieldType = FieldType.Delimited
113        parser.SetDelimiters(",")
114
115
116        Dim row As String() = parser.ReadFields()
117            Dim RowId As String = row(3).ToString()   'ファイル内Idの値
118
119        While sr.Peek() > -1
120
121
122            Dim i As Integer = DataGridView2.Rows.Count - 1
123
124            '非表示項目IdとデータファイルのIdが一致していたら更新
125            If DataGridView2.Rows(i).Cells(3).Value = RowId Then
126
127                sw.WriteLine(DataGridView2.Rows(i).Cells(0).Value.ToString() & "," &
128                                 DataGridView2.Rows(i).Cells(1).Value.ToString() & "," &
129                                 DataGridView2.Rows(i).Cells(2).Value.ToString() & "," &
130                                 DataGridView2.Rows(i).Cells(3).Value.ToString())
131
132            Else
133                'Id不一致の場合はそのまま
134                Dim line As String = sr.ReadLine()
135                sw.WriteLine(line)
136
137            End If
138
139        End While
140
141        sr.Close()
142        sw.Close()
143
144        File.Copy(tmpPath, FilePath, True)
145        File.Delete(tmpPath)
146
147
148        MessageBox.Show("更新しました☆")
149    End Sub
150
151
152    '閉じるボタン
153    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
154        Me.Close()
155    End Sub
156
157End Class
158
159```

YAmaGNZ

2020/03/08 16:32

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

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

回答2件

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

VB.NET
1dataGridView1.DataSource = dataTable1

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

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

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

投稿2020/03/24 19:13

freemann

総合スコア264

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