以下代码提示查询过于复杂，请问怎么修正？

Dim s11 As String
Dim lst1 As new List(of String)
Dim filter2 As String = "1=2"
With Forms("核价记录").Controls("textbox1")
    For i As Integer = 0 To .Lines.Length - 1
        s11 = .Lines(i)
        lst1.add(s11)
    Next
End With

        If dra.Count > 0 Then      
            For i  As Integer = 0 To dra.Count-1
                Dim a As String =dra(i)("物料信息_层级")
                Dim c As String =dra(i)("物料信息_名称")
                Dim b As String
                If a.contains(".") Then   \' 如果 第二列包含" ."
                    b = left(a,a.IndexOf("."))    \'取第一个" ." 左侧的字符
                Else b = a
                End If
               
                If e.form.controls("CheckBox3").checked =False Then
                    lst.add(c)
                Else
                    lst.add(b)
                   
                End If
               
            Next
        End If
        Dim s1() As String = lst.ToArray     
        Dim filter As String = "1=2"      
        If e.form.controls("CheckBox3").checked =False Then
            For Each s As String In s1
                filter = filter & " or 物料信息_名称 like \'" & s & "%\'"
            Next
        Else
            For Each s As String In s1
                filter = filter & " or 物料信息_层级 like \'" & s & "%\'"
            Next
        End If
        DataTables("表a1").loadFilter = filter
          DataTables("表a1").load
     
   
End If

我输入“板” 进行查询，filter 如下  估计还没显示全