データベースに大幅な変更を加えて、ウェブサイトをゼロから再構築しています。次の関数は、古い Web サイト プロジェクトでは完全に正常に機能しましたが、コードを新しいプロジェクトにコピーしたので、VS2012 は、注文が宣言されておらず、注文が宣言されていない可能性があると言って、顧客の For Each 注文の「注文」が好きではありません。保護レベルによりアクセス可能
Public Shared Function GetOrderDisplaybyCustomerId(ByVal customerId As Integer) As List(Of OrderDisplay)
Dim list As New List(Of OrderDisplay)
Dim item As New OrderDisplay
Using ctx As New webEntities
Dim custorders = (From o In ctx.salesorders
Where o.order_divisionId = customerId
Join s In ctx.addresses On o.order_shippingAddressId Equals s.addressId
Join st In ctx.states On s.address_stateProvinceId Equals st.stateId
Order By o.OrderDate Ascending
Select New With {o.OrderDate, o.InvoiceNumber, o.CustomerPONumber, o.AccountNumber, s.StreetAddress, s.City, st.AbbreviatedName}).ToList()
If custorders.Count > 0 Then
For Each order In custorders
item._orderdate = order.OrderDate.ToShortDateString()
item._invoicenumber = order.InvoiceNumber
item._customerPOnumber = order.CustomerPONumber
item._acctnumber = order.AccountNumber
item.Address = order.StreetAddress
item.City = order.City
item.State = order.AbbreviatedName
list.Add(item)
Next
Return list
Else
Return Nothing
End If
End Using
End Function
他の関数でもこれとまったく同じ動作が発生しています。提案をいただければ幸いです。