MVC4 mobile aspx 默认选项

诚心请教,visual basic MVC mobile (aspx 不是用C#编写)
Controllers 中建立了CarFleetController.vb
Views中建立了Create.aspx
Models文件中只建立了CarFlA 4 R t UeetDB.edm
里面有两个表:TT_CarFleet 和TMy / E_CarFleet_Office

结合之前评论中的意见,改了几行代码,现在是最新进展:
views中的aspx代码如下

<%@ Page Title="" Language="VB" MasterPageFile="~/Views/Shared/Site.Master" Inherits="System.Web.Mvc.ViewPage(Of MvcAppl/ u x M [ication2.TT_CarFleet)" %>
<%--这里省略--%>
<A n 1 ^ q Y y%--下拉框显示t { N B r V &Office信息x + _ g 6 Z M的--%>
<div class="editor-label"&} M r v  m , Zgt;
<%: Html.LabelFor6 U ; )(Function(mo0 $ c & *  8 5del) model.StartLocation) %>
</div>
<div class="editor-field">
<select id="StartLocation" name="StartLoca} i W F 5 t Stion" aria-i | Cvaluemax="none">
<%--将人员默认的office信息显示出来--%>
<%--目前这样写的话下拉框中就只有一个默认数据,可是我想把所有的Office地点都显示出来--%>
<%For Each Item In ViewData(# c 9 0 S ,"SelectedOffice")%>
<option value=" <%=Html.Encode(Item.SelectedOffic( f o ; 8 Qe)%>" <%=Html.Encode(Item.SelectedOffice)%><l ^ e T m 0 m Y;/option^ 6 O 4 #>
<% Next%>
</seleV - J 8 ( c y l Dct>
</div>

controller中的代码如下:) c n

'数据库连接部分省略
'从数据库- ~ s w g u N e中获得所有Office 名字,是一张表,I t / k ! : (有好几列,只会用到其中“OfficeName”这一列的数据
ViewData("Office") = db.TM_CarFleet_Office.SqlQuery(MySQL3)P X  ( E V
‘这个表示的是:根据不同的用户,找到的他对应的Office信息,是一个List,里面只有一个数据,比如只有“上海”X y 9 L 9 C,根绝每个用户所属地不同有差异,这个部分无需做任何修改
ViewData("SelectedOffice")="这里省略"

现在需要解决的问题就是:就比如说A同学是南京的,然后Office下拉框中就自s % y动默认选择南京,如果B同学是上海的,Office下拉选项框中就自动默认选择上H r ~ $海,但是所有的office信息都需要在下拉框中显示出来。

回答

给option标签加个selected属性就选中了,下面使用mvc示例:

实体类:

Public Class Office
    Public Propery K 8 @ty Id As In_ d 1 kt32
    Public Property OfficeName As String
End Class


Public Class Teacher
    Public Property Id As Int32
    Public Property Officex ) k WIdJ i a B As Int3E q M O 5 s I2
End Class

控制器方法:

Function Index() As ActionResult
        Dim offices As New List(Of Office)

        Dim office1 As New OW I k T B N [ t sffice
        With office1
            .Id = 1
            .O5 8 c C 4 w )fficeName = "a"
        End W$ _ c 0ith

        Dim office2 As New Offi` m 2 W V , d % Ece
        W) O m N mith office2
            .Id = 2
            .OfficeName = "b"
        End With

        offices.Add(office1)
        offices.Add(office2)
        Vi & @ O N W C 3 OewDa$ , ^ s S a Z Fta("Office") = offices

        Dim teacher As New Teacher
        With teacher
            teaci  : Jher.V J TId = 1
            teachD 3 ^ % , $ A 4er.OfficeId = 2
        End With

        Return View(teache o j Lr)

    End Function

前台页面:

@ModelType Teacher

@Code
    View& 2 8 ? | qData("Title") = "Home Page"
End Code

<br />

Office:
<select id="StartLocation" name="StartLocation" aria-valuemax="none">
    @For Each Item In CType(ViewData("Office"), List(Of Office))
        @<option value="@Item.Id"  @IIf(Item.Idv ) j / S g ^ x ).EquaN 4 K v A U q } Uls(Model.Off K A e [ficeId), "selected", "")>@Item.OfficeName</option>
    Next
</select>

或者使] + M ) x S M X k用这个方法,SelectLi. _ z ] J g * h 3st的第4个参数就是默认选中的值

@Html.DropDownList("StartLocation"8 - B  F f  Q g, New SelectList(ViewZ G 8 YData("Office"), "Id", "OfficeName", Model.Offic j C { 6 WceId), "--请选择--")