PMFJI, I'd like to propose a little modification to your code. I'm not a big fan of DO WHILE .T. ... EXIT, so, here's how I would have done it:

select DispChek		
set order to dispchek
do while seek(lcDispatchNumber+DspCkItm.driver+lcdrvnum,'Dispchek','dispchek')
    scatter memvar blank
    gather memvar
enddo

I have not tested it, but from a quick look, I think it would do the same as your code.

>Yes, that's what I intended to do. I just changed to program code, and it works. This is what I have now:
>
>select DispChek
>set order to dispchek
>do while .t.
>    if seek(lcDispatchNumber+DspCkItm.driver+lcdrvnum,'Dispchek','dispchek')
>        scatter memvar blank
>        sather memvar
>    else
>        exit
>    endif
>enddo