不能使用存在問題的匿名列表功能VB.net

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 
    ... 

我還沒有測試，但應該工作