Chapter05_list5-34

Selectは予約語

リスト5-34

Function SelectEx() As ActionResult

            'VBでSelectは予約語なので関数名としての使用を避ける

   Dim articles = db.Articles.OrderByDescending(Function(a) a.Published) _

                                    .Select(Function(a) New ArticleView With {.Title = a.Title.Substring(0, 10),

                                                                                          .Viewcount = Math.Ceiling(a.Viewcount / 1000),

                                                                                          .Released = If(a.Released, "公開中", "公開予定")})

            Return View(articles)

        End Function