'2019' 附近有语法错误。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → '2019' 附近有语法错误。

共有2240人关注过本帖树形打印复制链接主题：'2019' 附近有语法错误。

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/4 12:56:00 [显示全部帖子]

Dim d1 As Date = e.Form.Controls("DateTimePicker1").value

Dim d2 As Date = e.Form.Controls("DateTimePicker2").value

If d1 = Nothing Or d2 =Nothing Then

MessageBox.Show("开始或结束日期不能为空!","友情提示",MessageBoxButtons.OK)

Else

With DataTables("服装资料表")

.LoadFilter = "[录入日期]>=#" & d1 & "# and [录入日期]<=#" & d2 & "#"

.load()

End With

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/4 16:58:00 [显示全部帖子]

那就改成这样即可

.LoadFilter = "[录入日期]>='" & d1 & "' and [录入日期]<='" & d2 & "'"

主题：'2019' 附近有语法错误。