SSRS VB Code error while deploying report -- There is an error on line 5 of custom code: [BC30201] Expression expected._

Question

Function MakeList(ByVal items As Object()) As String
    If items Is Nothing Then
      Return Nothing
END if 
Dim builder As System.Text.StringBuilder = 
      New System.Text.StringBuilder()
      builder.Append("<div>")
   For Each item As Object In items
      builder.Append("<div <ul>")
      builder.Append(item)
      builder.Append("</ul>")
   Next
   builder.Append("</div>")
   Return builder.ToString()
End Function
Function Length(ByVal items as Object()) as Integer
   If items is Nothing Then
      Return 0
   End If
   Return items.Length
End Function

Answer 1

Hi Wintersbay,
According to your description, when you use the custom code in SSRS report, you got the error message.
To solve the problem, please refer to the custom code below:
Function MakeList(ByVal items As Object) As String
If items Is Nothing Then
Return Nothing
END if
Dim builder As System.Text.StringBuilder =
New System.Text.StringBuilder()
builder.Append("<div>")
For Each item As Object In items
builder.Append("<div <ul>")
builder.Append(item)
builder.Append("</ul>")
Next
builder.Append("</div>")
Return builder.ToString()
End Function
Function Length(ByVal items as Object) as Integer
If items is Nothing Then
Return 0
End If
Return items.Length
End Function
If you have any more questions, please feel free to ask.
Thanks,
Wendy Fu
Wendy Fu
TechNet Community Support