主题：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 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