
Dejar el cursor en la celda
Publicado por ISA (3 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
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


0