1

「ステータス」フィールドを合計しようとしています。

    Dim _detailRecords As New DataTable
    _detailRecords.Columns.Add("y")
    _detailRecords.Columns.Add("z")
    _detailRecords.Columns.Add("A", GetType(Int32))

    Dim workRow As DataRow
    Dim i As Integer

    For i = 1 To 3
        workRow = _detailRecords.NewRow()
        workRow(0) = i.ToString()
        workRow(1) = "CustName" & i.ToString()
        workRow(2) = i + 1
        _detailRecords.Rows.Add(workRow)
    Next

    For i = 1 To 3
        workRow = _detailRecords.NewRow()
        workRow(0) = i.ToString()
        workRow(1) = "CustName" & i.ToString()
        workRow(2) = i + 1
        _detailRecords.Rows.Add(workRow)
    Next

Dim query8 As IEnumerable(Of DataRow) = (From record As DataRow In _detailRecords _
    Group record By y = record.Field(Of String)("y"), _
                   z = record.Field(Of String)("z"), _
                   Status = record.Field(Of Int32)("Status") Into groupedRecords = Group _
Select groupedRecords.FirstOrDefault())

また、これをDataRowのIEnumerableとして保持したいと考えています。これは、それからデータテーブルを作成するためです

Dim yyyyy As DataTable = query8.CopyToDataTable
4

1 に答える 1

1

必要な集計メソッドへの呼び出しを追加し、オプションで結果にエイリアスを追加するだけです。

Dim query =
    From record In _detailRecords
    Group record
        By Y = record.Field(Of String)("y"),
           Z = record.Field(Of String)("z"),
           Status = record.Field(Of Int32)("Status")
        Into groupedRecords = Group,
             Sum(record.Field(Of Int32)("Status")) ' Get the sum of the Status values
    Select FirstRecord = groupedRecords.FirstOrDefault,
           Sum

これを書く方法はたくさんあることに注意してください。これは1つの方法にすぎません。

于 2012-04-18T06:43:20.570 に答える