RDL VBA自定义代码第12行报错BC30205：缺少语句结束符

[rsCompilerErrorInCode] 自定义代码第12行存在错误：[BC30205] 使用RDL VBA时缺少语句结束符

问题根源 #

VBA不支持直接在字符串常量中嵌入变量或函数调用，原代码的else分支里，CStr(locationId)和CStr(deptId)直接写在字符串内部，导致语法解析失败，触发"缺少语句结束符"错误。必须使用&运算符将字符串片段与表达式结果拼接。

修正后的代码 #

Function SetLocationValue(locationId as Integer, allLoc as Integer) As String
      Dim ret as String = ""
      if allLoc = 1 Then
             ret =  "<root Selected="all"/>"
      else
            ret =  "<root Selected="list"><id>" & CStr(locationId) & "</id></root>"
      End If
            return ret
End Function

<!---SET DEPARTMENT-->
      
Function SetDepartmentValue(deptId As Integer, allDept As Integer) As String
      Dim ret as String = ""
      if allDept = 1 Then
            ret =  "&lt;root Selected=&quot;all&quot;/&gt;"
      else
            ret =  "&lt;root Selected=&quot;list&quot;&gt;&lt;id&gt;" & CStr(deptId) & "&lt;/id&gt;&lt;/root&gt;"
      End if
            return ret
End Function
      
<!---END-->

内容的提问来源于stack exchange，提问作者Kamran Khan