Vb.net don'；不知道如何在视图中显示数据（初学者）

大家早上好

我是.Net语言的初学者，需要一个例子来进一步学习

所以，我的目标是显示数据表中的日期和注释，在客户的一般信息下面

视图需要变成这样：

姓名： 地址： 电话号码：

日期1 评论1

日期2 评论2

自动生成具有一般数据的强类型视图很容易。现在，我不知道如何显示下面的评论

这是我在控制器中所做的

    ' GET: /Contacts/Details/5

    Function Details(id As Integer) As ActionResult
        Dim contact As contact = db.contact.Single(Function(c) c.idContact = id)
        Dim listMeet = New List(Of meeting)
        listMeet = (From d In db.meeting
                   Where d.FK_meet_contact = id
                   Select d).ToList()
        ViewBag.listeMeeting = listMeet
        Return View(contact)
    End Function

在我看来，我犯了很多错误。。。让我们向您展示最后一个：

@ModelType MvcApplication4.contact
@Code
    ViewData("Title") = "Details"
    Dim list As List(Of Object) = ViewBag.listeMeeting
    Dim ligne As ListItemCollection

End Code

[……]

会议
@对于ViewBag.ListMeeting中的每个路线
@Html.Raw（ViewBag.listedMeeting）
下一个（ligne）

我还不太明白什么

---

注：我不是以英语为母语的人，因此，如果我的英语很糟糕，很抱歉，你可以使用视图模型而不是

ViewBag

：

Public Class MyViewModel
    Public Property ContactDetails As Contact
    Public Property Meetings As IEnumerable(Of Meeting)
End Class

然后在控制器中填充此视图模型，并传递到视图以显示：

Function Details(id As Integer) As ActionResult
    Dim contact As contact = db.contact.Single(Function(c) c.idContact = id)
    Dim meetings =
        (From d In db.meeting
         Where d.FK_meet_contact = id
         Select d).ToList()

    Dim model = New MyViewModel With {
        .ContactDetails = contact,
        .Meetings = meetings
    }
    Return View(model)
End Function

然后将视图强类型化到视图模型：

@ModelType AppName.MyViewModel

<h2>@Model.ContactDetails.SomePropertyOfContact</h2>

<fieldset>
    <legend>
        <button onclick="togglefield('Meet')">Meetings</button>
    </legend>
    <div class="Meet">
        @For Each meeting In Model.Meetings
            @meeting.SomePropertyOfMeeting
        Next
    </div>  
</fieldset>

@ModelType AppName.MyViewModel
@Model.ContactDetails.SomePropertyOfContact
会议
@对于Model.Meetings中的每个会议
@会议
下一个

您可以使用视图模型而不是

ViewBag

：

Public Class MyViewModel
    Public Property ContactDetails As Contact
    Public Property Meetings As IEnumerable(Of Meeting)
End Class

然后在控制器中填充此视图模型，并传递到视图以显示：

Function Details(id As Integer) As ActionResult
    Dim contact As contact = db.contact.Single(Function(c) c.idContact = id)
    Dim meetings =
        (From d In db.meeting
         Where d.FK_meet_contact = id
         Select d).ToList()

    Dim model = New MyViewModel With {
        .ContactDetails = contact,
        .Meetings = meetings
    }
    Return View(model)
End Function

然后将视图强类型化到视图模型：

@ModelType AppName.MyViewModel

<h2>@Model.ContactDetails.SomePropertyOfContact</h2>

<fieldset>
    <legend>
        <button onclick="togglefield('Meet')">Meetings</button>
    </legend>
    <div class="Meet">
        @For Each meeting In Model.Meetings
            @meeting.SomePropertyOfMeeting
        Next
    </div>  
</fieldset>

@ModelType AppName.MyViewModel
@Model.ContactDetails.SomePropertyOfContact
会议
@对于Model.Meetings中的每个会议
@会议
下一个

非常非常好的答案。。。这是100%的功能，因为它是。这完全是我所需要的。非常非常好的回答。。。这是100%的功能，因为它是。这完全是我所需要的。