GRID
Bom dia a todos!!
Gostaria de saber como eu atualizo um dbgrid e mantenho o cursor na mesma linha que eu atualizei!
Tipo tenho um grid que que tem um check box,quando clico nele ele da um update em uma tabela e em seguida dou um requery no recordset,porem ele volta oara o primeiro registro,tem como mantelo no registro que eu cliquei?
Gostaria de saber como eu atualizo um dbgrid e mantenho o cursor na mesma linha que eu atualizei!
Tipo tenho um grid que que tem um check box,quando clico nele ele da um update em uma tabela e em seguida dou um requery no recordset,porem ele volta oara o primeiro registro,tem como mantelo no registro que eu cliquei?
Eu não trabalho com dbGrid...
Mas vamos la.
No FlexGrid eu faço assim quando quero pegar o localização de um registro na Grid.
Dai para frente eu Excluo esse registro da Grid e a Atualizo, para manter o cursor eu faço assim
o inverso.
talvez isso te ajude
Mas vamos la.
No FlexGrid eu faço assim quando quero pegar o localização de um registro na Grid.
linha = Me.FlexGrid.RowSel [ô] a Linha que eu selecionei
CTO = Me.FlexGrid.TextMatrix(linha, 0) [ô] Linha + Coluna = Registro
Dai para frente eu Excluo esse registro da Grid e a Atualizo, para manter o cursor eu faço assim
Me.FlexGrid.RowSel = linha
o inverso.
talvez isso te ajude
Esse jeito não foi no meu,as propriedades são diferentes!
Coloque o codigo para eu dar uma olhada
If ColIndex = 5 Then
sSql = [Ô] UPDATE ##CONVENIO SET STATUS = [ô]S[ô] [Ô]
sSql = sSql & [Ô] WHERE N_CD_CODIGO = [Ô] & Pecas!N_CD_CODIGO
sSql = sSql & [Ô] AND N_CD_FILIAL = [Ô] & Pecas!N_CD_FILIAL
sSql = sSql & [Ô] AND S_DSC_CODLIB = [ô][Ô] & Pecas!S_DSC_CODLIB & [Ô][ô][Ô]
DB_Base.Execute sSql
End If
Pecas.Requery
sSql = [Ô] UPDATE ##CONVENIO SET STATUS = [ô]S[ô] [Ô]
sSql = sSql & [Ô] WHERE N_CD_CODIGO = [Ô] & Pecas!N_CD_CODIGO
sSql = sSql & [Ô] AND N_CD_FILIAL = [Ô] & Pecas!N_CD_FILIAL
sSql = sSql & [Ô] AND S_DSC_CODLIB = [ô][Ô] & Pecas!S_DSC_CODLIB & [Ô][ô][Ô]
DB_Base.Execute sSql
End If
Pecas.Requery
Tópico encerrado , respostas não são mais permitidas