Dim td As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim y As Integer = td.value.year '指定年份
Dim m As Integer = td.value.month '指定月份
Dim dt11 As New Date(y, m, 1)
Dim dt22 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
Dim Filter As String
Filter = "单据日期 >= #" & dt11 & "# And 单据日期 <= #" & dt22 & "#"
Dim Val As Double = DataTables("销售订单").SQLCompute("Sum(数量)","产品分类 = '项目料' and & Filter & "'" )
提示错误,请高手指点一下