此主题相关图片如下：未命名.jpg

'*********************************************************************************************************
  '函数名：ReplaceAllLabel
  '作  用：将标签名称转换成对应标签内容
  '参  数： Content需转换的内容
  '*********************************************************************************************************
  Function ReplaceAllLabel(Content)
   dim Node
   Call LoadLabelToCache()    '加载标签
   For Each Node in Application(KS.SiteSN&"_labellist").documentElement.SelectNodes("labellist")
    Content=Replace(Content,Node.selectSingleNode("@labelname").text,Node.text)
   Next
   Call LoadJSFileToCache()   '加载JS
   For Each Node in Application(KS.SiteSN&"_jslist").documentElement.SelectNodes("jslist")
    Content=Replace(Content,Node.selectSingleNode("@jsname").text,Node.text)
   Next
   ReplaceAllLabel=Content
   替换自定义函数标签
   Dim DCls:Set Dcls=New DIYCls
   ReplaceAllLabel=DCls.ReplaceUserFunctionLabel(Content)
   Set DCls=nothing
  End Function
  
  Function ReplaceSQLLabel(Content)
   '替换自定义函数标签
   'Dim DCls:Set Dcls=New DIYCls
   'ReplaceSQLLabel=DCls.ReplaceUserFunctionLabel(Content)
   'Set DCls=nothing
  End Function

  '加载数据库的所有标签到缓存 
   Sub LoadLabelToCache()

按照修复帖把红色前面的单引去掉还出现以上图片显示的问题;

请大家帮忙解决一下;或者知道的告知!谢谢了

  '替换自定义函数标签

意思是这个不是加红色的前面的单引号不能去掉