Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
        DataGrid1.EditItemIndex = e.Item.ItemIndex
        DataGrid1.DataBind()
    End Sub

    Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
        conОВФО.Open()
        Dim стрОбновление As String
        стрОбновление =  "ОТЧЕТ.О_ОВП.ОбновитьПоказатель('" + _
        CType(e.Item.Cells(0).Controls(0), TextBox).Text + "','" + _
        CType(e.Item.Cells(1).Controls(0), TextBox).Text + "',"  + _
        Replace(CType(e.Item.Cells( 2 ).Controls( 1 ), TextBox).Text,  "," ,  "." ) +  ",TO_DATE('" + _
        Me.txtDate.Text + "','DD.MM.YYYY'),'" + _
        Me.ddlBranch.SelectedItem.Value + "')" 

        Dim com As New OleDb.OleDbCommand( "begin "  + стрОбновление +  "; commit; end;" , conОВФО)
        com.ExecuteNonQuery()
        DataGrid1.EditItemIndex = - 1 
        адПоказ.Fill(dsОВП,  "ОВП_ПОКАЗ" )
        DataGrid1.DataBind()
    End Sub