Fórum OnKeyPress / Table com Query #267421

  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;

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

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;