Ver Mensaje Individual
  #6  
Antiguo 13-03-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola giulichajarí.

Creo haberte entendido, tal vez te resulte mas simple usar TDBLookupComboBox en lugar de TEdit, por ejemplo:
Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Tabla donde se guardará el campo compuesto CARACTERISTICA
  DataSet.Open;

  // Configurar consultas
  with QryNombre do
  begin
    Close;
    SQL.Text:= 'SELECT ID, NOMBRE FROM TU_TABLA ORDER BY NOMBRE';
    Open;
  end;
  with QryMarca do
  begin
    Close;
    SQL.Text:= 'SELECT ID, MARCA FROM TU_??_TABLA ORDER BY MARCA';
    Open;
  end;

  // Configurar DataSources
  dsNombre.DataSet:= QryNombre;
  dsMarca.DataSet:= QryMarca;

  // Configurar DBLookupComboBoxes
  with DBLCBoxNombre do
  begin
    ListSource:= dsNombre;
    ListField := 'NOMBRE';
    KeyField:= 'ID';
  end;
  with DBLCBoxMarca do
  begin
    ListSource:= dsMarca;
    ListField := 'MARCA';
    KeyField:= 'ID';
  end;
end;

procedure TForm1.btnGuardarClick(Sender: TObject);
begin
  // Guardar la composición en el campo "Caracteristica"
  with DataSet do
  begin
    Edit; // (Insert o Append)
    FieldByName('CARACTERISTICA').AsString:= Format('%s %s %s %s',
      [DBLCBoxNombre.KeyValue, EditCaracteristica.Text,
      EditMedida.Text, DBLCBoxMarca.KeyValue]);
    //...
    Post;
  end;
end;
En líneas generales selecciona NOMBRE y MARCA desde la/las tablas definidas en las consultas y concatena estos valores con los de los edits Caracteristica y Medida, guardando este resultado en el campo "CARACTERISTICA" de la tabla X.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita