Guardar Datos de un DBLookupComboBox
 

Hola de Nuevo... Aquí mi consulta... Tengo un formulario conectado a una base de datos en el varios Edit y DBLookupComboBox, el problema que no puedo guardar los datos que tiene el DBLookupComboBox.
Dejo aquí el código donde guardo los Edit.

Código Delphi [-]
procedure TTFormNuevoProducto.BtnGuardarClick(Sender: TObject);
begin
FrmModArt.ABSQProductos.Insert;
   try
   FrmModArt.ABSQProductos.FieldByName('Codigo').Text:= EditCodigo.Text;
   FrmModArt.ABSQProductos.FieldByName('CodigoProv').Text:= EditCodProv.Text;
   FrmModArt.ABSQProductos.FieldByName('Descripcion').Text:= EditDescripcion.Text;
   FrmModArt.ABSQProductos.FieldByName('Rubro').Text:= ComboBoxRubro.Text;
   FrmModArt.ABSQProductos.FieldByName('Unidad').Text:= ComboBoxUnidad.Text;
   FrmModArt.ABSQProductos.Post;
   TFormNuevoProducto.EditCodigo.Clear;
   TFormNuevoProducto.EditCodProv.Clear;
   TFormNuevoProducto.EditDescripcion.Clear;
   //// TFormNuevoProducto.ComboBoxRubro.Create;
   TFormNuevoProducto.EditCodigo.SetFocus;
   except
     on E:Exception do begin
      MessageDlg('Error: ' + E.Message, mtWarning, [mbOK], 0);
     end;
   end;
  Image1.Visible:=False;
end;

En //// TFormNuevoProducto.ComboBoxRubro.Create; no me corre el programa... Agradecería su ayuda...

¿Por qué no puedes guardar los datos?, ¿qué error sale?

Hola.

Y en ese código, ¿ Cual de los componentes es el TDBLookupComboBox ?

Los que veo, parecen comportarse como se esperaría de un TComboBox o un TDBComboBox, no de un TDBLookupComboBox.

Saludos :)

Perdón ahora lo guarda... eso por tocar donde no debo...

repuesta a mi pregunta
 

donde me saltaba error no era donde lo guardaba, sino donde lo quería dejar vació..

Código Delphi [-]
//// TFormNuevoProducto.ComboBoxRubro.Create;

era

Código Delphi [-]
//// TFormNuevoProducto.ComboBoxRubro.KeyValue := '';

Por eso no me guardaba... :):D:rolleyes: