Private Sub cancelaEdicion(iRow As Integer)
Dim strSelect As String
Si no hay ningn registro seleccionado no hace nada     
    If iRow < 0 Then Exit Sub
    Si el registro es nuevo, lo borra
    If blnNewRow Then
        SCGrid1.DeleteRows (iRow)
    Else
	si el registro ha cambiado lo regresa como estaba antes de hacer cualquier
cambio
        If blnFieldChanged Then
            strSelect = "select * from CFlowTemporal where "
            strSelect = strSelect & SCGrid1.Key(-1, 0) & "=" & CStr(SCGrid1.Text(iRow, 0))
            rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
            populateRow (iRow)
            rcds.Close
        End If
        Set SCGrid1.CellPicture(iRow, -1) = Nothing
    End If
    Dibuja una vez mas el Grid e inicializa las variables. Activa el botn
Aplicar Pago
    SCGrid1.Refresh
    displayList
    initVariables
    cmdQuit.Enabled = True
    cmdQuit.SetFocus
End Sub
