informix-4gl 7.2编写的通用菜单函数( 三 )


end if
let menuno = 4
exit while
end case
if answ >= poprowno[menuno] or answ is null or answ < 1 then
continue while
else
if answ < poprowno[menuno] then
let currow = answ
return
end if
end if
end while
end while
end function

推荐阅读