1

私がこれを取得しているコードのブロックは、

 If userID > 0 Then
            Dim lq As New lqDFDataContext
            Dim var = lq.mobile_GetCustomChannels(userID).ToList()
            For Each c In var
                Dim channel As New SimpleChannel
                channel.channelID = c.channelID
                channel.userID = c.userID

                If c.matchTitle = True Then
                    channel.matchBy = "Title"
                End If

                If c.matchTitleAbstract = True Then
                    channel.matchBy = "Title and Abstract"
                End If

                If c.fromMyPage = True Then
                    channel.source = "My Page"
                Else
                    channel.source = "All Journals"
                End If

                   Dim tempKW() As String = c.keywords.Split(",")
                For Each kw As String In tempKW
                    channel.keywords.Add(kw)
                Next

                Dim imageKW As String = c.keywords.Substring(0, c.keywords.IndexOf(" "))
                channel.imageURL = SingleImageSearch(imageKW)


                result.Add(channel)
            Next
        End If

「channel.keywords.Add（kw）」という行は、エラーが発生する場所です。私はこの手法を何十回も問題なく使用してきましたが、これは他のすべての場合と類似しているように見えますが、この例外が発生し続けています。理由がわかりません。

4

1 に答える 1

1

コンストラクターがコレクションSimpleChannelを初期化していないようです。keywordsコンストラクターが実際にのインスタンスを作成していることを確認してくださいkeywords（つまりkeywords = new List(Of String)、または適切なもの）。

于 2012-08-22T18:50:16.743 に答える