OnKeyPress / Table com Query

Delphi

04/02/2005

Bom dia

Em um dbgrid para ajudar a navegação eu coloquei no no evento OnKeyPress a seguintes comandos

  if Key in [´a´..´z´] + [´A´..´Z´] + [´0´..´9´] then
  if (Dbg_Banco.SelectedField.FieldName=´CULTIVAR´) then
    with Tb_banco do
      begin
        SetKey;
        FieldByName(´CULTIVAR´).AsString := UpperCase(Key);
        GotoNearest;
      end;


e tudo OK

Agora quero botar a mesma facilidade na tabela de resultado, Tb_resultado. Esta tabela é formado por uma SQL

  Query1.Close;
  Query1.DatabaseName := ´Banvitis´;
  Query1.SQL.Clear;
  Query1.SQL.Add(´SELECT DISTINCT * FROM Resultante ORDER BY Cultivar ASC´);
  Query1.Open;


E ai começou o meu problema. Entre varias tentativa a abaixo embora nao deu erro, nao funcionou.
Alguma dica

begin
  if not Query1.IsEmpty then
    begin
      if Key in [´a´..´z´] + [´A´..´Z´] + [´0´..´9´] then
      if (Dbg_PesqResultado.SelectedField.FieldName=´CULTIVAR´) Then
      With Tb_Resultado do
        begin
          SetKey;
          FieldByName(´CULTIVAR´).AsString := UpperCase(Key);
          GotoNearest;
        end;
    end;
end;


Obs: No lugar de Tb_Resultado no codigo acima tentei botar Query1 e deu erro


Carlos Machado

Carlos Machado

Curtidas 0
POSTAR