0

このエラーが発生する理由を知っている人はいますか?

次のエラーが表示されます。

オブジェクト参照がオブジェクト インスタンスに設定されていません

これが問題のLINQです。事前に助けてくれてありがとう。

Dim q = From line In seats
        Let data = line.Split(New [Char]() {" "c}, StringSplitOptions.RemoveEmptyEntries) ' it occurs in this line '
        Let seatA = data(0)
        Let seatB = data(1)
        Let seatC = data(2)
        Let seatD = data(3)
        Let seatE = data(4)
        Let seatF = data(5)
        Where seatA Is "."
        Where seatB Is "."
        Select seatA, seatF
4

2 に答える 2

1

最初の行を次のように変更すると機能しますか。

Dim windowSeatQuery = From line In seats.Where(function (s) s isnot nothing)

これは、座席リストに null 値があることを示しており、Where上記のラムダはそれらを削除する必要があります。

于 2012-04-15T16:04:36.437 に答える
0

あなたの Where 句は私には奇妙に見えます。Is ではなく = 演算子を使用するべきではありません:

Dim q = From line In seats
    Let data = line.Split(New [Char]() {" "c}, StringSplitOptions.RemoveEmptyEntries) ' it occurs in this line '
    Let seatA = data(0)
    Let seatB = data(1)
    Let seatC = data(2)
    Let seatD = data(3)
    Let seatE = data(4)
    Let seatF = data(5)
Where seatA = "." AndAlso seatB = "."   '<------   Use = on this line not Is
Select seatA, seatF

そして、各行が他のものではなくスペースで区切られていると確信していますか? そこに Is があっても、Null Ref になることはありません。

これが動作するように見える私のサンプルプログラムです（暗黙的な行継続文字をサポートしていないように見えるLinqPadでテストされています）：

Sub Main
    Dim seats As New List(Of String)()
    seats.Add("1 2 3 4 5 6")
    seats.Add(". . 9 8 7 6")
    seats.Add(". . 5 5 5 5")
    seats.Add("1 2 3 4 5 6")
    seats.Add(". . 2 4 6 8")
    seats.Add("1 2 3 4 5 6")

    Dim q = From line In seats _
        Let data = line.Split(New [Char]() {" "c}, StringSplitOptions.RemoveEmptyEntries) _
        Let seatA = data(0) _
        Let seatB = data(1) _
        Let seatC = data(2) _
        Let seatD = data(3) _
        Let seatE = data(4) _
        Let seatF = data(5) _
    Where seatA = "." AndAlso seatB = "." _
    Select seatA, seatF

    q.Dump()
End Sub
于 2012-04-16T17:42:23.860 に答える