无法在匿名列表VB.net中使用Exists功能

Question

我有代码：

Dim query = From usu In contexto.USUARIOS
            Where usu.DSC_USUARIO = usuario
            Select usu.ID_EMPRESA, usu.PASSWORD, usu.ID_USUARIO
Dim resultado = query.AsEnumerable.ToList

然后，当我试图查看某些东西是否失败时：

If Not resultado.Exists(Function(x) x.ID_EMPRESA = CDec(empresa)) Then
     Return "Not exists"
Else
     ...

我找不到如何使用匿名列表“resultado”

Answer 1

尝试这样做

Dim list = (From usu In contexto.USUARIOS
            Where usu.DSC_USUARIO = usuario
            Select New With 
                       {
                           .EMPRESA = usu.ID_EMPRESA, 
                           .PASSWORD = usu.PASSWORD,  
                           .USUARIO = usu.ID_USUARIO
                       }).ToList()

然后

If Not resultado.Exists(Function(x) x.EMPRESA = CDec(empresa)) Then
    Return "Not exists"
Else
    ...

我没有测试但应该工作