カラムのcsv出力

Question

Using writer As New StreamWriter("C:\Users\nsc\Documents\Visual Studio 2012\Projects\CostomerManagementSystem\CostomerManagementSystem\bin\Debug\ichiran.csv",
False, Encoding.Default)

		For i = 0 To DataGridView1.Rows.Count - 1
			Dim strList As New List(Of String)
			For j = 0 To DataGridView1.ColumnCount - 1
				strList.Add(DataGridView1(j, i).Value.ToString())

			Next
			Dim strary As String() = strList.ToArray
			Dim strCsvData As String = String.Join(",", strary)
			writer.WriteLine(strCsvData)
		Next
	End Using

	MessageBox.Show("一覧を出力しました", "顧客情報", MessageBoxButtons.OK, MessageBoxIcon.Information)

上記のコードでRowデータはcsvに出力できたのですがカラムの出力方法がわかりません
ご教示お願いしたします

Answer 1

For Each x In DataGridView1.Columns
  MessageBox.Show(x.Name)
Next

これでカラム名を取得することができます。
あとはStreamWriterでx.NameをWriteLine()すればOKです。

Answer 2

For i = 0 To DataGridView1.Columns.Count - 1

でカラムの数だけループして

DataGridView1.Columns(i).HeaderText.ToString

でカラムに設定してある名称を１つずつ出力してあげればいいと思います。