データテーブルの中身確認

データテーブルの中身を確認するロジック

毎回考えてるのでメモ

1.コンソールで確認

For Each Item As DataSet.datatableRow In datatable
Console.WriteLine(Item.colmunname.Tostring)
Next

2.XMLで確認

Datatable.writexml("path")

3.csvで確認

ret :datatable名
Dim Writer As New IO.StreamWriter("C:\DataTableTest.csv", False, System.Text.Encoding.GetEncoding("Shift-Jis"))
Dim LineText As String = ""

For i As Integer = 0 To ret.Columns.Count - 1

If Len(LineText) > 0 Then
LineText &= ","
End If
LineText &= CStr(ret.Columns(i).ColumnName)

Next

Writer.WriteLine(LineText)

For Each Row As DataRow In ret.Rows

LineText = ""

For i As Integer = 0 To ret.Columns.Count - 1

If Len(LineText) > 0 Then
LineText &= ","
End If
If Not IsDBNull(Row(i)) Then
LineText &= CStr(Row(i))
End If
Next

Writer.WriteLine(LineText)

Next

Writer.Close()