VB.Net LINQを使用した集計方法の条件付与について

Question

実現したいこと

Column6でグルーピングを行い、Column4の値が正の場合のみ集計したい（＝負の値は集計しない）

発生している問題・分からないこと

以下のソースコードで集計はできているのですが、負の値を除外する方法が分かりません。

該当のソースコード

dt = dt.AsEnumerable.GroupBy(Function(r) r("Column6").ToString).Select(Function(g) dt.Clone.LoadDataRow({g.First().Item("Column0").ToString,g.First().Item("Column1").ToString,g.First().Item("Column2").ToString,g.First().Item("Column3").ToString,g.Sum(Function(r) CDec(r("Column4"))),g.First().Item("Column5").ToString,g.First().Item("Column6").ToString},False)).CopyToDataTable()

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

IF文を追加してみたりしましたが、「＞」が使用できない等のエラーが出てきました。

補足

特になし

Answer 1

Column6でグルーピングを行い、Column4の値が正の場合のみ集計したい（＝負の値は集計しない）

表機能等で元データと希望の結果を提示いただくと、他人にも伝わりやすいです。

Column0	Column4	Column6
Row0	10	Group1
Row1	-20	Group1
Row2	30	Group1
Row3	-100	Group2
Row4	200	Group2

IF文を追加してみたりしましたが、「＞」が使用できない等のエラーが出てきました。

ReturnやEndがなかった等じゃないですかね？
ラムダ式 - Visual Basic | Microsoft Learn

そのコードや正しいエラー文も提示いただくと、他人にも伝わりやすいです。
ヘルプ｜質問するときのヒント

この場合、負の値がデータテーブルに残らなくなってしまいますのでやりたいこととは異なるようです。
正の場合は合算を行い、負の場合は合算を行わずそのまま出力を行いたいという希望になります。

nururiさんの回答でWhereで除外して集計されていますが、その後にマイナス値の行を追加すれば希望通りということでしょうか？

dt.Clone.LoadDataRow

だいぶ無駄っぽい気がします。

---

VBはよくわからないのでC#で（msms_msさんが「これじゃ全然わからない」ということであれば、頑張ってVBにしてみますけど^^;

using System.Data;

namespace Qmiaghvxqhdj00i;

public partial class Form1 : Form
{
    public Form1()
    {
        InitializeComponent();

        var dt = new DataTable();

        dt.Columns.Add("Column0");
        dt.Columns.Add("Column4", typeof(decimal));
        dt.Columns.Add("Column6");

        dt.Rows.Add("Row0", 10m, "Group1");
        dt.Rows.Add("Row1", -20m, "Group1");
        dt.Rows.Add("Row2", 30m, "Group1");
        dt.Rows.Add("Row3", -100m, "Group2");
        dt.Rows.Add("Row4", 200m, "Group2");


        // 現状
        var msms_ms = dt.AsEnumerable()
            .GroupBy(r => r["Column6"].ToString())
            .Select(g =>
            {
                var row = dt.NewRow();
                row["Column0"] = g.First()["Column0"].ToString();
                row["Column4"] = g.Sum(r => (decimal)r["Column4"]);
                row["Column6"] = g.First()["Column6"].ToString();
                return row;
            })
            .CopyToDataTable();


        // 負の値を除外して集計
        var nururi = dt.AsEnumerable()
            .Where(r => (decimal)r["Column4"] >= 0)
            .GroupBy(r => r["Column6"].ToString())
            .Select(g =>
            {
                var row = dt.NewRow();
                row["Column0"] = g.First()["Column0"].ToString();
                row["Column4"] = g.Sum(r => (decimal)r["Column4"]);
                row["Column6"] = g.First()["Column6"].ToString();
                return row;
            })
            .CopyToDataTable();
        // 後、負の値の行をマージ
        var minus = dt.AsEnumerable()
            .Where(r => (decimal)r["Column4"] < 0)
            .CopyToDataTable();
        nururi.Merge(minus);


        var tn8001 = dt.AsEnumerable()
            .GroupBy(r =>
            {
                // グループ化するキーを負の値でなければそのまま
                if (0 < (decimal)r["Column4"])
                    return r["Column6"].ToString();

                // 負の値だったら何かユニークな値にすれば、別のグループとして扱われる
                else
                    // ちょっと危ないか？全カラムを連結するとか？？
                    return r.GetHashCode().ToString();
            })
            .Select(g =>
            {
                var row = dt.NewRow();
                row["Column0"] = g.First()["Column0"].ToString();
                row["Column4"] = g.Sum(r => (decimal)r["Column4"]);
                row["Column6"] = g.First()["Column6"].ToString();
                return row;
            })
            .CopyToDataTable();


        dataGridView1.DataSource = dt;
        dataGridView2.DataSource = msms_ms;
        dataGridView3.DataSource = nururi;
        dataGridView4.DataSource = tn8001;
    }
}

下ふたつで順番が違いますが、DataTableの追加順はあまり意味はないので問題ないでしょう（実際はIdや作成日等のカラムがあるでしょうから好きにソートすればいい）

追記

Public Class Form1
    Public Sub New()
        InitializeComponent()

        Dim dt = New DataTable
        dt.Columns.Add("Column0")
        dt.Columns.Add("Column4", GetType(Decimal))
        dt.Columns.Add("Column6")
        dt.Rows.Add("Row0", 10D, "Group1")
        dt.Rows.Add("Row1", -20D, "Group1")
        dt.Rows.Add("Row2", 30D, "Group1")
        dt.Rows.Add("Row3", -100D, "Group2")
        dt.Rows.Add("Row4", 200D, "Group2")


        '現状
        Dim msms_ms = dt.AsEnumerable _
            .GroupBy(Function(r) r("Column6").ToString) _
            .Select(Function(g)
                        Dim row = dt.NewRow
                        row("Column0") = g.First()("Column0").ToString
                        row("Column4") = g.Sum(Function(r) CDec(r("Column4")))
                        row("Column6") = g.First()("Column6").ToString
                        Return row

                        'カラムが多いならこれが手っ取り早いかな（何が入っているかにもよるが...
                        'Dim row = dt.NewRow
                        'row.ItemArray = g.First().ItemArray
                        'row("Column4") = g.Sum(Function(r) CDec(r("Column4")))
                        'Return row
                    End Function) _
            .CopyToDataTable


        '負の値を除外して集計後、負の値の行をマージ
        Dim nururi = dt.AsEnumerable _
            .Where(Function(r) CDec(r("Column4")) >= 0) _
            .GroupBy(Function(r) r("Column6").ToString) _
            .Select(Function(g)
                        Dim row = dt.NewRow
                        row("Column0") = g.First()("Column0").ToString
                        row("Column4") = g.Sum(Function(r) CDec(r("Column4")))
                        row("Column6") = g.First()("Column6").ToString
                        Return row
                    End Function) _
            .CopyToDataTable
        Dim minus = dt.AsEnumerable _
            .Where(Function(r) CDec(r("Column4")) < 0) _
            .CopyToDataTable
        nururi.Merge(minus)


        'キー細工
        Dim tn8001 = dt.AsEnumerable _
            .GroupBy(Function(r)
                         'グループ化するキーを負の値でなければそのまま
                         If 0 < CDec(r("Column4")) Then
                             Return r("Column6").ToString

                         Else '負の値だったら何かユニークな値にすれば、別のグループとして扱われる
                             'ちょっと危ないか？ ハッシュが衝突するというより、
                             '（わたしは）Column6に何が入ってるか知らないという意味で。
                             '（数字が入っていたらぶつかる可能性もあるかも？と）
                             Return r.GetHashCode.ToString

                             'あるいは全カラムを連結するとか？

                             'Guidがいいか？
                             'Return Guid.NewGuid.ToString
                         End If
                     End Function) _
            .Select(Function(g)
                        Dim row = dt.NewRow
                        row("Column0") = g.First()("Column0").ToString
                        row("Column4") = g.Sum(Function(r) CDec(r("Column4")))
                        row("Column6") = g.First()("Column6").ToString
                        Return row
                    End Function) _
            .CopyToDataTable


        DataGridView1.DataSource = dt
        DataGridView2.DataSource = msms_ms
        DataGridView3.DataSource = nururi
        DataGridView4.DataSource = tn8001
    End Sub
End Class

Answer 2

GroupByの前に、Whereで条件指定すればいいと思います。

Where(Function(row) Convert.ToInt32(row("Column4")) >= 0) 

適当にConvert.ToInt32とかしちゃってますが、元が違う型なら別のものを指定してください。

Comments

[msms_ms]

この場合、負の値がデータテーブルに残らなくなってしまいますのでやりたいこととは異なるようです。
正の場合は合算を行い、負の場合は合算を行わずそのまま出力を行いたいという希望になります。

[nururi]

であれば、LINQ一行でやろうとか難しく考えずに、シンプルに負と正のデータに分けてマージした方が判りやすいのではないでしょうか。
質問に書いてあるLINQは、横に長すぎて正直読む気がしません。