无法弄清楚是什么问题
If IsNothing(_cartItem) Then
Dim SPDB As New SamplePicturesDataContext()
Dim q = From sp In SPDB.Pictures _
Where sp.Id = ItemId _
Select New With {.Pic_Desc = sp.Description, _
.Pic_Title = sp.PictureName}
_cartItem = New CartItem(q.Pic_Desc, 1, q.Pic_Title)
Else
Error 1 'Pic_Desc' is not a member of 'System.Linq.IQueryable(Of <anonymous type>)'.
Error 2 'Pic_Title' is not a member of 'System.Linq.IQueryable(Of <anonymous type>)'.