掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.