1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

ajuda com datagrid (urgente)

Discussão em 'Programação' iniciada por cook, 10 de Março de 2009. (Respostas: 0; Visualizações: 357)

  1. cook

    cook Power Member

    Boas, estou a programar em vb no visual studio 2005, com a compact framework 2.0

    ora já meti um dataset para a gridview e até aqui tudo bem mas agora suge-me uma divida, eu quero quando ando com os botoes esquerda e direita do pda andar para cima e para baixo na datagrid, o problema é que ele anda com celulas e não com as linhas... eu fiz este código para contornar isso mas por vezes salta-me linhas ainda não percebi porque... conseguem-me ajudar? obrigado é urgente

    Código:
    Private Sub ListaCargas_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
            If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
                'Rocker Up
                'Up
            End If
            If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
                'Rocker Down
                'Down
            End If
            If (e.KeyCode = System.Windows.Forms.Keys.Left) Then
                'Left
                If numLinhasLista > 0 Then
    
                    Dim rowActual As Integer
                    rowActual = dgListaCarga.CurrentCell.RowNumber
                    If rowActual > 0 Then
                        dgListaCarga.CurrentRowIndex -= 1
                    End If
    
                End If
                dgListaCarga.Focus()
            End If
            If (e.KeyCode = System.Windows.Forms.Keys.Right) Then
                'Right
                If numLinhasLista > 0 Then
    
                    Dim rowActual As Integer
                    rowActual = dgListaCarga.CurrentCell.RowNumber
                    If rowActual < numLinhasLista - 1 Then
                        dgListaCarga.CurrentRowIndex += 1
                    End If
    
                End If
                dgListaCarga.Focus()
            End If
            If (e.KeyCode = System.Windows.Forms.Keys.Enter) Then
                'Enter
            End If
    
        End Sub
     

Partilhar esta Página