代码这样写
If bkxz.Text > "" Then filter &= " and 补考性质 in ('" & bkxz.Text.replace(",", "','") & "')"End If