Private Function GetStackColumnData() As DataTable Dim mydata As New DataTable() ' 列と列名を定義します。 mydata.Columns.Add("Series Label", GetType(String)) mydata.Columns.Add("Segment A", GetType(Integer)) mydata.Columns.Add("Segment B", GetType(Integer)) mydata.Columns.Add("Segment C", GetType(Integer)) mydata.Columns.Add("Segment D", GetType(Integer)) ' データの行を追加します。 mydata.Rows.Add(New [Object]() {"Stack A", 1, 4, 10, 4}) mydata.Rows.Add(New [Object]() {"Stack B", 3, 6, 4, 5}) mydata.Rows.Add(New [Object]() {"Stack C", 5, 8, 6, 7}) mydata.Rows.Add(New [Object]() {"Stack D", 7, 10, 7, 7}) Return mydata End Function