With e.Form.Controls("cmdGeneName") If .Value IsNot Nothing Then If Filter> "" Then Filter = Filter & " And " End If Dim txt As String = "1=1" For Each s As String In .value.split(",") txt = txt & " and 基因名称 like '%" & s & "%'" Next Filter = Filter & txt End If End With