Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
2 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 2 Visitantes

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 1

ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

Estatísticas
Temos 7093 usuários registrados
O último usuário registrado atende pelo nome de edson123

Os nossos membros postaram um total de 12249 mensagens em 1552 assuntos

Mover registros em 02 Grids

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Mover registros em 02 Grids

Mensagem por Rosangela Pires em 12/7/2016, 14:30

Amigos,

Voltei com mais dúvidas.

Tenho 02 grids com os mesmos registros. Necessito que quando estiver com o foco na Grid1 e mover os registros pelas setas ou clicando com o mouse, que a Grid2 tambem vá para o mesmo registro da Grid1. E vice-versa com a Grid2.

Isso tem como ser feito ?

Agradeço a ajuda.

Rosangela
avatar
Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Mover registros em 02 Grids

Mensagem por lardecristo em 15/7/2016, 17:25

Dois grid com o mesmos dados?? Os grids estão em telas diferentes ou na mesma?? Os cursores tem os mesmos nomes para os dois grids???

Bom você pode usar SET RELATION para isso, mas me responda o que perguntei acima e tente mandar uma imagem das telas ou da tela para ficar mais fácil para passar uma solução.
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Mover registros em 02 Grids

Mensagem por Rosangela Pires em 15/7/2016, 19:21

Amigo Lardecristo,

Estou fazendo uma rotina na qual o usuario pode alterar um determinado valor na tabela filtrando pelo código.
O que pretendo é mostrar ao usuario os registros alterados.
Para isso criei duas tabelas, uma contendo os valores sem alteração e outra com os valores alterados.
Após as filtragens e alterações, mostro na tela em duas grids os valores SEM ALTERAÇÃO e os valores ALTERADOS.
O que pretendo é que quando o usuario movimentar a grid pelas setas ou pelo Click em algum registro, de qualquer
tabela, os ponteiros estejam sincronizados ficando os Highlight das grids alinhados, ou sejam mostrando o mesmo
registro nas duas tabelas.

Rosangela
avatar
Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Mover registros em 02 Grids

Mensagem por Rosangela Pires em 18/7/2016, 12:49

Amigos,

Encontrei o código abaixo que após aplicado e ajustado no meu projeto funciou perfeitamente para o que eu necessito :

DoDefault(nColIndex)
Thisform.LockScreen = .T.
Local nDirection, nRecno, nLeftColumn, nRelativeRow

If Recno(This.RecordSource) != Recno(Thisform.GRID2.RecordSource)
nRecno = Recno(This.RecordSource)
Goto nRecno In (Thisform.GRID2.RecordSource)
Endif
nRelativeRow = This.RelativeRow
Thisform.GRID2.Enabled = .T.
Thisform.GRID2.SetFocus()
If nRelativeRow != Thisform.GRID2.RelativeRow
If nRelativeRow < Thisform.GRID2.RelativeRow
nDirection = 1
Else
nDirection = 0
Endif
For i = 1 To 1000
Thisform.GRID2.DoScroll(nDirection)
If nRelativeRow = Thisform.GRID2.RelativeRow
Exit
Endif
Endfor
Endif
Thisform.GRID2.Enabled = .T.
Thisform.GRID2.Refresh()
This.SetFocus()
nLeftColumn = This.LeftColumn
If nLeftColumn != Thisform.GRID2.LeftColumn
If nLeftColumn < Thisform.GRID2.LeftColumn
nDirection = 4
Else
nDirection = 5
Endif
For i = 1 To 1000
Thisform.GRID2.DoScroll(nDirection)
If nLeftColumn = Thisform.GRID2.LeftColumn
Exit
Endif
Endfor
Endif

Thisform.LockScreen = .F.

Obs.: Não estou usando a opção do Forum de informação de código, pois no meu Lap não funciona.

Rosangela
avatar
Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Mover registros em 02 Grids

Mensagem por lardecristo em 18/7/2016, 14:01

Oi Rosangela que legal que você achou um código para o seu problema, se puder postar o link do original seria legal, e sobre usar a opção do código é só você colocar [ code ] no inicio e [ /code ] no final que dá certo, estes são TAG´s para indicar que o conteúdo interno é "Código".

OBS. Remova os espaços, eu os coloquei para que você veja como é o código que será usado.

Exemplo:


[ code ]
CLEAR ALL
[ /code ]
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Mover registros em 02 Grids

Mensagem por Rosangela Pires em 18/7/2016, 16:14

Amigo lardecristo,

O link para o código completo é :

[Você precisa estar registrado e conectado para ver este link.]

Agradeço sua atenção.

Acho que podemos dar como encerrado o topico.

Rosangela
avatar
Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Mover registros em 02 Grids

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum