CSVファイルの読み込みとdatatableへの格納

Question

###前提・実現したいこと

上記の様なCSVファイルがあり、1列目がPARAMETERの行だけをあらかじめ用意したDatasetの、Datatableに格納したいと考えています。
ResultOfTxtというDatasetの中に、tag,value,min,maxというカラムが存在するNo1というDataTableが用意されています。

###発生している問題・エラーメッセージ

下記のソースを書いて、datagridviewに表示させた所、よく分からない格納のされ方になっていました。
上記の例であれば、本来は
tag value min max
A 300 100 200
B 200 100 200
C 300 100 200

という風になってほしいです。

###該当のソースコード

Dim dataset As DataSet = New ResultOfTxt
Dim datarow As DataRow
Dim datatable As DataTable = New ResultOfTxt.No1DataTable

Dim path As String = "C:\～"
Dim parser1 As TextFieldParser = New TextFieldParser(path, Encoding.GetEncoding("Shift_JIS"))
parser1.TextFieldType = FieldType.Delimited
parser1.SetDelimiters(",")

While (Not parser1.EndOfData)

                datarow = datatable.NewRow()
                For i As Integer = 0 To datatable.Columns.Count - 1 Step 1
                    For j As Integer = i + 1 To datatable.Columns.Count - 1 Step 1
                        Dim row1 As String() = parser1.ReadFields()
                        If row1(0) = "PARAMETER" Then
                            datarow(i) = row1(j)
                        End If
                    Next
                Next i
                datatable.Rows.Add(datarow)
End While

何かアドバイスがあればご教授お願いいたします。

Answer 1

質問記載のコードでは何のためにforループが入れ子になっているのでしょうか？（何のためのループ？）

コメントはきちんと書きましょう。
これを行うだけで考えている事と書いたコードが合っているか確認（というか整理）できます。

// csvのすべての行を読み終わってない場合
While (Not parser1.EndOfData)
	// csvから1行読み込む
	Dim row1 As String() = parser1.ReadFields()

	/* csvの1カラム目が"PARAMETER"なら2カラム目以降をdatarowの1カラムから代入する */
	If row1(0) = "PARAMETER" Then
		// datatableのrowのcolumn数だけループ
		For i As Integer = 0 To datatable.Columns.Count - 1 Step 1
			datarow(i) = row1(i+1)
		Next i
	End If
	datatable.Rows.Add(datarow)
End While

Comments

[churi_yuzuki]

回答ありがとうございます。
理想の動きが実現できました、ありがとうございます！
そうですね、、コメントを書くように心がけたいと思います。。

[Y.H.]

私のやり方ですが、参考程度に。
コーディングするとき、最初に大まかな流れ（処理）をコメントで書き、そのコメントに従ってコードを埋めるようにしています。最後にコメントとコードを見直して必要であれば修正。