Jump to content
Fórum Script Brasil
  • 0

[resolvido] Buscando Os Valores De Coluna Escondida Para Itens Selecio


Giba_ti
 Share

Question

Olá, pessoal

uso o delphi 5 e tenho um dbgrid que lista uma série de registros conforme filtros que coloquei no form.

ao selecionar ( um ou mais ) registros na lista apresentada e, clicando em um botão de exportação,

preciso que um FOR possa trazer o valor de uma coluna (é a primeira coluna e está escondida)

para as linhas selecionadas.

já consigo que o sistema saiba quais as linhas selecionadas , graças a um exemplo aqui mesmo do forum.

abaixo o código que estou usando ...

procedure TDlgExportaAdiantaCPagar.btnExportaClick(Sender: TObject);

var

Idx :Integer;

begin

ShowMessage( IntToStr( vdbeTitulos.SelectedCount)); // mostra o número de linhas selecionadas

with vdbeTitulos do

begin

for idx:= 0 to vdbeTitulos.SelectedCount - 1 do

// aqui eu preciso saber o valor de cada primeira coluna das linhas selecionadas

ShowMessage( OidTitulo );

end;

end;

Obrigado pela ajuda ...

Edited by Micheus
Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0
Guest --Jonas --
Olá, pessoal

uso o delphi 5 e tenho um dbgrid que lista uma série de registros conforme filtros que coloquei no form.

ao selecionar ( um ou mais ) registros na lista apresentada e, clicando em um botão de exportação,

preciso que um FOR possa trazer o valor de uma coluna (é a primeira coluna e está escondida)

para as linhas selecionadas.

já consigo que o sistema saiba quais as linhas selecionadas , graças a um exemplo aqui mesmo do forum.

abaixo o código que estou usando ...

procedure TDlgExportaAdiantaCPagar.btnExportaClick(Sender: TObject);

var

Idx :Integer;

begin

ShowMessage( IntToStr( vdbeTitulos.SelectedCount)); // mostra o número de linhas selecionadas

with vdbeTitulos do

begin

for idx:= 0 to vdbeTitulos.SelectedCount - 1 do

// aqui eu preciso saber o valor de cada primeira coluna das linhas selecionadas

ShowMessage( OidTitulo );

end;

end;

Obrigado pela ajuda ...

Supondo que vdbeTitulos seja o seu arquivo e OidTitulo seja o campo que esta querendo, pode ser feito assim:

procedure TDlgExportaAdiantaCPagar.btnExportaClick(Sender: TObject);
var
Idx :Integer;
begin
ShowMessage( IntToStr( vdbeTitulos.SelectedCount)); // mostra o número de linhas selecionadas 

with vdbeTitulos do
begin
   vdbeTitulos.first;
   for idx:= 0 to vdbeTitulos.SelectedCount - 1 do
       ShowMessage( vdbeTitulos.OidTitulo.value); // se for campo numerico faça a conversão

end;

end;

Link to comment
Share on other sites

  • 0
procedure TDlgExportaAdiantaCPagar.btnExportaClick(Sender: TObject);
var
  Idx :Integer;
begin
  ShowMessage( IntToStr( vdbeTitulos.SelectedCount));  // mostra o número de linhas selecionadas 

  with vdbeTitulos do
  begin
    for idx:= 0 to vdbeTitulos.SelectedCount - 1 do
      [i][b]// aqui eu preciso saber o valor de cada primeira coluna das linhas selecionadas [/b][/i] 
      ShowMessage( OidTitulo );
  end;
end;

Giba_ti, dê uma olhada neste post.

O código mostra como movimentar-se pelas linhas selecionadas no DBGrid. A questão de acessar uma coluna oculta (na verdade um field do dataset ligado ao DBGrid que possui sua propriedade Visible = false) não apresenta qualquer problema, já que como você pode ver no exemplo, acessamos o campo no dataset (via fieldbyname) e não via propriedade Colunms do DBGrid.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...