大変ご無沙汰しております。申し訳ございません。

2019/8/14 09:38:11に返答くださった内容について質問させていただきます。

For Each entry1 As KeyValuePair(Of KeyValuePair(Of String, String), String) In dic

     Dim newRow As DataRow = dt.NewRow()

     newRow("担当者名") = entry1.Key

     dt.Rows.Add(newRow)

     For Each entry2 As KeyValuePair(Of String, String) In entry1.Value

         newRow(entry2.Key) = entry2.Value

     Next

Next

ですと、

「列"何月何日"はテーブルに属していません」

というエラーが発生しました。

For Each entry1 As KeyValuePair(Of KeyValuePair(Of String, String), String) In dic

     Dim newRow As DataRow = dt.NewRow()

     newRow("担当者名") = entry1.Key

     dt.Rows.Add(newRow)

     For Each entry2 As KeyValuePair(Of String, String) In entry1.Value

         dt.Colums.Add(entry2.key)

         newRow(entry2.Key) = entry2.Value

     Next

Next

とすると、無事テーブルが完成しました。

　dt.Colums.Add(entry2.key)

の１行は必要と理解してよろしいでしょうか？

どうぞよろしくお願いします。