LinqはVB.Netでグループ化しません

Question

教育目的のために、私はLinqの実際の動作をVB.netのVB.netに変換しようとしました。

Dim list = _books.GroupBy(Function(book) New With {.Publisher = book.Publisher.Name, 
                book.Subject}). 
        Select(Function(grouping) New With {.Publisher = grouping.Key.Publisher, 
                 .Subject = grouping.Key.Subject, 
                 .Books = grouping}) 

For Each item In list 
    Console.WriteLine("Publisher:" & item.Publisher & ", Subject:" & item.Subject) 
    For Each Book In item.Books 
    Console.WriteLine(" " & Book.Title) 
    Next 
Next 

次の出力：

Publisher:FunBooks, Subject:Fun 
    Funny Stories 
Publisher:Joe Publishing, Subject:Work 
    LINQ rules 
Publisher:Joe Publishing, Subject:Work 
    C# on rails 
Publisher:Joe Publishing, Subject:Fun 
    All your base are belong to us 
Publisher:FunBooks, Subject:Fun 
    Bonjour mon Amour 

書籍「LINQルール」と「C＃on rails」は、「Funny Stories」と「Bonjour mon Amour」の書籍は同じパブリッシャーおよび科目。 私の匿名キーは、2つの単純な文字列の新しいオブジェクトで構成されています。

私はすでにSOで検索しようとしましたが、other（or）の答えは私の問題を解決しません。 telerikやcarlosagのような一部のコード翻訳者でさえ、この場合は助けになりません。

Answer 1

これが問題である：

GroupBy(Function(book) New With {.Publisher = book.Publisher.Name, 
            book.Subject}) 

残念ながらVBは、デフォルトでは匿名型で可変プロパティを使用し、変更可能なプロパティは、ハッシュの一部として考慮されていないので、C＃バージョンと同等ではありませんコードまたは同等の操作。両方のプロパティを「キー」プロパティにする必要があります。

GroupBy(Function(book) New With {Key .Publisher = book.Publisher.Name, 
           Key book.Subject}) 

次に正常に動作するはずです。 VB on MSDNで匿名タイプの詳細を読むことができます。

Answer 2

サンプルを翻訳する努力を拍手していますが、C＃とVBのLINQ in Actionのサンプルはすべてマニングサイトhttp://www.manning.com/marguerie/からダウンロードできます。また、LinqPadサンプルにサンプルを追加して、サンプルを試して変更を保存しやすくしました。アクセス方法については、http://www.thinqlinq.com/Default/LINQ-In-Action-Samples-available-in-LINQPad.aspxを参照してください。

例5.06bで作業しているようです。少しそれを更新、私たちのVBの翻訳は次のとおりです。

Dim query = _ 
    From book In SampleData.Books _ 
    Group book.Title By book.Publisher, book.Subject Into grouping = Group _ 
    Select _ 
    Publisher = Publisher.Name, _ 
    Subject = Subject.Name, _ 
    Titles = grouping 

あなたはラムダ構文を使用したい場合は@johnskeetが示されているように、あなたがキーを指定する必要があります：

Dim list = SampleData.Books.GroupBy(Function(book) New With { 
          Key .Publisher = book.Publisher.Name, 
          Key .Subject = book.Subject}). 
       Select(Function(grouping) New With { 
        .Publisher = grouping.Key.Publisher, 
        .Subject = grouping.Key.Subject, 
        .Books = grouping})