La verdad me siento apenado por preguntar y al poco tiempo encontrar la solucion
Es que con la cabeza fresca se piensa mejor, cuando uno tiene las neuronas recargadas no ve las cosas aunque las tenga delante
Resulta que cuando ayer busque en la ayuda del lookup, revise solo la del ADOdataset, pero hoy (con la mente mas fresca
) se me ocurre revisar tambien en la del TBDEDataset y veo que esta mas detallada, y que al lookup se le pueden poner mas opciones
Yo tenia puesto:
Código Delphi
[-]
Buscar:=BDModulo.TablaCumpmto.Lookup('CodEntidad', FieldByName('CodGEC').AsString, 'CodEntidad');
if Buscar = Null then
ListaIncumple.Items.Add(FieldByName('NombreGEC').AsString)
else
ListaCumple.Items.Add(FieldByName('NombreGEC').AsString);
Pero al ver las demas opciones que se le pueden poner, hice esto:
Código Delphi
[-]
Buscar:=BDModulo.TablaCumpmto.Lookup('CodEntidad; Trim; Anno',
VarArrayOf([FieldByName('CodEnt').AsString,
(cPeriodo.ItemIndex+1),
SpinAnno.Value]),
'CodEntidad; Trim; Anno');
if (VarType(Buscar) in [varNull]) then
ListaIncumple.Items.Add(FieldByName('NombreEntidad').AsString)
else
ListaCumple.Items.Add(FieldByName('NombreEntidad').AsString);
Y ahora si me sale
De todas formas, muchas gracias por su atencion
