>>SELECT v_lclients >>GO TOP >> >> >>FOR i = 1 TO numpep >> >> DO CASE >> >> CASE i=1 >> Thisform.pageframe1.page5.combo2.value = clientid >> >> SKIP >> >> CASE i=2 >> Thisform.pageframe1.page5.combo4.value = clientid >> >> SKIP >> >> CASE i=3 >> Thisform.pageframe1.page5.combo5.value = clientid >> SKIP >> >> CASE i=4 >> Thisform.pageframe1.page5.combo6.value = clientid >> >> SKIP >> >> CASE i=5 >> Thisform.pageframe1.page5.combo7.value = clientid >> >> SKIP >> >> ENDCASE >>ENDFOR >>>
SELECT v_lclients >SCAN NEXT numpep > DO CASE > CASE recno()=1 > Thisform.pageframe1.page5.combo2.value = clientid > > CASE recno()=2 > Thisform.pageframe1.page5.combo4.value = clientid > > CASE recno()=3 > Thisform.pageframe1.page5.combo5.value = clientid > > CASE recno()=4 > Thisform.pageframe1.page5.combo6.value = clientid > > CASE recno()=5 > Thisform.pageframe1.page5.combo7.value = clientid > > ENDCASE >ENDSCAN>