Ajuda para Trabalhar com 2 grids

[Nelson Arcas]

Pessoal

Alguem ja teve que desenvolver uma tela onde era necessario utilizar 2 grids na mesma tela?
Estou tendo que desenvolver uma tela onde tenho que ter 2 grids um disponivel e outro selecionado.
A ideia é que tenho uma grade "Disponiveis" que contem todos os produtos e quando seleciono um grupo especifico a grade selecionado demonstre somente os itens vinculados a esse grupo e que atualize a grade "Disponiveis" somente com os itens que nãpo esteja vinculados. Quando selecionar ou arrastar da grade diponivel para vinculada automaticamente seja atuaizada essa grade vinculada e disponivel.

Caso alguém tenha alguma idéia para compartilhar agradeço.

Valeu

[Marcos Guedes]

Nelson, existem várias formas de fazer o que queres.
Uma delas, é utilizando cursores.

Utilize o método "AfterRowColChange" do grid1 para manipular o grid2.
Quanto ao arrastar, não sei se com grid é possível, mas você poderia utilizar um botão, ou se preferir, trabalhar com treeview.

[Nelson Arcas]

Valeu Marcos
Vou utilizar a opção de colocar o código no botão, na versão atual do sistema que estamos convertendo "Fox 2.5" tem algumas telas onde tratamos essa situação por listbox, porem existe uma limitação de dados que com a grid não existe.

[alceu11]

Nelson
segue um exemplo aproveitando o exmplo do HUGO conforme , FORM1, COLOQUEI DOS GRIDS VEJA METODO LOAD DO FORM
link
- Clique aqui para baixar o arquivo!

[hugo]

tambem vou ter que estudar pra trabalhar com grids em forms

tambem vim do msdos

valeu alceu!

obs.
quero fazer isto funcionar muito em breve utilizando o mysql

[Nelson Arcas]

Alceu,
Baixei o exemplo aqui e vai funcionar para uma outra situação que estava pesquisando, para situação que estou precisando preciso mover os itens, com base no seu exemplo e outros que encontrei em outras linguagens ja estou terminando.
Valeu

Hugo vou colocar assim que terminar um exemplo no forum.

[alceu11]

preciso mover os itens

Nelson
Se precisa mover os itens, so dar um select no pedido que esta selecionado pelo usuario

Código:

wcodped=''
wcodped=ped.codped
Select * from pedidos where ped.codped=wcodped into cursor nomedocurso ou into table nomedatabela
select nomedocursor
If _tally >0
browse
*********ou o seus comandos,
****append from etc.....
else
wait window 'nao existem pedidos para este numero'
endif

Nao se tb se precisa so ,mover , e tb excluir da tabela de origem?
*******************
se precisa excluir da tabela de origem

Código:

wcodped=''
wcodped=ped.codped
******************
do while ped.codped=wcodped

delete for ped.codped=wcodped

sele ped
skip
enddo
ou ..........
sem do while
wcodped=''
wcodped=ped.codped
dele all for ped.codped=wcodped

***********

Aqui

[Nelson Arcas]

Alceu,
Consegui terminar aqui estou postando um exemplo com grid. Valeu mesmo.

- Clique aqui para baixar o arquivo!

[hugo]

valeu alceu, valeu nelson

vou baixar e papirar!