按时间段筛选的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

"[time] >= \'"& qd &"\'And [time]< =  \'"& zd &"\'"    

我记得对内部表时间筛选，要加#,而不是\'

"[time] >= #"& qd &"# And [time]< =  #"& zd & "#"    

看下是不是这个问题

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

这样，没反应

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End   If
        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
        Filter  = Filter &   "time<= #" & .Value &   "#"
    End  If
End  With

 e.form.controls("Tablelablist").table.Filter  = Filter

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

参考

Dim bchart = chart.basecontrol
Dim area = bchart.ChartArea
area.Style.BackColor = Color.blue
area.PlotArea.BackColor = Color.yellow