|
Field lookup en query.
Estoy intentando poner en tiempo de ejecucion un campo lookup en una query y me da un mensaje de error: Field 'dblOperariosEmp' not found.
dblOperariosEmp es un campo de tipo TDBLookupComboBox. y el codigo que introduzco en tiempo de ejecucion es el siguiente:
nombre:=TStringField.Create(nil);
qryBusquedas.Fields.Add(nombre);
nombre.Name:='NOMBRE';
nombre.FieldKind:=fkLookup;
nombre.DisplayLabel:='Nombre';
nombre.Size:=30;
nombre.KeyFields:='IDOPERARIO';
nombre.LookupDataSet:=dtmNominas.qryOperarios;
nombre.LookupKeyFields:='IDOPERARIO';
nombre.LookupResultField:='NOMBRE';
dtmNominas.qryOperarios.Open;
dblOperariosEmp.ListSource:=dtmEmpresas.dtsBusquedas;
dblOperariosEmp.ListField:='NOMBRE';
dblOperariosEmp.KeyField:='IDMATRICULA'; *
Me estoy volviendo loco, no encuentro el error. Salta en la instruccion con el asterisco. Gracias
|