DataTableをForEachでGroupByするには？ (ID:146688)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 とりあえずサンプル。 Sub Main() Dim tbl = CreateDummy() Dim q = From row In tbl.Rows Group By Code = row("COL1") Into Hoge = Group Console.WriteLine("===グループ化===") Console.WriteLine(String.Format("{0}件", q.Count)) For Each z In q Console.WriteLine(z.Code) Next Console.WriteLine() Console.WriteLine("===グループの内訳===") For Each z In q Console.WriteLine(String.Format("{0}が{1}件", z.Code, z.Hoge.Count)) For Each o In z.Hoge Console.WriteLine("-->" & o("COL1") & "," & o("COL2") & "/" & o("COL3")) Next Next End Sub Function CreateDummy() As DataTable Dim tbl As New DataTable() tbl.Columns.Add("COL1") tbl.Columns.Add("COL2") tbl.Columns.Add("COL3") tbl.Rows.Add("aaa", "111", "あああ") tbl.Rows.Add("aaa", "222", "いいい") tbl.Rows.Add("bbb", "123", "アアア") tbl.Rows.Add("bbb", "234", "イイイ") tbl.Rows.Add("bbb", "345", "ウウウ") tbl.Rows.Add("ccc", "987", "ＡＡＡ") tbl.Rows.Add("ccc", "654", "ＢＢＢ") Return tbl End Function