主题：日期菜单

参考

http://www.foxtable.com/webhelp/scr/1137.htm

Dim filter As String = "1=1"
Dim d1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
If d1.Value IsNot Nothing Then
    filter = filter & " and 日期 >= #" & d1.Value &"#"
End If
d1 = e.Form.Controls("DateTimePicker2")
If d1.Value IsNot Nothing Then
    filter = filter & " and 日期 <= #" & d1.Value &"#"
End If

改成

Dim filter As String = "1=1"
Dim StartDate As Date
Dim EndDate As Date
With RibbonTabs("实战演练")("任务五")
    StartDate = .Items("StartDate").Value
    EndDate = .Items("EndDate").Value
End With

If startDate <> Nothing Then
    filter = filter & " and 日期 >= #" & startDate &"#"
End If
If EndDate <> Nothing Then
    filter = filter & " and 日期 <= #" & EndDate &"#"
End If