主题：请教加载数据的条件表达式

Dim sDate As Date = e.form.controls("StartDate").value
Dim eDate As Date = e.form.controls("EndDate").value

Dim filter As String = "1=2"
Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("用户权限").Select("',' + name + ',' like '%," & User.Name & ",%'" )
    For Each s As String In dr("company").split(",")
        If ls.Contains(s) = False Then
            ls.add(s)
            filter &=  " or PayrollMothMsg >= '" & sDate & "' And PayrollMothMsg <= '" & eDate &  "' and CompanyName like '%" & s & "%'"
        End If
    Next
Next
DataTables("Finance").LoadFilter = filter
DataTables("Finance").Load()