用四个变量吧
a1=ctod()
a2=ctod()
b=
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>a1 and rq<a2 and jsr=b and xlb=c
go top
thisform.refresh
其中rq,jsr,xlb是你表里的字段哈
[
本帖最后由 wjp456789 于 2012-11-9 21:16 编辑 ]