主题：[求助]关于按时间段筛选表

按时间段筛选的click事件，似乎无效。

 

If e.Form.controls("DateTimePicker1") Is  Nothing Then
    Dim qd As Date = e.Form.controls("DateTimePicker1")
    If e.Form.controls("DateTimePicker2") Is  Nothing Then
        Dim zd As Date = e.Form.controls("DateTimePicker2")
    Else
        Dim zd As Date  = Date.Now
        Tables("Tablelablist").filter = "[time] >= '"& qd &"'And [time]< =  '"& zd &"'"      
        
    End If
End If

e.Form.Controls("StartDate").Value = Nothing
e.Form.Controls("EndDate").Value = Nothing
Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End   If
        e.form.controls("Tablelablist").Filter = Filter &   "time >= #" & .Value &   "#"
    End  If
End  With
With e.Form.Controls("EndDate")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End  If
        e.form.controls("Tablelablist").Filter  = Filter &   "time<= #" & .Value &   "#"
    End  If
End  With

 

 

这样，没反应

请教下老师，这个图表的背景颜色设置，没找到

此主题相关图片如下：2017-06-15_104303.gif