こんにちは:) nullの結果に問題があります。クエリを比較すると、「シーケンスに要素が含まれていません」というエラーが表示されません。
Dim existe = (
From p In abc.Ventadetalles
Where p.idarticulo = txtArticulo.Text
And p.idventa = IdventaTextBox.Text
Select p).Single
ここにコードがあります
SingleOrDefaultを使用してみてください。これは機能するはずです。
または、存在をテストしようとしているように見えるため、Any()を使用することもできます。
エラーは正しいです:シーケンスには要素がありません!を使用してSingle()
いるため、空のシーケンスはエラーを生成します。代わりにデフォルト値を返したい場合は、を使用してSingleOrDefault()
ください。
シーケンスに実際に要素があると予想される場合は、条件とソースデータを再度確認してください。
以下が機能します。
Dim existe = (
From p In abc.Ventadetalles
Where p.idarticulo = txtArticulo.Text
And p.idventa = IdventaTextBox.Text
Select p).SingleOrDefault()
If existe Is Not Nothing Then
'' here you can use existe
End If