<ASP:DataGrid id="MyDataGridzc" runat="server"
Width="400"
BackColor="#ccccff" BorderColor="black"
ShowFooter="false"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
OnDeleteCommand="MyDataGridzc_Delete"
OnEditCommand="MyDataGridzc_Edit"
OnCancelCommand="MyDataGridzc_Cancel"
OnUpdateCommand="MyDataGridzc_Update"
AutoGenerateColumns="false"
>
<Columns>
<asp:ButtonColumn Text="删除" CommandName="Delete" />
<asp:EditCommandColumn HeaderText="操作" EditText="修改" CancelText="取消" UpdateText="确认" ItemStyle-Wrap="false" />
<asp:BoundColumn HeaderText="编码" DataField="编码" ReadOnly="True" ItemStyle-Wrap="false" />
<asp:BoundColumn HeaderText="名称" DataField="名称" ReadOnly="True" ItemStyle-Wrap="false" />
<asp:TemplateColumn HeaderText="数量" SortExpression="数量">
<ItemTemplate>
<asp:Label runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "数量") %>' ID="Label1" NAME="Label1"/>
</ItemTemplate>
<EditItemTemplate>
<nobr>
//width="40" height="18",这就是控制文本框大小的办法
<asp:TextBox runat="server" width="40" height="18" id="edit_zcsl" Text='<%#DataBinder.Eval(Container.DataItem, "数量") %>'/>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:BoundColumn HeaderText="单位" DataField="单位" ReadOnly="True" ItemStyle-Wrap="false"/>
</Columns>
<HeaderStyle BackColor="black" ForeColor="white" HorizontalAlign="center" Height="30" />
<AlternatingItemStyle BackColor="lightgray" />
</asp:DataGrid>
Try
Dim F4TextBox As TextBox = e.Item.FindControl("edit_F4")
F4 = F4TextBox.Text
Dim F5TextBox As TextBox = e.Item.FindControl("edit_F5")
F5 = Convert.ToInt32(F5TextBox.Text)
Dim F7TextBox As TextBox = e.Item.FindControl("edit_F7")
F7 = Convert.ToInt32(F7TextBox.Text)
Dim F8TextBox As TextBox = e.Item.FindControl("edit_F8")
F8 = Convert.ToInt32(F8TextBox.Text)
Dim F9TextBox As TextBox = e.Item.FindControl("edit_F9")
F9 = Convert.ToInt32(F9TextBox.Text)
Dim F10TextBox As TextBox = e.Item.FindControl("edit_F10")
F10 = Convert.ToInt32(F10TextBox.Text)
Dim F11TextBox As TextBox = e.Item.FindControl("edit_F11")
F11 = Convert.ToInt32(F11TextBox.Text)
Dim F12TextBox As TextBox = e.Item.FindControl("edit_F12")
F12 = Convert.ToInt32(F12TextBox.Text)
Dim F13TextBox As TextBox = e.Item.FindControl("edit_F13")
F13 = Convert.ToInt32(F13TextBox.Text)
Dim F14TextBox As TextBox = e.Item.FindControl("edit_F14")
F14 = Convert.ToInt32(F14TextBox.Text)
Dim F15TextBox As TextBox = e.Item.FindControl("edit_F15")
F15 = Convert.ToInt32(F15TextBox.Text)
Catch ex As Exception
Dim StrScript As String = "<script language=javascript>alert('填写有误');</script>"
RegisterClientScriptBlock("sss", StrScript)
Return
End Try