srsilver

Não, na verdade é sobre a mesma tabela... mas pensando muito acabei resolvendo, pois eu fazia busca por RG e por Nome Abaixo vai como resolvi procedure TFrmPesquisa.DBGrid1DblClick(Sender: TObject); var linha,coluna: integer; valorcampo: string; begin DM.Ocor_Select; valorcampo:=DM.QryPesquisa.Fields[0].AsString; if FrmPrincipal.flag='0' then // criei um flag em outro form e a partir disso gerei os resultados corretos DM.Qry1.Locate('Nome', trim(valorcampo), [loCaseInsensitive, loPartialKey]) else if FrmPrincipal.flag='1' then DM.Qry1.Locate('RG', trim(valorcampo), [loCaseInsensitive, loPartialKey]); FrmPesquisa.Close; end;

Olá, acho que isso abaixo pode ajudar, porém tive que enganar os campos data para que colocassem . em vez de / senão os exceis mais novos invertem o dia com o mês. procedure form.BtnExpExcelClick(Sender: TObject); var linha, coluna : integer; var planilha : variant; var valorcampo, valorcabecalho : string; begin // DataM1 é minha form só de banco de dados, separada DataM1.qry1.CachedUpdates := true; planilha:= CreateoleObject('Excel.Application'); planilha.WorkBooks.add(1); planilha.caption := 'Exportando dados do dbGrid para o Excel'; planilha.visible := true; DataM1.qry1.ApplyUpdates; DataM1.qry1.First; for linha := 0 to DataM1.qry1.RecordCount - 1 do begin for coluna := 1 to DataM1.qry1.FieldCount do //valorcabecalho:=''; //valorcabecalho := DataM1.1.Fields[coluna - 1].DisplayLabel; //if (valorcabecalho <> 'CAMPO') or (valorcabecalho <> 'CAMPO') THEN begin valorcampo := DataM1.qry1.Fields[coluna-1].AsString; // tratamento para colunas que são data if (coluna=14) or (coluna=15) or (coluna=16) then planilha.cells[linha + 2,coluna]:= Copy(valorcampo,1,2) + '.' + Copy(valorcampo,4,2) + '.' + Copy(valorcampo,7,4) else planilha.cells[linha + 2,coluna]:= valorcampo; end; DataM1.qry1.Next; end; // Inserindo cabeçalho da planilha planilha.cells[1,1] := 'cabeçalho; planilha.columns.Autofit; end;

Olá Pessoal, Tenho dois dbgrids: O primeiro é de pesquisa, que gera depois de um select em sql. Gostaria que acontecesse que ao marcar em alguma célula desse grid, ele apontasse para outro grid, onde fica o cadastro. Não posso fazer direto com o resultado, pois na select uso o like e %, fazendo com que apareça vários resultados. Por isso que preciso exatamente da linha que eu marcar do resultado da pesquisa. Ex: DM.QryExcluido.Locate('Nome', [DM.QryPesquisa.fieldbyName('Nome').asString], [loCaseInsensitive, loPartialKey]); Sei que o Delphi não faz isso, mas é como eu gostaria que fosse... Queria que ele marcasse a célula exata que eu marcasse para atualizar no outro grid. <_<