1

データベースを反復処理して、レコードごとにテキストボックスを作成しようとしています。コントローラの情報を使おうとするまでは、すべて問題なく動作します。この情報をコントローラーに戻すにはどうすればよいですか？

<% Using (Html.BeginForm("NewEnvCd", "Config", Nothing, FormMethod.Post))%>

    <%: Html.Hidden("Environment", Model.NewEnvironment)%>
    <div class="box" style="margin-top:30px;width:800px;">
    <h4 >Add New Environment Code</h4>
        <div>
        <div>
        <div style="float:left; text-decoration:underline;">Environment Code</div><div style="float:right;width:400px;text-decoration:underline;">Parameter Values</div>
        </div>
        <br /><br />
        <% Dim i As Int32 = 0 %>
        <% For Each cfg In Model.ParameterValues%>

            <div style="margin-bottom:5px;">

                <div style="float:left;">
                    <%: Html.Hidden("newEnvironment", Model.NewEnvironment)%>
                    <%: Html.Hidden("cfg[" & i & "].Name", cfg.Name) %>
                    <%: Html.Hidden("cfg[" & i & "].EnvCd", cfg.EnvCd) %>
                    <%: cfg.Name%>

                </div>
                <div style="float:right;">
                    <%: Html.TextBox("cfg[" & i & "]value", If(Not cfg.Value Is Nothing, cfg.Value, ""), New With {.style = "width:400px;"})%>
                </div>
                <div class="clear"></div>
            </div>
            <% i += 1 %>

        <% Next %>

        <input type="submit" value="Save" />
        <%: Html.ActionLink("Return to List", "Index", "Config") %>
        </div>
        </div>
<% End Using %>

コントローラは次のようになります。

    Function NewEnvCd(ByVal newEnvironment As String, Optional ByVal copyEnvironment As String = "") As ActionResult
        Dim model As NewEnvCdModel
        model = New NewEnvCdModel(newEnvironment, copyEnvironment)
        Return View(model)
    End Function

    <HttpPost()>
    Function NewEnvCd(ByVal newEnvironment As String, ByVal name As String, ByVal value As String, ByVal cfg As IList(Of ConfigData.tblTT_Configuration))

        If (cfg.Count() = 0 OrElse String.IsNullOrWhiteSpace(name)) Then
            Return RedirectToAction("Index")
        End If

        For Each c In cfg
            Repository.CreateEnvironment(If(c.EnvCd, newEnvironment), c.Name, c.Value)
        Next
        Return RedirectToAction("index")
    End Function

私は自分の質問についてはっきりしていなかったかもしれませんが、私が探していた答えは、各cfgレコードの名前（つまり、cfg.Name、cfg.Value、cfg.EnvCd）を使用することと関係がありました。cfgをリストまたはクエリ可能（ByVal cfg As IList（Of ConfigData.tblTT_Configuration））として渡す必要があるときに、cfgのパラメーターを個別に（ByVal name As String、ByVal value As String、）渡そうとしていました。コントローラの値から値を取得します。助けてくれてありがとう。

4

1 に答える 1

1

モデルにとConfigData.tblTT_Configuration呼ばれるプロパティがあり、リストにバインドするときに尊重するためにTextBox名を修正するだけでよいと仮定します。NameEnvCdValuenaming convention

<%: Html.TextBox(
    "cfg[" & i & "].Value", 
    If(Not cfg.Value Is Nothing, cfg.Value, ""), 
    New With {.style = "width:400px;"}
) %>

値の前にドットがないことに注意してください。

于 2013-02-01T07:25:56.240 に答える