タイトル | : DataGridの編集について |
記事No | : 311 |
投稿日 | : 2003/07/23(Wed) 20:24 |
投稿者 | : mitu |
[OSのVer]:Windows [VBのVer]:VB.NET
よろしくお願いします。 VB.NETのASP.NET Webアプリケーションで作成しています。
DataGridにDropDownListとTextBoxを表示して、編集します。 「更新」のCommandButtonをクリックしたら、DropDownListとTextBoxの値を取得し、 ファイルを書き換える処理をしているのですが、 DropDownListとTextBoxの値を取得する部分でうまくいきません。
取得するデータが編集前のデータのままなんですが、何故だかわからず、行き詰っています。 ご存知の方よろしくお願いします。
ソースは以下です。
[.aspxファイル]
<asp:datagrid id="grdData" style="Z-INDEX: 104; LEFT: 92px; POSITION: abs olute; TOP: 113px" runat="server" Width="527px" Height="468px&quo t; AutoGenerateColumns="False" BorderColor="Gray" BackColor="White"> <ItemStyle BackColor="WhiteSmoke"></ItemStyle> <HeaderStyle HorizontalAlign="Center" Height="50px"></Heade rStyle> <Columns> <asp:BoundColumn DataField="alarm"> <ItemStyle HorizontalAlign="Center" Width="100px"></Ite mStyle> </asp:BoundColumn>
<asp:TemplateColumn HeaderText="判定情報"> <ItemStyle HorizontalAlign="Center" Width="180px">< /ItemStyle> <ItemTemplate> <asp:DropDownList ID="ddlInf" runat="server" Width=&qu ot;120px" Height="25px" /> </ItemTemplate> </asp:TemplateColumn>
<asp:TemplateColumn HeaderText="判定値"> <ItemStyle HorizontalAlign="Center" Width="180px"></I temStyle> <ItemTemplate> <asp:TextBox ID="txtValue" runat="server" Width="12 0px" Height="22px" Text='<%# DataBinder.Eval(Container.DataItem, "Value") %>' / > </ItemTemplate> </asp:TemplateColumn> </Columns> </asp:datagrid>
<asp:button id="btnRenew" style="Z-INDEX: 109; LEFT: 674px; POSITION: abs olute; TOP: 312px" runat="server" Width="104" Height="31" Te xt="更 新"> </asp:button>
[更新ボタンClick イベント]
Private Sub btnRenew_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnRenew.Click
Dim ddl As DropDownList Dim txt As TextBox Dim myInf(7) As Long Dim myVal(7) As String Dim i As Integer
For i = 0 To 7 'ドロップダウンリスト ddl = grdData.Items(i).Cells(1).FindControl("ddlInf")
If Not Nothing Is ddl Then 'ドロップダウンリストの選択インデックス myInf(i) = ddl.SelectedIndex End If
'テキストボックス txt = grdData.Items(i).Cells(2).FindControl("txtValue")
If Not Nothing Is txt Then 'テキストボックスの値 myVal(i) = txt.Text End If Next i End Sub
myInfとmyValに値が上手く格納しません。よろしくお願いします。
|