标题:求助输入年月的查询
只看楼主
bustion
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-6-29
 问题点数:0 回复次数:3 
求助输入年月的查询

各位大哥:
我要按日期查询,日期字段为数值型,如:200601。
可选择输入年、月year1,moon1,year2,moon2,year3,moon3和查询条件(三个条件的关系)
该如何编?请指教!



搜索更多相关主题的帖子: 输入 查询 
2006-06-29 22:39
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
得分:0 
你这样设置两个OPTIONGROUP是有逻辑问题的。

在COMMAND7.CLICK里写代码
year1=thisform.combo1.value
year2=thisform.combo3.value
year3=thisform.combo5.value
moon1=thisform.combo2.value
moon2=thisform.combo4.value
moon3=thisform.combo6.value
cExprL=".T."
do case
case thisform.optiongroup1.value=1
cExprL=cExprL+".AND.日期="+STR(year1*100+moon1,6)
case thisform.optiongroup1.value=2
cExprL=cExprL+".AND.日期>="+STR(year1*100+moon1,6)+".AND.日期<="+STR(year2*100+moon2,6)
case thisform.optiongroup1.value=3
cExprL=cExprL+".AND.日期="+STR(year1*100+moon1,6)+".AND.日期="+STR(year2*100+moon2,6)
endcase

do case
case thisform.optiongroup2.value=1
case thisform.optiongroup2.value=2
cExprL=cExprL+".AND.日期>="+STR(year2*100+moon2,6)+".AND.日期<="+STR(year3*100+moon3,6)
case thisform.optiongroup2.value=3
cExprL=cExprL+".AND.日期="+STR(year3*100+moon3,6)
endcase

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-06-29 23:56
bustion
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-6-29
得分:0 

Wao~~~,版主你好帅哦!
我还没有仔细推敲,先表示强烈感谢!

2006-06-30 00:10
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
得分:0 
为啥贴两遍?tiger真是热心!

2006-06-30 07:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-75761-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.171734 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved