While o que esta errado Tá dificl
26/02/2003
0
while not qrgridfrete.eof do
begin
if (strtoint(txtpeso.Text) >= (qrgridfrete.FieldByName(´faixa_inicial´)).Value) and (strtoint(txtpeso.Text) <= (qrgridfrete.FieldByName(´faixa_final´)).Value) then
begin
txtfaixavalorfrete.Text := qrgridfrete.FieldByName(´valor´).AsString;
end
else
begin
qrgridfrete.Next;
end
end;
end;
Anonymous
Posts
26/02/2003
Anonymous
qrgridfrete.First;
while not qrgridfrete.eof do
begin
if (strtoint(txtpeso.Text) >= (qrgridfrete.FieldByName(´faixa_inicial´).Value)) and (strtoint(txtpeso.Text) <= (qrgridfrete.FieldByName(´faixa_final´).Value)) then
begin
txtfaixavalorfrete.Text := qrgridfrete.FieldByName(´valor´).AsString;
qrgridfrete.Next; // aki tb precisa do Next
end ;
else
begin
qrgridfrete.Next;
end
end;
end;
vê c funciona dinovo
26/02/2003
Anonymous
qrgridfrete.first;
while not qrgridfrete.eof do
begin
if (strtoint(txtpeso.Text) >= (qrgridfrete.FieldByName(´faixa_inicial´)).Value) and (strtoint(txtpeso.Text) <= (qrgridfrete.FieldByName(´faixa_final´)).Value) then
txtfaixavalorfrete.Text := qrgridfrete.FieldByName(´valor´).AsString;
qrgridfrete.Next;
end;
no seu caso o next ta tabela tem que sempre acontecer senão o While vai entrar em um Loop eterno...
Falou.
Leandro
ICQ 128124370
26/02/2003
Anonymous
Espero ter ajudado...
:wink:
26/02/2003
Anonymous
olha só o código abaixo:
while not qrgridfrete.eof do begin
if (strtoint(txtpeso.Text) >= (qrgridfrete.FieldByName(´faixa_inicial´).Value) and
(strtoint(txtpeso.Text) <= (qrgridfrete.FieldByName(´faixa_final´).Value) then
txtfaixavalorfrete.Text := qrgridfrete.FieldByName(´valor´).AsString
else
qrgridfrete.Next;
end;
Segundo, a propriedade fieldByName estava sendo utilizada errada.
verifique que você colocou dois parenteses para fechá-la.
Terceiro, este if nunca será verdadeiro
Não se compara Text com Value. (apesar de Value ser variant ele vem truncado sem os ´0´, o que faz diferença na hora de comparar)
Quarto, utilize FieldByName(´´).AsString;
Valeu.
Clique aqui para fazer login e interagir na Comunidade :)