主题：list中的模糊查询

'' 关于离退休部门的验证
    If r("离退休部门") <> Nothing Then
           r("离退休部门") =r("离退休部门").Replace(" ","")    
           If cstr(r("离退休部门")).length > 30 Then
                 r.DataRow.SetError("离退休部门 ", "离退休部门长度不允许超过30")
                 r.DataRow("标记")=1
           Else
                  Dim dep As List(Of String)
                  dep = DataTables("depList").GetValues("depName"," organName = '" & _UserOrgan & "'")
                  If dep.Contains(r("离退休部门")) = False Then
                        r.DataRow.SetError("离退休部门", "请先录入该部门")
                        r.DataRow("标记")=1
                  End If
            End If         
     Else
            r.DataRow.SetError("离退休部门", "离退休部门不允许为空")
            r.DataRow("标记")=1
     End If

老师，上面红色代码是从表里提取出当前登录用户单位，在数据库里面录入的部门都有哪些？

然后导入人员的时候，如果部门没有录入 ，则不能导入，所以可以模糊匹配么？

比如 库里面是  ：  办公室，那么   ：  办公室（后勤服务中心）也可以录入

'' 关于离退休部门的验证

If r("离退休部门") <> Nothing Then
    r("离退休部门") =r("离退休部门").Replace(" ","")
    If cstr(r("离退休部门")).length > 30 Then
        r.DataRow.SetError("离退休部门 ", "离退休部门长度不允许超过30")
        r.DataRow("标记")=1
    Else
        Dim dep As DataRow = DataTables("depList").find("depName like '%" & r("离退休部门") & "%' and organName = '" & _UserOrgan & "'")
        If dep IsNot Nothing Then
            r.DataRow.SetError("离退休部门", "请先录入该部门")
            r.DataRow("标记")=1
        End If
    End If
Else
    r.DataRow.SetError("离退休部门", "离退休部门不允许为空")
    r.DataRow("标记")=1
End If

红色那里应该是is 把

是的。

 Dim dep As DataRow = DataTables("depList").find("depName like '%" & r("离退休部门") & "%' and organName = '" & _UserOrgan & "'")
                  If dep Is Nothing Then
                        r.DataRow.SetError("离退休部门", "请先录入该部门")
                        r.DataRow("标记")=1
                  End If

老师，不知为啥，这个还是没法进行模糊匹配？科技处可以导入，但是 科技处2就无法导入？提示请录入部门

depName 应该比 r("离退休部门")精简， depName=办公室，但是r("离退休部门")=办公室（后勤服务中心）