Visual Basic.NET - Dejar el cursor en la celda

 
Vista:
sin imagen de perfil

Dejar el cursor en la celda

Publicado por ISA (2 intervenciones) el 21/03/2024 18:53:17
Buenas tardes,

Tengo el siguiente código para validar la columna cero de un datagridview, al cual se le insertan los datos manualmente. Lo que no consigo es que si el valor de la celda no se encuentra en mi base de datos que el foco permanezca en dicha celda.

Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
Dim Fila As Integer = e.RowIndex
Dim celda As String = Convert.ToString(DataGridView1.Rows(Fila).Cells(0).Value)

If e.ColumnIndex = 0 Then
If celda <> "" And celda.Length <> 9 Then
Dim Posicion As Integer = InStr(celda, ".")
Dim Izquierda As String = celda.Substring(0, Posicion - 1)
Dim Derecha As String = celda.Substring(Posicion)
Dim Ceros As String = StrDup(9 - Izquierda.Length - Derecha.Length, "0")
DataGridView1.Rows(Fila).Cells(0).Value = Izquierda & Ceros & Derecha
End If
If celda <> "" Then
If conn.SubcuentaNoexiste(DataGridView1.Rows(Fila).Cells(0).Value) = False Then
MsgBox(“La subcuenta NO EXISTE en ficheros”, vbCritical, “Valor no aceptado”)

DataGridView1.Rows(Fila).Cells(0).Value = ""
DataGridView1.CurrentCell = DataGridView1(0, Fila)
End If
End If
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Dejar el cursor en la celda

Publicado por ISA (2 intervenciones) el 22/03/2024 13:19:04
Hola de nuevo. Ya lo he solucionado. Simplemente he borrado la última fila y la he sustituido por:
SendKeys.Send("+{TAB}")
Hay días que es mejor no levantarse de la cama jjjjjjjjjj.
Gracias de todas formas.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar