DataTableにComputeメソッドでは、下記のような便利な機能があります。 Dim As Object '最大値を求める value = datatable.Compute("Max(集計列名)", Nothing) '最小値を求める value = datatable.Compute("Min(集計列名)", Nothing) '合計値を求める value = datatable.Compute("Sum(集計列名)", Nothing) '平均値を求める value = datatable.Compute("Ave(集計列名)", Nothing) '行数を求める value = datatable.Compute("Count(集計列名)", Nothing) '抽出条件を指定して、該当データの合計値を求める value = datatable.Compute("SUM(集計列名)", "抽出列名 = 1") value = datatable.Compute("SUM(集計列名)", "抽出列名 = 1 or 抽出列名 = 2") value = datatable.Compute("SUM(集計列名)", "100 < 抽出列名 and 抽出列名 < 1000") ※datatableに行がない場合、Computeの結果はNothingになります ★月額105円~/容量最大30GB/機能満載! ロリポップ!レンタルサーバー ★ コメント: |