一个代码换行的问题（提示错误,红色部分）
这个代码不能用 空格+“_”换，不知道为什么？是SQL查询语句，不知道会不会有特殊性。

sql = "SELECT 区域,sum(iif(新建类型='新址新建900',1,0)) as 新900站点数, _
sum(iif(新建类型='新址新建900',载频数,0)) as 载波数1 _
FROM 宏站 group by 区域"

就上面这段

VB code

Dim cnn As New ConnectionDim rs As New RecordsetDim sql As StringDim qx As Stringcnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\数据库.mdb"sql = "SELECT 区域,sum(iif(新建类型='新址新建900',1,0)) as 新900站点数, _sum(iif(新建类型='新址新建900',载频数,0)) as 载波数1 _FROM 宏站 group by 区域"rs.Open sql, cnn  '复制字段名    For i = 1 To rs.Fields.Count        Cells(1, i) = rs.Fields(i - 1).Name    Next i   '复制全部数据    Range("A2").CopyFromRecordset rs    rs.Close    cnn.Close

[解决办法]
这样写：
sql = "SELECT 区域,sum(iif(新建类型='新址新建900',1,0)) as 新900站点数, " & _
" sum(iif(新建类型='新址新建900',载频数,0)) as 载波数1 " & _
" FROM 宏站 group by 区域"

或者这样写：

sql = "SELECT 区域,sum(iif(新建类型='新址新建900',1,0)) as 新900站点数, " & vbCrLf
sql=sql+" sum(iif(新建类型='新址新建900',载频数,0)) as 载波数1 " & vbCrLf
sql=sql+" FROM 宏站 group by 区域"




[解决办法]

VB code

'不能这样换行sql = "SELECT 区域,sum(iif(新建类型='新址新建900',1,0)) as 新900站点数, _sum(iif(新建类型='新址新建900',载频数,0)) as 载波数1 _FROM 宏站 group by 区域"'只能这样换sql = "SELECT 区域,sum(iif(新建类型='新址新建900',1,0)) as 新900站点数," & _"sum(iif(新建类型='新址新建900',载频数,0)) as 载波数1 " & _"FROM 宏站 group by 区域"