用组合框作为过滤器在vb.net中按时间显示图表

Dim filter As String = ""
Select Case ComboBox1.SelectedItem.ToString()
    Case "按天"
        filter = "SELECT * FROM Data WHERE 时间 >= DATEADD(day, -1, GETDATE())"
    Case "按周"
        filter = "SELECT * FROM Data WHERE 时间 >= DATEADD(week, -1, GETDATE())"
    Case "按月"
        filter = "SELECT * FROM Data WHERE 时间 >= DATEADD(month, -1, GETDATE())"
    ' 添加其他时间过滤选项的处理逻辑
End Select

' 执行查询并获取数据
Dim connectionString As String = "连接数据库的连接字符串"
Dim dataTable As New DataTable()
Using connection As New SqlConnection(connectionString)
    Using adapter As New SqlDataAdapter(filter, connection)
        adapter.Fill(dataTable)
    End Using
End Using

Chart1.DataSource = dataTable
Chart1.Series.Clear()
Chart1.Series.Add("数值")
Chart1.Series("数值").XValueMember = "时间"
Chart1.Series("数值").YValueMembers = "数值"
Chart1.DataBind()