Creative System Village

Public Class Form1

    ''' <summary>
    ''' サンプルテーブル
    ''' </summary>
    ''' <remarks></remarks>
    Public Class SAMPLEDataTable
        Inherits DataTable

        ''' <summary>カラム定義</summary>
        Public Sub New()
            MyBase.New()
            'カラム定義
            Me.TableName = "サンプルテーブル"
            Me.Columns.Add("CODE", GetType(String))
            Me.Columns.Add("NAME", GetType(String))
            Me.Columns.Add("TYPE", GetType(String))
            Me.Columns.Add("SIZE", GetType(Long))
            '情報作成
            Me.CreateData()
        End Sub

        ''' <summary>情報作成</summary>
        Private Sub CreateData()
            Dim drN As DataRow
            drN = Me.NewRow
            drN("CODE") = "001" : drN("NAME") = "NM001" : drN("TYPE") = "A" : drN("SIZE") = 5
            Me.Rows.Add(drN)

            drN = Me.NewRow
            drN("CODE") = "002" : drN("NAME") = "NM002" : drN("TYPE") = "A" : drN("SIZE") = 4
            Me.Rows.Add(drN)

            drN = Me.NewRow
            drN("CODE") = "003" : drN("NAME") = "NM003" : drN("TYPE") = "B" : drN("SIZE") = 3
            Me.Rows.Add(drN)

            drN = Me.NewRow
            drN("CODE") = "004" : drN("NAME") = "NM004" : drN("TYPE") = "B" : drN("SIZE") = 2
            Me.Rows.Add(drN)

            drN = Me.NewRow
            drN("CODE") = "005" : drN("NAME") = "NM005" : drN("TYPE") = "B" : drN("SIZE") = 1
            Me.Rows.Add(drN)

        End Sub

    End Class

    ''' <summary>
    ''' ボタン押下イベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim dtSample As New SAMPLEDataTable
        Dim oLinq As Object

        Debug.Print("!-- 1.オブジェクトに対して抽出処理を行う")
        '集計
        oLinq = From dr As DataRow In dtSample Where dr("TYPE") = "A" Select dr("CODE")
        '結果
        For Each oRow In oLinq
            Debug.Print("結果:[" & oRow & "]")
        Next

        Debug.Print("!-- 2.オブジェクトに対してソート処理を行う")
        '集計
        oLinq = From dr As DataRow In dtSample Order By dr("SIZE") Ascending Select dr("CODE")
        '結果
        For Each oRow In oLinq
            Debug.Print("結果:[" & oRow & "]")
        Next

        Debug.Print("!-- 3.オブジェクトに対して件数取得処理を行う")
        '集計
        oLinq = Aggregate dr As DataRow In dtSample Into Count(dr("CODE"))
        '結果
        Debug.Print("結果:[" & oLinq & "]")

        Debug.Print("!-- 4.オブジェクトに対してグループ集計処理を行う")
        '集計
        oLinq = From dr As DataRow In dtSample
                Group By type = dr("TYPE") Into high = Max(CInt(dr("SIZE"))), Low = Min(CInt(dr("SIZE")))
                Select type, high, Low, calc = (high * Low)
        '結果
        For Each oRow In oLinq
            Debug.Print("結果:[type=" & oRow.type & "][high=" & oRow.high & "][Low=" & oRow.Low & "][calc=" & oRow.calc & "]")
        Next

    End Sub

End Class

!-- 1.オブジェクトに対して抽出処理を行う
結果:[001]
結果:[002]
!-- 2.オブジェクトに対してソート処理を行う
結果:[005]
結果:[004]
結果:[003]
結果:[002]
結果:[001]
!-- 3.オブジェクトに対して件数取得処理を行う
結果:[5]
!-- 4.オブジェクトに対してグループ集計処理を行う
結果:[type=A][high=5][Low=4][calc=20]
結果:[type=B][high=3][Low=1][calc=3]