以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表达式包含无效的字符串常量: '。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121611)
--  作者：nbsugu_z
--  发布时间：2018/7/10 12:19:00
--  表达式包含无效的字符串常量: '。

代码 s elect 成本_结算日期,成本_所属项目,成本_提供方 As 供应商,成本_内容,成本_计量单位,成本_数量,成本_金额 As 成本_价税合计,成本_税率,成本_分离金额,成本_分离税额,成本_平台,_Identify FROM {pzk} WHERE 成本_金额 Is not NULL Or 成本_金额 = 0

 

 

哪里出问题呢

 

Dim r As Row = Tables("主材录入显示窗口").Current
If r IsNot Nothing Then
    Dim po As Integer = Tables("pzk").FindRow("[_Identify]= " & r("_Identify") & "\'")
    If po >= 0 Then
        Tables("pzk").Position = po
    End If
End If

[此贴子已经被作者于2018/7/10 12:19:31编辑过]
--  作者：有点甜
--  发布时间：2018/7/10 12:35:00
--  

你的sql语句，在sql测试窗口测试，报错吗？报什么错？

 

http://www.foxtable.com/webhelp/scr/1484.htm

 
--  作者：nbsugu_z
--  发布时间：2018/7/10 12:42:00
--  
表达式包含无效的字符串常量: \'。
--  作者：nbsugu_z
--  发布时间：2018/7/10 12:49:00
--  

Dim r As Row = Tables("主材录入显示窗口").Current
If r IsNot Nothing Then
    Dim po As Integer = Tables("pzk").FindRow("[_Identify]= " & r("_Identify") & "\'")
    If po >= 0 Then
        Tables("pzk").Position = po
    End If
End If

 

这里报错的，查询表currentchanged 事件报错
--  作者：有点甜
--  发布时间：2018/7/10 15:10:00
--  

改成

 

Dim po As Integer = Tables("pzk").FindRow("[_Identify]= " & r("_Identify"))