[摘要]", "' & chr(124) & '", 0) End Function Function FindFirstFixup(TextI...
", "' & chr(124) & '", 0)
End Function
Function FindFirstFixup(TextIn)
Dim Temp
Temp = ReplaceStr(TextIn, "'", "' & chr(39) & '", 0)
FindFirstFixup = ReplaceStr(Temp, "
关键词：处理在执行数据库查询中的特殊字符的问题