[Resolvido] Indices corrompidos - Paradox

[Renanbg 1]

Olá pessoal, o sistema com base paradox ta corrompendo os indices da tbvencidas a cada vez que uso essa rotina

 

Hoje := DateToStr(Date);
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Insert into tbvencidas (Cedente, Data_doc, Num_doc, Vencimento, Cod_cedente, Valor, Status, Estabelecimento) select Cedente, Data_doc, Num_doc, Vencimento, Cod_cedente, Valor, Status, Estabelecimento from tbduplicatas where vencimento <:Hoje');
Query1.ParamByName('Hoje').Value:=StrToDate(Hoje);
Query1.ExecSQL;

Então depois se tento ordenar os dados usando o comando abaixo da esse erro de indice corrompido

 

if radiobutton1.Checked=true then
frmdm.tbvencidas.indexfieldnames:='Cedente'
else
if radiobutton2.Checked=true then
frmdm.tbvencidas.indexfieldnames:='Num_doc'
else
frmdm.tbvencidas.indexfieldnames:='Valor';
edit1.setfocus;
edit1.clear;

Alguem sabe porque?

[Renanbg 1]

Resolvido!

 

Apenas criei um campo autoincremento como chave primaria na tbvencidas e os indices não corromperam mais

 

Fica o registra para quem precisar