Dim ss As String = "行政部;王军,李娜" Dim filter As String = "1=1" For Each s As String In ss.Split(new Char(){";", ","}) dim temp as string = " and (1=2" For Each c As Col In Tables("表B").Cols temp &= " or " & c.Name & " Like '%" & s & "%'" Next filter &= temp & ")" Next