Tabelas não tem definido ordem do índice

[Linghston]

Caros amigos,
Estou tentando criar pesquisa incremental em Grid e para isto estou usando o codigo abaixo, por eu ter achado mais facil de manipular. Porem quando vou excecutar a rotina ela me retorna a seguinte mensagem:” Tabelas não tem definido ordem do índice.”
Porem esta tudo correto com os indices, o que acontece é que a rotina não reconhece o indice pois estou trabalhando com Grid Select via cursor e o recordsourcetype SQL. Ja quando a tabela é adicionada no Data Environmente e no grid builder adiciono os campos, a rotina funciona que é uma beleza, mas eu quero é que funcione com com Grid Select via cursor e o recordsourcetype SQL.

Então a pergunta: O que eu faço para resolver este problema?
Alguem poderia me ajudar?

Este codigo eu estou colocando no InteractiveChangeEvent do textbox.

Código:

SET EXACT OFF
SEEK ALLTRIM(THIS.VALUE) ==> o erro de indice acontece nesta linha
IF FOUND()
   THISFORM.LOCKSCREEN = .T.   
   THISFORM.Grade1.REFRESH      
   THISFORM.Grade1.SETFOCUS   
   THIS.SETFOCUS             
   THISFORM.LOCKSCREEN = .F. 
ELSE
   MESSAGEBOX("Nenhum registro encontrado!", ;
      64+0+0, "Atenção!!!")
   IF NOT EMPTY(THIS.VALUE)
      KEYBOARD "{BACKSPACE}" CLEAR
   ENDIF
ENDIF

[Julio]

A tabela ou cursor ja esta aberto,a cho que resolve setando o indice.
Foi criado o indice apos gerar o cursor?

SET EXACT OFF

SET ORDER TO NOME_DO_SEU_INDICE


SEEK ALLTRIM(THIS.VALUE) ==> o erro de indice acontece nesta linha
IF FOUND()
THISFORM.LOCKSCREEN = .T.
THISFORM.Grade1.REFRESH
THISFORM.Grade1.SETFOCUS
THIS.SETFOCUS
THISFORM.LOCKSCREEN = .F.
ELSE
MESSAGEBOX("Nenhum registro encontrado!", ;
64+0+0, "Atenção!!!")
IF NOT EMPTY(THIS.VALUE)
KEYBOARD "{BACKSPACE}" CLEAR
ENDIF
ENDIF


****

Outro forma acho que seria

select tabela ou cursor
set order to nome_do_seu_indice


***
Quando faço cursor crio assim

create table ubs(codigo c(7), descricao c(50))
select ubs

insert into ubs (codigo,descricao) values ('1234567','UBS PARQUE DELTA')
insert into ubs (codigo,descricao) values ('9876543','UBS SANTA FELICIA')

index on ALLTRIM(codigo) TAG coduni *** Crio indice aqui para o crusor

[m@r<3|o]

Linghton
Com a Builder tem como fazer aquele efeito .....Digita D ..... a grid muda pra letra D ... pegando do começo , Geralmente uso pra Achar Descricao.
Sem a Builder ... Like que seria pra fazer com reestrutura da grid. Porem Filtra tanto comeco meio fim da palavra.
Tambem tem SET FILTER .... Que filtra .... Tanto da Builder ... como um cursor Select
_______________________________
quando se resolve no select , nao precisa de indice .... O problema do codigo pode ser resolvido colocando

INDEX ON CAMPO TAG CAMPO .

Da uma olhada nesse exemplo meu , tem o autoincremento e mais grids....
[Você precisa estar registrado e conectado para ver este link.]

abs
Marcelo Fazan

[Linghston]

Ola Marcelo,

Obrigado pela sua ajuda, consegui resolver meu problema usando sua dica e agora a tabela esta funcionando como preciso.
Valeu mesmo já estava quase desistindo rsrsrsrs...

Abraços.