Trazer O Valor Da Tabela - (RESOLVIDO)

[Guest - [_THIAGO_] -]

Olá galera estou fazendo um programa aqui e gostaria de saber como faço para que quando eu clique duas vezes em cima da linha da tabela ele coloque no respectivos dbs edit o valor da tabela e não a string como mostra aí, já tentei trocar o AsString por value mais dá pau no programa, tipo se eu consultar o cliente ele traz os nomes mas não deixa eu excluir ou fazer quaisquer alterações no registro alguém sabe como posso fazer para que quando eu pesquise o registro ele deixe eu fazer isso preciso de uma ajuda.....

valeu galera.

Olhem como está....

procedure TForm7.DBGrid1CellClick(Column: TColumn);

begin

form1.dbedit1.text:=(table1.fieldbyname('nomecl').AsString);

form1.dbedit2.text:=(table1.fieldbyname('nomefan').AsString);

form1.dbedit3.text:=(table1.fieldbyname('enderecocl').AsString);

form1.dbedit4.text:=(table1.fieldbyname('numerocl').AsString);

end;

T+ Thiago

[Progr'amador]

so é você colocar no DataSource dos DBEdit's o mesmo DstaSource que você colocou no DBGrid1, e no DataField coloque os respectivos compos...

Foi o que eu intendi

[Guest - [_THIAGO_] -]

Mas desse jeito o formulário de pesquisa não vai jogar para o formulário de cadastro os respectivos campos. De uma olhada no exemplo que eu coloquei que você irá entender melhor os campos do dbgrid estão em outro form e onde eu quero que ele receba os dados são outro form... entedeu? valeu t+

[Arlon]

Olha esse código que eu uso no OnDblClick (on duplo clique) do DBGrid:

procedure TFrmClientes.DBGrid1DblClick(Sender: TObject);

DM.TBClientes.Edit;

frmcliente.ShowModal;

Nada demais, apenas ponho a tabela em modo de edição e chamo o formulário que possui os campos setados como o Program-amador falou. Quando você põe a tabela em modo de edição não é necessário chamar os valores que estão na tabela da forma como você faz:

-,Aug 19 2004, 01:43 PM]

procedure TForm7.DBGrid1CellClick(Column: TColumn);

begin

form1.dbedit1.text:=(table1.fieldbyname('nomecl').AsString);

form1.dbedit2.text:=(table1.fieldbyname('nomefan').AsString);

form1.dbedit3.text:=(table1.fieldbyname('enderecocl').AsString);

form1.dbedit4.text:=(table1.fieldbyname('numerocl').AsString);

end;

É só colocar a tabela em edição.

[Guest - [_THIAGO_] -]

Tipo até aí pode ser só que tem muitos campos e coloquei apenas para exibição os itens nome, cidade e estado para que fique mais fácil a localização do cliente aí após ter feito a escolha do mesmo ele me traz os dados completos para a edição.

Okz

Thiago

[Guest - [_THIAGO_] -]

Ok galera já deu certo valuzs