0
Function searchByName(lName As String) As List(Of Employees)
Dim employees As New Employees
Dim employeeList As New List(Of Employees)
Dim resultList As New List(Of Employees)
employeeList = employees.getEmployeeObject
resultList = From employeesObj In employeeList
Where employeesObj.LastName = lName
Select employeesObj.EmployeeID
Return resultList
End Function
尝试包裹在括号您的查询,添加ToList ...'resultList =(从...选择employeesObj.EmployeeID).ToList()' – pinkfloydx33