原来是“&”和“+”在搞鬼

一段小程序，却总是出错，百思不得其解，原来是连接符“&”和“+”在搞鬼，如下：

  

    create table text( 数量,Integer)

    Dim dbs As Database
    Dim rst As Recordset
    Dim strSQL As String
    Dim fang As Integer
    Set dbs = CurrentDb()
    
    fang = 10

    strSQL = "insert into text(数量)values(" + fang + ")"   '这时会出错，提示类型不匹配

    strSQL = "insert into text(数量)values(10)"    '不出错，可以正常添加记录

   

    修改：

    strSQL = "insert into text(数量)values(" & fang & ")"   '将"+"替换为"&"，程序就可以正常运行了。
    dbs.Execute strSQL

 

    "+"替换为"&"的用法区别请参看：http://www.exceljy.com/thread-2485-1-1.html