1
我有一个局部视图,当第一次打开时有一个空模型。它由一个下拉列表,文本区域和2个texboxes组成。当用户从下拉列表中选择一个值时,我想返回并获取带有值的模型并填充我的视图。这是如何完成的?MVC 3使用dropdownlist和ajax获取新模型
这里是我的加载的局部视图到分配器控制初始动作:
Function SelectDisclosures() As ActionResult
Return PartialView()
End Function
的观点:
<%@ Control Language="VB" Inherits="System.Web.Mvc.ViewUserControl(Of Community_Portal_Admin.Disclosure)" %>
<script type="text/javascript">
function onDropDownListChange(e) {
var editor;
if (e.value != '') {
$.post('<%:Url.Action("_SelectDisclosures","SiteTerms") %>', { id: e.value },
function (data) {
if (data != "Error") {
editor = $('#DisclosureHTML').data('tEditor');
editor.value(data);
} else {
return false;
}
});
}
}
</script>
<% Using Html.BeginForm("UpdateDisclosure", "SiteTerms", FormMethod.Post, New With {.id = "DisclosuresForm"})%>
<fieldset>
<div class="gridFrame">
<br />
<%: Html.Label("WebRole", "Role: ")%>
<%: Html.Telerik().DropDownList() _
.Name("WebRoles") _
.ClientEvents(Function(e) e.OnChange("onDropDownListChange")) _
.DataBinding(Function(binding) binding.Ajax().Select("_SelectWebRoles", "SiteTerms"))
%>
<br /><br />
<%: Html.Telerik().Editor() _
.Name("DisclosureHTML") _
.HtmlAttributes(New With {.id = "DisclosureHTML", .style = "height:275px;"})
%>
<br />
<%: Html.TextBoxFor(Function(m) m.ID, New With {.id = "hidID"})%>
<%: Html.TextBoxFor(Function(m) m.WebRoleID, New With {.id = "hidWebRoleID"})%>
<%: Html.TextAreaFor(Function(m) m.DisclosureHTML, New With {.id = "hidDisclosureHTML"})%>
<div class="smallFrameLeft">
<%: Html.ActionLink("Cancel", "Index", "Configuration", Nothing, New With {.class = "t-button", .Style = "font-size:12px;"})%>
</div>
<div class="smallFrameRight">
<input type="submit" name="Save" value="Save" class="t-button" />
</div>
</div>
</fieldset>
<%-- <script type="text/javascript">
$(".smallFrameRight").click(function (e) {
var form = $(this).closest("form");
e.preventDefault();
$.blockUI({ message: '<div style="text-align: top;"><img src="Images/loading.gif" /><h3> Saving...</h3></div>' });
$.post(form.attr("action"), form.serialize(), function (data) {
});
setTimeout($.unblockUI, 400);
});
</script>--%>
<% End Using%>
,填补了下拉列表的操作:
Function _SelectWebRoles() As ActionResult
Dim l As IList(Of WebRole) = Nothing
Try
l = WebRoleRepository.All()
Return New JsonResult With {.Data = New SelectList(l, "ID", "Name")}
Catch ex As Exception
TempData("ErrorMessage") = "There was a problem during page load: " & ex.Message & vbCrLf & vbCrLf & ex.StackTrace
Return RedirectToAction("HttpError", "Error")
Finally
If Not l Is Nothing Then l = Nothing
End Try
End Function
这是我原来的行为,我只是简单地返回一个文本值并将其设置为编辑。但我宁愿带回整个模型,让它自己填充视图,这样我就可以轻松地将整个模型发回。
'Function GetDisclosure(ByVal id As Integer) As ActionResult
' Dim setting As Disclosure = Nothing
' Dim notice As String = String.Empty
' Try
' setting = DisclosureRepository.One(Function(d) d.WebRoleID = id)
' If Not setting Is Nothing Then notice = HttpUtility.HtmlDecode(setting.DisclosureHTML)
' Return Content(setting)
' Catch ex As Exception
' Return Content("Error")
' Finally
' If Not setting Is Nothing Then setting.Dispose() : setting = Nothing
' notice = Nothing
' End Try
'End Function