selecionar conteudo no dbgrid
ola
como eu poderia fazer para passar os valores de uma linha de um dbgrig para um edit.
por exemplo
oi dbgrid tem as colunas tipo , marca e quantidade, quando eu selecionar uma determinada linha do dbgrig eu gostaria de passar o valor da coluna tipo nessa linha para um edit.
como eu posso fazer isso?
valeu.
como eu poderia fazer para passar os valores de uma linha de um dbgrig para um edit.
por exemplo
oi dbgrid tem as colunas tipo , marca e quantidade, quando eu selecionar uma determinada linha do dbgrig eu gostaria de passar o valor da coluna tipo nessa linha para um edit.
como eu posso fazer isso?
valeu.
Radolpho
Curtidas 0
Respostas
Torgge
09/06/2005
procedure TForm_Sol_Extrato.VerificaLista;
Var
MyLista : TStringList;
I : Integer;
begin
MyLista := TStringList.Create;
{=========Verifica conteudo selecionado no grid ==========}
If not ( dmDados.tblSol_Extrato.IsEmpty ) then
Begin
if DBGrid1.SelectedRows.Count > 0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
MyLista.Add(FieldByName(´COD_CONTA´).AsString);
end;
end;
end;
No Caso estava usando a opção MultSelect do DBGrid, mas ao invés de usar uma StringList, vc usa um edit normal, selecionando apenas um registro do grid.
Var
MyLista : TStringList;
I : Integer;
begin
MyLista := TStringList.Create;
{=========Verifica conteudo selecionado no grid ==========}
If not ( dmDados.tblSol_Extrato.IsEmpty ) then
Begin
if DBGrid1.SelectedRows.Count > 0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
MyLista.Add(FieldByName(´COD_CONTA´).AsString);
end;
end;
end;
No Caso estava usando a opção MultSelect do DBGrid, mas ao invés de usar uma StringList, vc usa um edit normal, selecionando apenas um registro do grid.
GOSTEI 0
Rafael.valler
09/06/2005
Resumindo:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.text:= ibquery1.fields[1].asstring;
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.text:= ibquery1.fields[1].asstring;
end;
GOSTEI 0
Delphi32
09/06/2005
Ou ainda no AfterScroll do DataSet:
Até!
Edit1.Text := DataSet.Fields[0].AsString + ´ - ´ + DataSet.Fields[1].AsString + ´ - ´ + DataSet.Fields[2].AsString;
Até!
GOSTEI 0
Radolpho
09/06/2005
ola
eu uso dbxpress para acesar um bd interbase.
tenho um datamodule1 com sqlconection com um sqldataset com datasetprovider e um clientdataset para acessar a tabela que eu querro
tem como eu fazer o que vocês mostraram com isso?
valeu
eu uso dbxpress para acesar um bd interbase.
tenho um datamodule1 com sqlconection com um sqldataset com datasetprovider e um clientdataset para acessar a tabela que eu querro
tem como eu fazer o que vocês mostraram com isso?
valeu
GOSTEI 0
Gameiro
09/06/2005
No evento ondblclick do dbgrid faça o seguinte:
só não esqueça de converter os dados se necessário na hora de passar para o edit.
Ate mais :)
Edit1.text:=datamodule1.clientdataset1.fieldbyname(´nomedocampo´).asstring;
só não esqueça de converter os dados se necessário na hora de passar para o edit.
Ate mais :)
GOSTEI 0