查询窗口的代码报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面是按视频代码，报错：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

错误所在事件：

详细错误信息：

语法错误:“格子”运算符后缺少操作数。

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

错误所在事件：

详细错误信息：

未找到列 [力明科技]。

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

错误所在事件：

详细错误信息：

未找到列 [小明]。

1.提示和视频进行排查，没发现问题点，列名都有，还日期，没报错，但不执行，没反映。请老师看看，哪里错？谢谢

'开始查询

Dim nms() As String = {"cmbCustomer","cmbEmployee","cmbProduct","StartDate","EndDate"} '

Dim sps() As String = {" "," "," "," #","# "} '

Dim bjf() As String = {"=","=","=",">= ","<="} '

Dim fds() As String = {"客户","业务员","产品名称","交货日期","交货日期"} '

Dim Filter As String

For i As Integer = 0 To nms.length - 1

If e.Form.Controls(nms(i)).Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).Value & sps(i)

End If

Tables("订单登记明细").Filter = Filter

生成的条件有问题

msgbox（Filter）

http://www.foxtable.com/webhelp/topics/1485.htm

用这个排查msgbox（Filter），显示正常，但实际执行就是报错

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

错误所在事件：

详细错误信息：

语法错误:“吧桌”运算符后缺少操作数。

日期筛选是可以，但是"客户","业务员","产品名称"，报错

还有用书上做查询，也是一样

方法一

Dim s As String = e.Sender.Text

With DataTables("订单登记明细")

.LoadFilter = "产品名称 Like '%" & s & "%'"

.Load()

End With

方法二

Dim s As String = e.Sender.Text

With DataTables("订单登记明细")

.LoadFilter = "产品名称 In ('" & s.Replace("," , "', '")&"')"

.Load()

End With

还有一个窗口上是放一个导航栏，导航栏放三个目录树，一个目录只是简单分类是可以显示，其他二个按帮助去做都报错，说是AfterLoad事件错，也没排查出问题，

1.AfterLoad放太目录树事件会不会打架？

msgbox（Filter），肯定不正常，贴出来看看

测试结果

此主题相关图片如下：查询异常.jpg

，但执行时，时间查询可以，就是其他三个字段查询，出错

没看到查询条件有很多多余的空格么

Dim sps() As String = {"'","'","'","#","#"}

[此贴子已经被作者于2020/1/13 20:15:49编辑过]

主题：查询窗口的代码报错