我在测试

在下想结识各路英雄.QQ565314318

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

[local]1[/local]时间是日期类型

用四个变量吧
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 编辑 ]

首先谢谢!我支测试

成功了!谢谢!

查出来的是弹出的一个表而不是在GRID中显示的

呵呵。家庭小账本。。。
做好后可否共享一下。大家用用。再帮你提点修改意见。
共同学习噻