以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]特殊符号处理  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183669)

--  作者:lgj716330
--  发布时间:2022/11/12 9:24:00
--  [求助]特殊符号处理
Select Case e.DataCol.Name
    Case "财务辅助账类型", "科目编号"
        Dim Filter As String = "[摘要关键字] = \'" & e.DataRow("摘要关键字") & "\'"
        Dim drs As List(Of DataRow) = DataTables("账单汇总表").Select(Filter)
        For Each dr As DataRow In drs
            dr("财务辅助账类型") = e.DataRow("财务辅助账类型")
            dr("科目编号") = e.DataRow("科目编号")
        Next
End Select

跨表引用自动更新中,其中摘要关键字中的某一行,存在A\'bc这样的字符,整行复制或导入时会提示调用的目标发生了异常,提示错误“bc”运算符后缺少操作数,应该是\'这特殊符号的影响,怎么解决呢

--  作者:有点蓝
--  发布时间:2022/11/12 9:37:00
--  
Select Case e.DataCol.Name
    Case "财务辅助账类型", "科目编号"
if e.DataRow.isnull("摘要关键字") = false
Dim Filter As String = "[摘要关键字] = \'" & e.DataRow("摘要关键字").replace("\'","\'\'") & "\'"