- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何按起止日期加载？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187596)
-- 发布时间：2023/7/29 15:56:00
-- 如何按起止日期加载？
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改了日期，也找不到，如何解决？
-- 发布时间：2023/7/29 16:25:00
--
此主题相关图片如下：起止日期.jpg
-- 发布时间：2023/7/29 16:28:00
--
Dim StartDate As Date = New Date(Date.today.Year, Date.today.Month, 1)
Dim EndDate As Date = New Date(Date.today.Year, Date.today.Month, Date.DaysInMonth(Date.today.Year, Date.today.Month))
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()