lcSource = "SELECT count(*) as Cnt from sub ; WHERE sub.project_no = projno ; AND sub.workpkg_no = workpkgno ; AND sub.sub_sec = subsec ; AND sub.sub_para = subpar ; AND sub.sub_seq = subseq ; AND DELETED() = .f. ; ORDER BY project_no, workpkg_no ; HAVING Cnt > 0; into cursor cSource"this way, the result will have just Cnt > 0.