以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174463)

--  作者:aaa1234
--  发布时间:2022/1/17 11:17:00
--  报错
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.10.2
错误所在事件:表,Table_3, DataColChanged
详细错误信息:
调用的目标发生了异常。
表达式包含无效的字符串常量: \'281428126201\'\'。
代码是
If e.DataCol.Name = "追踪号" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.DataRow("追踪号") = Nothing \'那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("物流对账表").Find("[trackingID] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("运费金额") = dr("fee")
        End If
    End If
End If

--  作者:aaa1234
--  发布时间:2022/1/17 11:18:00
--  
前面是没有问题的,然后我想刷新一下表的数据
加了DataTables("table_3").DataCols("追踪号").RaiseDataColChanged()
后出现报错了

--  作者:cd_tdh
--  发布时间:2022/1/17 11:19:00
--  
表达式包含无效的字符串常量: \'281428126201\'\'。
--  作者:有点蓝
--  发布时间:2022/1/17 11:22:00
--  
"追踪号"里面的数据是不是有单引号?
dr = DataTables("物流对账表").Find("[trackingID] = \'" & e.NewValue.replace("\'","\'\'") & "\'")
--  作者:aaa1234
--  发布时间:2022/1/17 11:23:00
--  
能不能判断如果没有这种无效的字符串才执行,否则不执行放在AfterLoad里面
--  作者:有点蓝
--  发布时间:2022/1/17 11:29:00
--  
Contains判断字符串是否包含给定的子字符串。

--  作者:aaa1234
--  发布时间:2022/1/17 11:58:00
--  
老师我的意思是如果遇到无效字符无论是什么都跳过此记录应该怎么弄,以为这个表里面的追踪号有太多这种无效字符,想加个判断
--  作者:有点蓝
--  发布时间:2022/1/17 13:42:00
--  
if e.NewValue.Contains("\'") orelse e.NewValue.Contains("某特殊符号") orelse e.NewValue.Contains.........
--  作者:aaa1234
--  发布时间:2022/1/17 13:47:00
--  
放在If e.DataCol.Name = "追踪号" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.DataRow("追踪号") = Nothing \'那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("物流对账表").Find("[trackingID] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("运费金额") = dr("fee")
        End If
    End If
End If里面吗