1

我有一个对象列表，我想搜索它以查看 myobject.articleID 是否与给定的 articleID 匹配。从我收集到的使用 .Find(Of T) 是解决此问题的最佳方法，但是我在实施它时遇到了一些困难。这是我到目前为止的一些代码：

<WebMethod()> _
Public Function SetTagOnFavorite(ByVal articleID As Integer, ByVal tagtext As String, ByVal mobileGUID As String) As AddTagResult
    Dim result As New AddTagResult
    Dim userID As Long = GetUserIDByMobileGUID(mobileGUID)


    If userID > 0 Then
        Dim pageNum As Integer = 1
        Dim pageLen As Integer = 500 'arbitrarily large number
        Dim savedArticleList As New List(Of SimpleArticle)
        savedArticleList = GetSavedArticles(mobileGUID, pageNum, pageLen)

        If savedArticleList.Find(Function( m As SimpleArticle) m.articleID = articleID)


            Dim lq As New lqDFDataContext
            Dim var = lq.web_AddTagToArticle(userID, articleID, tagtext).ToList()

            If var.Any() Then
                Dim vRes = var.First()
                result.articletagID = vRes.articletagID
                result.newarticletag = vRes.newarticletag
                result.newusertag = vRes.newusertag
                result.usertagID = vRes.usertagID
                result.resultinfo = "Success."

            End If
       End If  
    Else
        result.resultinfo = STR_NoUserIDMostLikelyTheSessionTimedOut
    End If
    Return result
End Function

我得到的错误是“SimpleArticle 类型的值不能转换为布尔值”。

4

2 回答 2

4

因为Find(Of返回找到的对象，您需要更改此行：

If savedArticleList.Find(Function( m As SimpleArticle) m.articleID = articleID)

到

If savedArticleList.Find(Function( m As SimpleArticle) m.articleID = articleID) IsNot Nothing

或者，如果您需要找到的项目，请将结果存储Find在局部变量中。

于 2012-08-01T15:47:09.403 回答
3

您可以进一步优化@competent_tech 的答案：

If savedArticleList.Any(Function(m) m.articleID = articleID))
于 2012-08-01T16:21:24.897 回答