Dim dtOriginal As New DataTable dtOriginal.Columns.Add("Field1", GetType(String)) dtOriginal.Columns.Add("Field2", GetType(String)) dtOriginal.Columns.Add("Field3", GetType(Integer)) dtOriginal.Rows.Add(New Object() {"りんご", "青森", 100}) dtOriginal.Rows.Add(New Object() {"りんご", "青森", 100}) dtOriginal.Rows.Add(New Object() {"みかん", "愛媛", 100}) dtOriginal.Rows.Add(New Object() {"みかん", "和歌山", 100}) dtOr