Field コンストラクタ()

Imports Infragistics.Windows.DataPresenter

Partial Public Class Window1
    Inherits System.Windows.Window

    Public Sub New()
        InitializeComponent()

        Me.InitializeGroupByGrid()
    End Sub

    Private Sub InitializeGroupByGrid()
        ' example data...
        Me.xamDataGrid1.DataItems.Add(DateTime.Today.AddDays(10))
        Me.xamDataGrid1.DataItems.Add(DateTime.Today.AddDays(5))
        Me.xamDataGrid1.DataItems.Add(DateTime.Today)
        Me.xamDataGrid1.DataItems.Add(DateTime.Today.AddDays(-2))
        Me.xamDataGrid1.DataItems.Add(DateTime.Today.AddDays(-5))
        Me.xamDataGrid1.DataItems.Add(DateTime.Today.AddMonths(-1))
        Me.xamDataGrid1.DataItems.Add(DateTime.Today.AddMonths(-1).AddDays(-5))
        Me.xamDataGrid1.DataItems.Add(DateTime.Today.AddMonths(-1).AddDays(-2))

        ' create a field layout that matches the data structure
        ' in this case we're just binding to simple types like datetime
        ' so the field name will be value.
        Dim fl As FieldLayout = New FieldLayout()
        Dim field As Field = New Field()
        field.Name = "Value"

        ' use our custom groupby evaluator
        field.Settings.GroupByEvaluator = New CustomDateTimeEvaluator()

        ' add the fields to the field layout and the field layout to the grid
        fl.Fields.Add(field)
        Me.xamDataGrid1.FieldLayouts.Add(fl)

        ' show the group by area
        Me.xamDataGrid1.GroupByArea.IsExpanded = True

        ' group by the data field
        Dim fsd As FieldSortDescription = New FieldSortDescription()
        fsd.Field = field
        fsd.Direction = System.ComponentModel.ListSortDirection.Descending
        fsd.IsGroupBy = True

        fl.SortedFields.ClearNonGroupByFields()
        fl.SortedFields.Add(fsd)
    End Sub

End Class

Friend Class CustomDateTimeEvaluator
    Implements IGroupByEvaluator
    Private Const PastDue As String = "Past Due"
    Private Const DueToday As String = "Due Today"
    Private Const NotDueYet As String = "Not Due Yet"

    Public Function DoesGroupContainRecord(ByVal groupByRecord As GroupByRecord, ByVal record As DataRecord) As Boolean Implements IGroupByEvaluator.DoesGroupContainRecord
        Dim cellValue As Object = record.GetCellValue(groupByRecord.GroupByField)
        Dim desc As String = groupByRecord.Description

        ' handle null values specially
        If cellValue Is Nothing Or TypeOf cellValue Is DBNull Then
            Return desc = PastDue
        End If

        ' if the value is not a date time, just group them together
        If TypeOf cellValue Is DateTime = False Then
            Return True
        End If

        Return desc = GetDateLabel(CType(cellValue, DateTime))
    End Function

    Public Function GetGroupByValue(ByVal groupByRecord As GroupByRecord, ByVal record As DataRecord) As Object Implements IGroupByEvaluator.GetGroupByValue
        Dim cellValue As Object = record.GetCellValue(groupByRecord.GroupByField)
        Dim desc As String = String.Empty
        Dim targetDate As DateTime = DateTime.MinValue

        If cellValue Is Nothing Or TypeOf cellValue Is DBNull Then
            desc = "None"
        ElseIf TypeOf cellValue Is DateTime Then
            targetDate = CType(cellValue, DateTime)
            desc = GetDateLabel(targetDate)
        End If

        groupByRecord.Description = desc
        Return targetDate
    End Function


    Public ReadOnly Property SortComparer() As System.Collections.IComparer Implements IGroupByEvaluator.SortComparer
        Get
            Return Nothing
        End Get
    End Property

    Private Function GetDateLabel(ByVal dt As DateTime) As String
        Dim comparison As Integer = dt.Date.CompareTo(DateTime.Today.Date)
        Dim desc As String

        If comparison < 0 Then
            desc = "Past Due"
        ElseIf comparison = 0 Then
            desc = "Due Today"
        Else
            desc = "Not Due Yet"
        End If

        Return desc
    End Function
End Class