none
Como salto a la quinta columna al consultar datos que si existen de mi base de datos en acess desde la primer celda de cada columna RRS feed

  • Pregunta

  • Hola Buen día a todos:

    Tengo un problema con mi datagridview, resulta que al consultar que cuando consulto datos y si existe me salte a la quinta columna 5 pero se baja a la siguiente fila; quisiera que me quede en la quinta columna de la misma fila buscada; en cambio cuando no existe me limpia y me salta a un botón de la cuarta columna para buscar eso no es el inconveniente si no lo primero.

    Esperando su amable ayuda quien me pueda colaborar  de antemano muchas gracias.

    • Cambiado Enrique M. Montejo domingo, 4 de junio de 2017 11:30 Pregunta relacionada con controles de Windows Forms.
    viernes, 2 de junio de 2017 21:18

Todas las respuestas

  • Tengo un problema con mi datagridview, resulta que al consultar que cuando consulto datos y si existe me salte a la quinta columna 5 pero se baja a la siguiente fila; quisiera que me quede en la quinta columna de la misma fila buscada; en cambio cuando no existe me limpia y me salta a un botón de la cuarta columna para buscar eso no es el inconveniente si no lo primero.<o:p></o:p>

    Esperando su amable ayuda quien me pueda colaborar  de antemano muchas gracias.

    <o:p>me olvide el código</o:p>

    ublic Class Form1

        Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
            Dim conexion As OleDb.OleDbConnection
            Dim comando As OleDb.OleDbDataAdapter
            Dim rw As Integer = Me.DataGridView1.CurrentRow.Index
            Dim clave As String = Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value
            conexion = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\SISTEMA ENLAZADO\REPORTES.accdb")
            comando = New OleDb.OleDbDataAdapter("SELECT id_cuenta,cod_cuenta, nom_cuenta From  C_Cuenta where id_cuenta = '" & clave & "'", conexion)
            Dim ds As DataSet = New DataSet()
            ds = New DataSet()
            comando.Fill(ds)
            Dim tabla As DataTable = ds.Tables(0)
            Dim cell As DataGridViewCell = DataGridView1.CurrentCell

            If ds.Tables(0).Rows.Count <> 0 Then
                Me.DataGridView1.Rows(rw).Cells(1).Value = ds.Tables(0).Rows(0)(1) ' Cells(2) es donde aparece la descripción 
                Me.DataGridView1.Rows(rw).Cells(2).Value = ds.Tables(0).Rows(0)(2)

                If DataGridView1.Columns(e.ColumnIndex).Name = "Column1" Then
                    DataGridView1.CurrentCell = DataGridView1(DataGridView1.Columns("Column5").Index, e.RowIndex)
                    Me.DataGridView1.Rows(rw).Cells(e.ColumnIndex).Selected = True

            End If

            ElseIf (Not (DataGridView1.Rows(0).IsNewRow)) Then
                'Me.DataGridView1.CurrentCell.Value = String.Empty
                Dim loFila As DataGridViewRow = Me.DataGridView1.CurrentRow()
                DataGridView1.Rows.Remove(loFila)

                cell = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex + 3)

                DataGridView1.CurrentCell = cell

            End If

        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        End Sub

        Private Sub detectarEnter(ByVal sender As Object, ByVal e As KeyPressEventArgs)
            If e.KeyChar = Convert.ToChar(Keys.Enter) Then  'Si es la tecla Enter
                Dim row = DataGridView1.CurrentRow
                Dim valor As String = row.Cells(0).Value.ToString()
            End If
        End Sub

        Private Sub DataGridView1_EditingControlShowing1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing

            RemoveHandler CType(e.Control, TextBox).KeyPress, AddressOf detectarEnter
            AddHandler CType(e.Control, TextBox).KeyPress, AddressOf detectarEnter
        End Sub
       
    End Class

    <o:p></o:p>

    viernes, 2 de junio de 2017 21:20
  • Ya lo resolvi esta bien solo que me faltada validar enter a las filas y columnas
    sábado, 3 de junio de 2017 18:52