hideki
Membros-
Total de itens
1 -
Registro em
-
Última visita
Sobre hideki
hideki's Achievements
0
Reputação
-
Pessoal, estou utilizando com problemas no evento OnKeyDown e OnKeyUp de um TDBLookupListBox. O que está acontecendo é o seguinte: quando ando pelo banco de dados com no TDBLookupListBox com as Setas direcionais era para aparacer no TDBText a descricao do Procedimento , só que está havendo um atraso, por exemplo: quando estou no procedimento A e passo para o Procedimento B, o DBText está recebendo o procedimento A, se passo para o procedimento C, o DBText passa a receber o B,. Como faço para resolver isso? No meu DataSet esta tudo perfeitamente funcionando, utilizando o evendo OnClick funciona perfeitamente. If Key = VK_Up then begin dmUnimed.qryAuxAmb92_1.Close; campo:= dbLFamilia.KeyValue; dmUnimed.qryAuxAmb92_1.SQL.Clear; dmUnimed.qryAuxAmb92_1.SQL.Add('select * from AMB92GRUPO where cod_familia = '+campo+' order by descricao'); dmUnimed.qryAuxAmb92_1.Open; dbtCodigo.Caption := dbLFamilia.KeyValue+'.XX.XXX/X'; end; If Key = VK_Down then begin dmUnimed.qryAuxAmb92_1.Close; campo:= dbLFamilia.KeyValue; dmUnimed.qryAuxAmb92_1.SQL.Clear; dmUnimed.qryAuxAmb92_1.SQL.Add('select * from AMB92GRUPO where cod_familia = '+campo+' order by descricao'); dmUnimed.qryAuxAmb92_1.Open; dbtCodigo.Caption := dbLFamilia.KeyValue+'.XX.XXX/X'; end; Se alguém puder me dar um HELP agradeço! Atenciosamente