FPW 2.6a : it's in there?
Save to folder
Hi All: OK, it's one of those days, and I'm certain that I'm overlooking something obvious. The following is from the setup code from one of my screens. All is fine on the first pass through the code, but the second time, I get a "File is in use" error. Suggestions? Adolph #READCLAUSE &readstr #SECTION 1 parameters m.select, m.stud_ed set exclusive off on error current=select() select 0 free=select() select 0 use info && It hangs here the second pass through locate for rtrim(field)="enrollment" m.enroll_def=value if .not. used("student") select (free) use student s_open=.f. else select student s_open=.t. endif file_locked=.f. readstr="NOLOCK" if flock() file_locked=.t. readstr="LOCK" else file_locked=.f. readstr="NOLOCK" do alert2b.spr with "Another user is currently editing this file.", "Editing will not be possible." endif r_old_order=order() set order to l_name if 0!=m.stud_ed locate for studentid==m.stud_ed if .not. found() go top stud_list=1 else && Scroll through list to find student x=0 do while not bof() skip -1 x=x+1 enddo stud_list=x endif else go top stud_list=1 endif hld_stud_id=studentid