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 + " ==")