Chapter07_list7-14

文字列をEnum型に変換

• Cloudなら1に変換される

• 文字列は大文字小文字区別する

 リスト7-14

 <Route("Attr/Articles/{category?}")>

    Function ShowByCategory(ByVal category As String) As ActionResult

        Dim list = db.Articles.Select(Function(a) a)

        If Not IsNothing(category) Then

            Dim c = DirectCast([Enum].Parse(GetType(CategoryEnum), category), CategoryEnum)

            list = list.Where(Function(a) a.Category = c)

        End If

        Return View(list)

    End Function