主题：表达式包含无效的字符串常量: '。

代码 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

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

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

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 事件报错

改成

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