[Resolvido] Erro Quick report

[yuriarrua 0]

Salve pessoal do forum, eu estou com um problema no meu relatorio do quick report que eu fiz, bom o erro é o seguinte, eu criei um botão imprimir, quando o usuario clicar nesse botão abre o relatorio que eu fiz no "form2" só que tem um problema, o relatorio sempre abre no registro 0001, não tem jeito de ele abrir em outro registro.

o codigo do botão imprimir é esse:

Tbcr.Filtered:=False;TBcr.Filter := 'brinco = '''+TBcr.FieldByName('brinco').AsString+'''';TBcr.Filtered:=True;Form2.QuickRep1.Preview;

Eu upei o meu aplicativo no rapidshare se alguem quiser baixar e ver o erro eu ficaria muito grato, o meu aplicativo estava no diretorio "D", eu estou trbalhando no Delphi 7.

Link do aplicativo

[Hugo Slepicka 0]

Fala fera, beleza?

 

Bom, baixei teu sistema e fazendo isso resolveu o problema...

procedure TForm1.BitBtn1Click(Sender: TObject);begin  if Tbcr.Filtered then	Tbcr.Filtered:=False;  TBcr.Filter := 'brinco = '''+TBcr.FieldByName('brinco').AsString+'''';  TBcr.Filtered:=True;  Form2.QuickRep1.Preview;  Tbcr.Filtered:=False;end;

 

Eu apenas fiz uma verificação para ver se estava filtrada antes de passar o Field By Name... pq ele tava carregando novamente a tabela ao dar .Filtered := False; bele?

 

té mais! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[yuriarrua 0]

Cara muito obrigado mesmo, eu estava quebrando a cabeça nisso, eu ja tinha postado isso em varios lugares e o pessoal me deu varias dicas mais nenhuma resolveu o problema.Mais uma vez muito obrigado, e quando precisar se eu puder te ajudar é so me pedir.feito um abraço

[Hugo Slepicka 0]

Hehe!!!

 

Que isso...

 

Precisando tb é só falar!!! A galera ta ai é pra ajudar...!!!

 

Abraço! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif