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

Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

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

Dim Enddata As Date = e.Form.Controls("EndDate").value

If (e.Form.Controls("StartDate").text = "") Then

MessageBox.Show("请选择开始时间","提示")

Return

Else If (e.Form.Controls("EndDate").text = "") Then

MessageBox.Show("请选择结束时间","提示")

Return

End If

If cb1.text = "" Then

MessageBox.Show("请选择店铺","提示")

Return

End If

DataTables("SDPHD").LoadFilter = " DM1 = '" & cb1.text & "' And DM2 = 004 AND RQ >= "' & StartDate & "' And RQ <= "' & EndDate & "'"

DataTables("sdphd").load()

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：加载[SDPHD]失败!

详细错误信息：

')' 附近有语法错误。

测试发现是红色部分报错，但是这句没有错啊，应该是黄色的部分错了

所以我修改了一下

DataTables("SDPHD").LoadFilter = "RQ >= "' & StartDate & "' And RQ <= "' & EndDate & "' DM1 = " & cb1.text & " And DM2 = 004"

但是还是报相同的错误，搞不清楚了

[此贴子已经被作者于2020/7/2 6:12:05编辑过]

DataTables("SDPHD").LoadFilter = "RQ >= "' & StartDate & "' And RQ <= "' & EndDate & "' DM1 = " & cb1.text & " And DM2 ='004' "

先看5遍：http://www.foxtable.com/webhelp/topics/1284.htm，如果下次还有同样问题，每次先看5遍再去看自己的代码

DataTables("SDPHD").LoadFilter = " DM1 = '" & cb1.text & "' And DM2 = 004 AND RQ >= & StartDate & "' And RQ <= '" & EndDate & "'"

学会调试：http://www.foxtable.com/webhelp/topics/1485.htm

比如自己区分一下有什么不同：

msgbox(" DM1 = '" & cb1.text & "' And DM2 = 004 AND RQ >= "' & StartDate & "' And RQ <= "' & EndDate & "'")

msgbox(" DM1 = '" & cb1.text & "' And DM2 = 004 AND RQ >= & StartDate & "' And RQ <= '" & EndDate & "'")

[此贴子已经被作者于2020/7/2 9:03:23编辑过]

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