主题：两张表里面查数据

Dim cs As String = ""
With e.Form.Controls("cmb")
    If .Value IsNot Nothing Then
        cs =cs & "retiredPost in ('" & .Value.replace(",","','") & "')"
    End If
End With

Dim jb1 As New SQLJoinTableBuilder("查询表1","person")
jb1.C
'jb1.AddCols("name", "sex","retireTime")
For Each s As String In cs.split(",")
    jb1.AddExp(s, s)
Next
jb1.Filter = Filter

Dim jb2 As New SQLJoinTableBuilder("查询表1","history")
jb2.C
'jb2.AddCols("name", "sex","retireTime")
For Each s As String In cs.split(",")
    jb2.AddExp(s, s)
Next
jb2.Filter = Filter

jb1.Union(jb2)
jb1.Build

红色语句报错