e.Form.Controls("StartDate").Value = New Date(Date.today.Year, Date.today.Month, 1)
e.Form.Controls("EndDate").Value = New Date(Date.today.Year, Date.today.Month, Date.DaysInMonth(Date.today.Year, Date.today.Month))
Dim StartDate As Date
Dim EndDate As Date
Dim cmd As New SQ-LCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELEC-T 产品ID, 客户ID, 单价, 数量, 日期 FROM {订单} WHERE 日期 >= #" & StartDate & "# And 日期 <= #" & EndDate & "# "
Tables("查询_Table1").DataSource = cmd.ExecuteReader()
注:StartDate和EndDate是DateTimePicker
执行上面代码,没报错,但是不找数据,StartDate和EndDate改了日期,也找不到,如何解决?