Ver Mensaje Individual
  #2  
Antiguo 21-05-2012
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 Chandra_.

Desconozco el componente TJvDBLookupCombo y si lo permita, pero el TDBLookupComboBox no está pensado para lo que deseas hacer; trabaja en relación directa con los datos existentes en un TDataSet.

Aunque no uso esa modalidad de elección/inserción, una opción con los componentes estandard es utilizar un TComboBox. Por ejemplo:
Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;  // Limpiar combo
  with DataSet do  // llenar el combo 
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('TU_CAMPO').AsString);
      Next;
    end;
  ComboBox1.Items.Add('AÑADIR NUEVO'); // agregar opción nuevo
end;

...

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with Sender as TComboBox do
    if ItemIndex = Items.Count-1 then  // Opción 'AÑADIR NUEVO'
    begin
      // Aquí se llamaría al código de inserción
      //...
      Items[ItemIndex]:= 'Nuevo TU_CAMPO insertado';   // valor del campo
      Items.Add('AÑADIR NUEVO'); // agregar opción al final
    end
    else
      DataSet.Locate('TU_CAMPO', Text, []); // O posicionar con una consulta...
end;
...

Saludos.
__________________
Daniel Didriksen

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