Grrrr.... Alguem ae me ajuda

Question

Ae galera. to com um probleminha no Table1.setKey

Table1.setKey;
Table1.fieldByName(�descricao�).asString := edit1.text;
if table1.gotoKey then showmessage(�achou�);

Isso teria que dar certo, s� que ele fala que o Table1 nao ta em Edit ou Insert mode...

Porque ??

Navoid · Answer

cara tu tais tentado mudar o conteudo de um campo
por isso ele d� a mensagem
eu num sei o que faiz o setkey e o gottokey, s� sei que pra alterar o valor de um campo vc tem que estar inserindo ou editando um registro.

at�

Mecq_clayton · Answer

Well n�o sei bem se ajuda mas tente subustituir a linha abaixo:Table1.setKey; por:Table1.EditKey; Por favor poste no for�m caso funcione....

Nildo · Answer

o SetKey dubstitue o Edit ou Insert.O SetKey abilita o modo pesquisa no TTable.Conforme voce atribue o FieldByname como um valor, ele pesquisa de acordo com o valor que voce atribuiu no FieldByname.o GotoKey retorna true se posiciona no registro correspondente ao da pesquisa.o GotoNearest vai para o mais pr�ximo do registro.Concluindo, eu nao to tentando mudar o conteudo. Isto faz parte da pesquisa.Da um F1 em cima da palavra setKey no delphi e veja no Exemplo!...

Nildo · Answer

mac_kleyiton...deu o mesmo erro na hora da atribuicao de valores...

Mecq_clayton · Answer

Well BINGO tenta ai:Table1.EditKey;Table1.setKey;Table1.fieldByName(�Name�).asString := edit1.text;if table1.gotoKey thenbegin        showmessage(�achou�);end;Poste no for�m os resultados....

Mecq_clayton · Answer

Well ai funcionou?...

Nildo · Answer

Mesmo erro. Ele da o mesmo erro na hora da atribui��o...

Rosset · Answer

Table1.IndexFieldNames:=�Codigo�; //indexa a table pelo campo codigo
Table1.SetKey; //coloca em modo de pesquisa
if FindKey([eCodigo.text]) then
begin
eDescricao.text:= Table1.FieldByName(�Descricao�).AsString;

e assim por diante !!!

ISSO??

Nildo · Answer

Valew rosset. vou testar...Mas e se eu quiser procurar o campo que o �codigo� for eCodigo.text e a �descricao� for eDescricao.text ?...

Anonymous · Answer

Table1.IndexFieldNames:=�Codigo�; //indexa a table pelo campo codigo
Table1.SetKey; //coloca em modo de pesquisa
if FindKey([eCodigo.text]) then
begin
eDescricao.text:= Table1.FieldByName(�Descricao�).AsString;

e assim por diante !!!

ISSO??

Nildo · Answer

Queria procurar o registro que o campo DESCRICAO for �Teste� e que o campo NOME for �Nome do produto�...

Anonymous · Answer

Table1.IndexFieldNames:=�NomeDoProduto�; //indexa a table pelo campo codigo
Table1.SetKey; //coloca em modo de pesquisa
if Table1.FindKey([eProduto.text]) then
if Table1.Locate(eDescricao.text,Table1.FieldByName�Descricao�).AsString;
begin
eDescricao.text:= Table1.FieldByName(�Descricao�).AsString;
//outras linhas
end;

S� N�O SEI SE A LINHA DO LOCATE � BEM ASSIM MAS � +- ASIMM..

e assim por diante !!!

ISSO??

Mecq_clayton · Answer

U� eu fiz um exemplo aqui e funcionou com as linha que eu te mandei!!!!...

Nildo · Answer

meq_cleyiton, eu me lembrei agora que nao estou utilizando �ndice hehehe to com problemas no meu locate. da uma olhada no t�pico Problemas com Locatevalew...

F�rum Grrrr.... Alguem ae me ajuda #136515