VF 显示月份值
答案:1 悬赏:30 手机版
解决时间 2021-11-15 10:42
- 提问者网友：浪荡绅士
- 2021-11-15 01:20
VF 显示月份值
最佳答案
- 五星知识达人网友：西风乍起
- 2021-11-15 02:08
在text1的keypress事件里写入以下代码
If nKeyCode=13
If !Between(Val(This.Value),1,12)
Messagebox("请正确输入月份，一年只有12个月")
This.Value=""
Else
Do Case
Case Between(Val(This.Value),1,3)
Thisform.label1.Caption ="春天"
Case Between(Val(This.Value),4,6)
Thisform.label1.Caption ="夏天"
Case Between(Val(This.Value),7,9)
Thisform.label1.Caption ="秋天"
Case Between(Val(This.Value),10,12)
Thisform.label1.Caption ="冬天"
Endcase
ENDIF
Endif
If nKeyCode=13
If !Between(Val(This.Value),1,12)
Messagebox("请正确输入月份，一年只有12个月")
This.Value=""
Else
Do Case
Case Between(Val(This.Value),1,3)
Thisform.label1.Caption ="春天"
Case Between(Val(This.Value),4,6)
Thisform.label1.Caption ="夏天"
Case Between(Val(This.Value),7,9)
Thisform.label1.Caption ="秋天"
Case Between(Val(This.Value),10,12)
Thisform.label1.Caption ="冬天"
Endcase
ENDIF
Endif
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯