Dim xz As WinForm.ComboBox = e.Form.Controls("选择")
Dim btn1 As WinForm.DateTimePicker = Forms("窗口1").Controls("StartDate")
Dim btn2 As WinForm.DateTimePicker = Forms("窗口1").Controls("EndDate")
If xz.value = "今天"
Dim y As Integer = Date.Today.Year
Dim d As Date = Date.Today
btn1.value = d
btn2.value = d
End If
If xz.value = "本周"
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) '获取本周的最后一天
btn1.value = dt1
btn2.value = dt2
End If
If xz.value = "全部"
e.Form.Controls("EndDate").Value = Nothing
e.Form.Controls("StartDate").Value = Nothing
End If
一个下拉框有多个值，选择某个值，会出现对应的时间范围，现在的代码必须先选择“全部”，再选择其他的值才可以查询对应的值，如何修改（应该是if语句的错误？？）
加好友 
发短信
Post By：2016/10/12 9:13:00 [只看该作者]
