主题：求助

你好！

订单表日期为datetime 单元格显示为2015-9-3  12:00

在获取最近10天信息时，报错显示时间格式不一致，怎么改代码 

 

Dim tbl As DataTable =  DataTables("订单")    

Dim StartDate As Datetime = Date.Today().AddDays(-10)

Dim lst As List(Of String) = tbl.GetValues("产品"，"[日期] > #" & StartDate & "#")  

代码测试通过，是不是数据有问题？

设置成短日期

 

http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html

 

这组代码显示的图是所有，没起筛选作用，帮忙看看哪里有问题

 

With Forms("报表").Controls("时段筛选") ‘ComboBox
    Dim txt1 As String = .Value
    If txt1 = "近一周"

 

Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries

Dim StartDate As new Datetime
StartDate= Date.Today.AddDays(-7)
Dim tbl As DataTable = DataTables("停机")
Dim lst As List(Of String) = tbl.GetValues("机器号","[申请时间] > # " & StartDate & " # ")

Chart = e.Form.Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Length = lst.Count
For i As Integer = 0 To lst.Count - 1
    Series.X(i) = i
    Series.Y(i) = tbl.Compute("Avg(总耗时)","[机器号] = '" & lst(i) & "'")
    Chart.AxisX.SetValueLabel(i, lst(i))
Next
Chart.AxisX.AnnoWithLabels = True
Series.DataLabelText = "{#YVAL}"   
Chart.VisualEffect = True         
End If
End With

Series.Y(i) = tbl.Compute("Avg(总耗时)","[机器号] = '" & lst(i) & "' and [申请时间] > #" & StartDate & "# ")