Fórum Ixdescending (paradox) #296118

Ferramenta = Delphi5

Olá pessoal,

Estou criando uma tabela em tempo de execusão e meu objetivo é colocar o campo ´perc´ (float) em ordem decrescente. O programa compli normalmente mas na hora em que ele passa nesse procedimento ele me da o seguinte erro: ´table is not index´. Segue o modelo abaixo como estou fazendo.

Quem puder ajudar agradeço,



with dm.table1 do
begin
active:=false;
exclusive:=true;
databasename:=´c:\teste´;
tabletype:=ttparadox;
tablename:=´tabtmp.db´;
with fielddefs do
begin
clear;
add(´produto´, ftstring,20,true);
add(´qtd´, ftinteger,0,false);
add(´preco´ , ftfloat,0,false);
add(´perc´, ftfloat,0,false);
end;
createtable;
AddIndex(´iperc´,´perc´,[ixdescending]);
end;
dm.table1.open;
dm.table1.indexname:=´iperc´;


OBs. Ele compila normalmente mas quando executa me da o seguinte erro: ´table is not index´.

Ricardo