>CASE m.pick='Org' > =SEEK(ThisForm.List1.List(ThisForm.List1.ListIndex),"org","main") > SELECT person.name, auth.organization, auth.authtype, auth.effective, auth.end ; > FROM auth, person ; > WHERE auth.organization=org.organization ; > AND person.id=auth.id ; > INTO CURSOR temp >browse>
>CASE m.pick='Name' >* =SEEK(ThisForm.List1.List(ThisForm.List1.ListIndex),"person","main") local lnPersonID lnPerson=int(val(ThisForm.List1.List(ThisForm.List1.ListIndex))) lnName=ThisForm.List1.List(ThisForm.List1.ListIndex,2) > SELECT lnName as PName, auth.organization, auth.authtype, auth.effective, auth.end ; > FROM auth ; > WHERE auth.id=lnPersonID ; > INTO CURSOR curTemp >browse>