レコード コレクションで繰り返し

Imports Infragistics.Windows.DataPresenter
...
'以下のコード行を使用して IterateRecords メソッドを呼び出すことができます：
'IterateRecords(Me.xamDataPresenter1.Records)
Public Sub IterateRecords(ByVal records As RecordCollectionBase)
    For Each rec As Record In records
        If rec.RecordType = RecordType.GroupByField OrElse rec.RecordType = RecordType.GroupByFieldLayout Then
            Dim groupRecord As GroupByRecord = DirectCast(rec, GroupByRecord)
            'TODO: レコードでグループを処理するためのロジックを追加します
            If groupRecord.HasChildren Then
                IterateRecords(groupRecord.ChildRecords)
            End If
        ElseIf rec.RecordType = RecordType.DataRecord Then
            Dim dataRecord As DataRecord = DirectCast(rec, DataRecord)
            'TODO: データ レコードを処理するためのロジックを追加します
            If dataRecord.HasChildren Then
                IterateRecords(dataRecord.ChildRecords)
            End If
        ElseIf rec.RecordType = RecordType.ExpandableFieldRecord Then
            Dim expandableRecord As ExpandableFieldRecord = DirectCast(rec, ExpandableFieldRecord)
            'TODO: 拡張可能なフィールド レコードを処理するためのロジックを追加します
            If expandableRecord.HasChildren Then
                IterateRecords(expandableRecord.ChildRecords)
            End If
        End If
    Next
End Sub

using Infragistics.Windows.DataPresenter;
...
//以下のコード行を使用して IterateRecords メソッドを呼び出すことができます：
//IterateRecords(this.xamDataPresenter1.Records);
public void IterateRecords(RecordCollectionBase records)
{
    foreach (Record rec in records)
    {
        if (rec.RecordType == RecordType.GroupByField || rec.RecordType == RecordType.GroupByFieldLayout)
        {
            GroupByRecord groupRecord = (GroupByRecord)rec;
            //TODO: レコードでグループを処理するためのロジックを追加します
            if (groupRecord.HasChildren)
                IterateRecords(groupRecord.ChildRecords);
        }
        else if (rec.RecordType == RecordType.DataRecord)
        {
            DataRecord dataRecord = (DataRecord)rec;
            //TODO: データ レコードを処理するためのロジックを追加します
            if (dataRecord.HasChildren)
                IterateRecords(dataRecord.ChildRecords);
        }
        else if (rec.RecordType == RecordType.ExpandableFieldRecord)
        {
            ExpandableFieldRecord expandableRecord = (ExpandableFieldRecord)rec;
            //TODO: 拡張可能なフィールド レコードを処理するためのロジックを追加します
            if (expandableRecord.HasChildren)
                IterateRecords(expandableRecord.ChildRecords);
        }
    }
}