主　　题：请教程序中这两句是什么意思？不知那位大侠能帮我解释一下 ^-^

   
      在数据库应用中，   经常要动态生成   Select   语句，如果在录入的   Text1   中有一个单引号，将出错！现有函数可以处理此问题：  
   
  FUNCTION   CheckString   (s)   as   String  
  pos   =   InStr(s,   "'")  
  While   pos   >   0  
  s   =   Mid(s,   1,   pos)   &   "'"   &   Mid(s,   pos   +   1)  
  pos   =   InStr(pos   +   2,   s,   "'")  
  Wend  
  CheckString="'"   &   s   &   "'"    
  END   FUNCTION  
   
  请教程序中这两句是什么意思？不知那位大侠能帮我解释一下     ^-^非常感谢  
  s   =   Mid(s,   1,   pos)   &   "'"   &   Mid(s,   pos   +   1)  
  pos   =   InStr(pos   +   2,   s,   "'")  
     
  问题点数：20、回复次数：1Top

1 楼Ganzl（甘逐浪）回复于 2001-12-02 12:31:48 得分 20

1、将字符串中的'转换为两个'  
  2、继续向下找'  
   
  实现同样功能可以简单的使用replace(str,"'","''")Top

相关问题

• pos
• mid
• instr

• 帖主：ninajs
• Ganzl

• Visual Basic类图书
• Visual Basic类源码下载