Revision: 70431
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at February 11, 2016 12:14 by systemergon
Initial Code
--- VISTA DISEÑO -----
<asp:GridView runat="server" ID="GvVentas" DataKeyNames="ID" OnRowUpdating="GvVentas_RowUpdating"
OnSelectedIndexChanging ="GvVentas_SelectedIndexChanging" OnRowEditing ="GvVentas_RowEditing" AutoGenerateColumns="False" OnRowCancelingEdit="GvVentas_RowCancelingEdit">
<Columns>
<asp:CommandField HeaderText="Edit-Update" ShowEditButton="True" />
<asp:BoundField DataField="ID" HeaderText="ID" ReadOnly="true" />
<asp:BoundField DataField="TIE" HeaderText="TIE" ReadOnly="true"/>
<asp:BoundField DataField="CREDITO" HeaderText="CREDITO" ReadOnly="true" />
<asp:BoundField DataField="CONTADO" HeaderText="CONTADO" ReadOnly="true" />
<asp:BoundField DataField="TOTAL" HeaderText="TOTAL" ReadOnly="true" />
<asp:TemplateField HeaderText="FCH" SortExpression="FCH">
<ItemTemplate>
<asp:Label ID="LBFch" runat="server" Text='<%# Bind("FCH") %>'></asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TXTFch" runat="server" Text='<%# Bind("FCH") %>'></asp:TextBox>
</EditItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle BackColor="#E3EAEB" />
</asp:GridView>
--- CODIGO SERVIDOR----
Protected Sub GvVentas_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs)
Using cn As New SqlConnection(ConfigurationManager.ConnectionStrings("CadSQL").ToString())
Dim cmd As New SqlCommand()
cmd.Connection = cn
cmd.CommandText = "UPDATE VENTDA SET FCH = @FCH WHERE ID = @ID"
cmd.CommandType = CommandType.Text
Dim IDVentas As String = GvVentas.Rows(e.RowIndex).Cells(1).Text()
Dim FCH As String = DirectCast(GvVentas.Rows(e.RowIndex).FindControl("TXTFch"), TextBox).Text
cmd.Parameters.Add("@ID", SqlDbType.Int).Value = IDVentas
cmd.Parameters.Add("@FCH", SqlDbType.Date).Value = FCH
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
cn.Dispose()
End Using
GvVentas.EditIndex = -1
BindData("B")
End Sub
Initial URL
Initial Description
Dim IDVentas As String = GvVentas.Rows(e.RowIndex).Cells(1).Text()
Dim FCH As String = DirectCast(GvVentas.Rows(e.RowIndex).FindControl("TXTFch"), TextBox).Text
Initial Title
RowUpdating GridView
Initial Tags
Initial Language
VB.NET