……Dim filter As String
If dr("position") = "管理者" Then
Dim s As String = DataTables("rs_departinfo").GetComboListString("depart", "departno like '" & dr("departno") & "%'")
Filter = "outdepart in ('" & s.Replace("|", "','") & "') And rstype = '派货' And (checkdate >= '" & dt & "' Or checkdate is null)"
Else If dr("position") = "职员" Then
Filter = "outdepart = '" & dr("indepart") & "'And rstype = '派货' And (checkdate >= '" & dt & "' Or checkdate is null)"
End If
……