public a,b,c
a=rq>= .and.rq<=
b=jsr=
DO CASE
CASE thisform.optiongroup2.value=1
c=thisform.optiongroup2.option1.caption
CASE thisform.optiongroup2.value=2
c=thisform.optiongroup2.option2.caption
CASE thisform.optiongroup2.value=3
c=thisform.optiongroup2.option3.caption
CASE thisform.optiongroup2.value=4
c=thisform.optiongroup2.option4.caption
CASE thisform.optiongroup2.value=5
c=thisform.optiongroup2.option5.caption
CASE thisform.optiongroup2.value=6
c=thisform.optiongroup2.option6.caption
CASE thisform.optiongroup2.value=7
c=thisform.optiongroup2.option7.caption
CASE thisform.optiongroup2.value=8
c=thisform.optiongroup2.option8.caption
CASE thisform.optiongroup2.value=9
c=thisform.optiongroup2.option9.caption
CASE thisform.optiongroup2.value=10
c=thisform.optiongroup2.option10.caption
CASE thisform.optiongroup2.value=11
c=thisform.optiongroup2.option11.caption
CASE thisform.optiongroup2.value=12
c=thisform.optiongroup2.option12.caption
CASE thisform.optiongroup2.value=13
c=thisform.optiongroup2.option13.caption
CASE thisform.optiongroup2.value=14
c=thisform.optiongroup2.option14.caption
CASE thisform.optiongroup2.value=15
c=thisform.optiongroup2.option15.caption
CASE thisform.optiongroup2.value=16
c=thisform.optiongroup2.option16.caption
CASE thisform.optiongroup2.value=17
c=thisform.optiongroup2.option17.caption
CASE thisform.optiongroup2.value=18
c=thisform.optiongroup2.option18.caption
CASE thisform.optiongroup2.value=19
c=thisform.optiongroup2.option19.caption
ENDCASE
sele * from zjtzb where rq=c and jsr=b and xlb=c
go top
thisform.refresh