DBGrid

Question

Ola PessoalSeguinteTenho 2 forms ( frmVenda, e frmResultadoBusca)no form frmVenda,, tm um edit onde o cara digita o nome do produto qdo ele tecla enter,, da um show no form frmResultadoBusca com o res...

Output · Answer

nda??/ rs...

Martins · Answer

[quote:df99a6316d=�rodrigomiss�]Ola PessoalSeguinteTenho 2 forms ( frmVenda, e frmResultadoBusca)no form frmVenda,, tm um edit onde o cara digita o nome do produto qdo ele tecla enter,, da um show no form frmResultadoBusca com o resultado da pesquisa..no frmResultadoPesquisa tm um botao Enviar...eu gostaria d qdo o cara clikasse em enviar ele pegasse o valor da linha da dbgrid selecionada e mandasse esses valores para o dbgrid do frmVenda...e no caso c fosse mais q 1 produto enviado... q eles fossem enviados um abaixo do outro na grid de venda.ex:cod Produto valor125 cal�a jeans 50,00453 camisa 35,00alguem pode me ajudar nisso?[/quote:df99a6316d]e a mesma tabela ou s�o tabelas diferentes?boa sorte!...

Raserafim · Answer

para poder selecionar mais de uma linha vc dever� alterar  dgMultiSelect  para true em Options da DBGrid.e para capturar as linhas que foram selecionadas vc pode utizar o  SelectedRows....

Raserafim · Answer

d� uma olhada no help do Delphi sobre SelectedRows que vc vai encontrar um exemplo....

Output · Answer

sao tabelas diferentes .......

Delphi32 · Answer

Olha, n�o sei se eu entendi direito, mas voc� pode tentar fazer assim:

Digamos que frmVenda esteja sendo mostrado. Ao pressionar bot�o Consultar:

if frmResultadoBusca.ShowModal=mrOK then
begin
   //>>depois que o usu�rio pressionou o enviar a tela fecha
   //>>e a� voc� executa
   //>>parte abaixo retirado do help do delphi
   if frmResultadoBusca.DBGrid1.SelectedRows.Count>0 then
   with frmResultadoBusca.DBGrid1.DataSource.DataSet do
   for i:=0 to frmResultadoBusca.DBGrid1.SelectedRows.Count-1 do
   begin
      GotoBookmark(pointer(frmResultadoBusca.DBGrid1.SelectedRows.Items[i]));
      for j := 0 to FieldCount-1 do
      begin
         if (j>0) then s:=s+�, �;
         s:=s+Fields[j].AsString;
      end;
      //>>Nesse momento "s" est� com os dados de todas as colunas
      //>>da linha atual (uma das selecionadas)
      Listbox1.Items.Add(s);
      //>>No exemplo do delphi ele insere os dados em um listbox
      //>>voc� deve adaptar �s suas necessidades
      s:= ��;
   end;
end;
FreeAndNil(frmResultadoBusca);

Nesse caso, voc� teria que setar o ModalResult do bot�o Enviar para mrOK.

t+!

Output · Answer

kra desculpa + como eu so iniciante em delphi vo t q t perguntar oke vc quis dizer na seguinte linha:

GotoBookmark(pointer(frmResultadoBusca.DBGrid1.SelectedRows.Items[i]));

ese GotoBookmark e pointer ai.... poderia me detalhar sobre eles?

F�rum DBGrid #329226