No actualice bien el código final en el post 4 y no puedo editar el mensaje asi que lo coloco aqui:
Código Delphi
[-]
...
TListaBoletaTmp.First;
while TListaBoletaTmp.Eof = False do
begin
if TListaBoletaTmpSELECCION.Value=True then
begin
TListado.Filter := '[ANIO] = ' + QuotedStr(TListaBoletaTmpANIO.Value) + ' and [MES] = ' +
QuotedStr(TListaBoletaTmpMES.Value) + ' and [MES_SUP] = ' + QuotedStr(TListaBoletaTmpMES_SUP.Value) +
' and [DNI] = ' + QuotedStr(TListaBoletaTmpDNI.Value);
TListado.Filtered := True;
TListado.First;
while TListado.Eof = False do
begin
TListado.Edit;
TListadoSELECCION.Value := 1;
TListado.Post;
TListado.Next;
end;
end;
TListaBoletaTmp.Next;
end;
...