DataTableのデバッグプリント
なんど書いただろうか
もう書きたくないので残しておこう
System.Diagnostics.Debug.WriteLine("== " + tbl.TableName + " ==") For Each c As DataColumn In tbl.Columns System.Diagnostics.Debug.Write(c.ColumnName() + vbTab) Next System.Diagnostics.Debug.WriteLine("") For Each r As DataRow In tbl.Rows For Each c As DataColumn In tbl.Columns Dim v As String If Not IsDBNull(r.Item(c.ColumnName)) Then v = CStr(r.Item(c.ColumnName)) Else v = "<null>" End If System.Diagnostics.Debug.Write(v + vbTab) Next System.Diagnostics.Debug.WriteLine("") Next System.Diagnostics.Debug.WriteLine("== " + tbl.TableName + " ==")