- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]语法错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111581)
-- 发布时间：2017/12/25 14:43:00
-- [求助]语法错误
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "成交编号 = \'" & e.Table.Current("编号") & "\'"
If DataTables("commission").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
DataTables("commission").AppendLoad(Filter) \'则追载此订单的订单明细
End If
End If
提示语法错误
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.12.18.1
错误所在事件：
详细错误信息：
\'commission] Where 成交编号 = \'cj-201712-0008\'\' 附近有语法错误。
字符串 \'commission] Where 成交编号 = \'cj-201712-0008\'\' 后的引号不完整。
请问该如何写语法，为什么之前的系统都能运行呢
-- 发布时间：2017/12/25 14:48:00
--
关闭项目重新打开，加入msgbox看弹出什么
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "成交编号 = \'" & e.Table.Current("编号") & "\'"
If DataTables("commission").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
msgbox(DataTables("commission").LoadFilter)
DataTables("commission").AppendLoad(Filter) \'则追载此订单的订单明细
msgbox(DataTables("commission").LoadFilter)
End If
End If
-- 发布时间：2017/12/25 14:59:00
--
设置了外部数据 过滤条件 [_Identify] is null 然后通过上面的代码后 就弹出了 [_Identify] is null
-- 发布时间：2017/12/25 14:59:00
--
以下是引用188802386在2017/12/25 14:59:00的发言：
设置了外部数据 过滤条件 [_Identify] is null 然后通过上面的代码后 就弹出了 [_Identify] is null
设置了外部数据 过滤条件 [_Identify] is null 然后通过上面的代码后 就弹出了 [_Identify] is null
第二次执行的时候（报错之后），弹出什么？
-- 发布时间：2017/12/25 15:25:00
--
第一次和第二次弹出的内容是一样的，如果取消过滤条件 弹出框的内容为空
-- 发布时间：2017/12/25 15:32:00
--
以下是引用188802386在2017/12/25 15:25:00的发言：
第一次和第二次弹出的内容是一样的，如果取消过滤条件 弹出框的内容为空
第一次和第二次弹出的内容是一样的，如果取消过滤条件 弹出框的内容为空
弹出msgbox(filter)看看，那不可能有问题。实例发上来测试。
-- 发布时间：2017/12/25 15:53:00
--
就是一个订单表和一个明细表，默认明细表为空 但点击订单表某一行后能实现从后台加载该订单表的明细，请问有没其他办法呢 用的是sql数据库
-- 发布时间：2017/12/25 16:05:00
--
执行这个代码不可能报错 DataTables("commission").AppendLoad(Filter) \'则追载此订单的订单明细
请确认是哪句代码报错造成的，实例发上来测试。
-- 发布时间：2017/12/26 17:56:00
--
If e.Table.Current IsNot Nothing Then
msgbox("1")
Dim Filter As String = "成交编号 = \'" & e.Table.Current("编号") & "\'"
msgbox("2")
If DataTables("commission").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
msgbox("3")
DataTables("commission").AppendLoad(Filter) \'则追载此订单的订单明细
msgbox("4")
End If
End If
这段出错
此主题相关图片如下：企业微信截图_20171226175426.png
此主题相关图片如下：企业微信截图_20171226175426.png-- 发布时间：2017/12/26 17:58:00
--
msgbox(filter)弹出什么？