IGroupingからプロパティのリストを選択してください

Question

私は数多くのドキュメントを＃日でグループ化しています（ファイルがいつ出るかを決定します）。 そして今、私はグループからのプロパティのリストを取得したい：それはdがコレクションであることを考えて、

Dim agencyDocumentBatches As List(Of AgencyDocumentBatch) = _agencyDocumentBatchesData.ExecuteQuery(queryParameter, _context.DatabaseName) 

    Dim documentBatchesGroupedByDay As IEnumerable(Of IGrouping(Of Integer, List(Of AgencyDocumentBatch))) = 
      agencyDocumentBatches.GroupBy(Function(d) d.Days) 

    For Each documentBatchGroup As IGrouping(Of Integer, List(Of AgencyDocumentBatch)) In documentBatchesGroupedByDay 

    Dim addBookingDocumentsParams As New AddBookingDocumentsParams() With 
    { 
     .BCode = bCode, 
     .DueDate = quote.DepartureDate.AddDays(-documentBatchGroup.Key),  'Key = Days before/after departure 
     .Documents = documentBatchGroup.Select(Function(d) d.DocumentName).ToList 
    } 
    _documentDatesData.ExecuteQuery(addBookingDocumentsParams, _context.DatabaseName) 
    Next 

しかし、私はd.DocumentNameがそこに定義されていないことがわかります。私はGroupingを繰り返して、要素自体にアクセスできると思いましたが、間違っていますか？

Public Class AgencyDocumentBatch 

     Public Property ID As Integer 

     Public Property DocumentID As Integer 

     Public Property Days As Integer 

     Public Property AfterDeparture As Boolean 

     Public Property DocumentName As String 

    End Class 

Answer 1

ここで、私は願って、（いくつかのプロパティを省略している）何が必要であるシミュレーションです：

Module Module1 

    Sub Main() 

     Dim list = New List(Of AgencyDocumentBatch) From { 
      New AgencyDocumentBatch With {.Days = 1, .DocumentName = "Doc1"}, 
      New AgencyDocumentBatch With {.Days = 2, .DocumentName = "Doc2"}, 
      New AgencyDocumentBatch With {.Days = 1, .DocumentName = "Doc3"}, 
      New AgencyDocumentBatch With {.Days = 2, .DocumentName = "Doc4"} 
     } 

     Dim documentBatchesGroupedByDay = From l In list 
              Group l By l.Days Into Group 

     For Each doc In documentBatchesGroupedByDay 
      Dim proxy = New AddBookingDocumentsParams With 
      { 
       .Documents = doc.Group.Select(Function(a) a.DocumentName).ToList() 
      } 
     Next 

    End Sub 

End Module 


Class AddBookingDocumentsParams 
    Property Documents As List(Of String) 
End Class 

Public Class AgencyDocumentBatch 
    Public Property Days As Integer 
    Public Property DocumentName As String 
End Class 

Answer 2

私はエイリアシングのない別の解決策が見つかりました：

For Each documentBatchGroup As IGrouping(Of Integer, List(Of AgencyDocumentBatch)) In documentBatchesGroupedByDay 

     Dim addBookingDocumentsParams As New AddBookingDocumentsParams() With 
     { 
      .BCode = bCode, 
      .DueDate = quote.DepartureDate.AddDays(-documentBatchGroup.Key),  'Key = Days before/after departure 
      .Documents = documentBatchGroup(documentBatchGroup.Key).Select(Function(d) d.DocumentName).ToList 
     } 
     _documentDatesData.ExecuteQuery(addBookingDocumentsParams, _context.DatabaseName) 

     Next