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.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...