StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
6844744
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
4
CommunityOwnedDate
CreationDate
2011-07-27T13:02:13.950
FavoriteCount
0
LastActivityDate
2011-07-27T13:02:13.950
LastEditDate
LastEditorUserId
0
OwnerUserId
231316
ParentId
6844275
PostTypeId
2
Score
0
ViewCount
0
LastEditorDisplayName
text
Body
Your problem is variable name re-use. You're using the same variable name, <code>OrderItem</code>, for two different types here. Although in your mind the variable is scoped to that block, by assigning it a type you've fixed it at the method level. <pre><code>For Each OrderItem As CartProduct In g_objUserShoppingCart.ListOfItems objlist = New CartProduct(Global.OrderItem.TypeOfItem.Product) objlist.ProductId = OrderItem.ProductId arr.Add(objlist) Next For Each OrderItem As CartService In g_objUserShoppingCart.ListOfItems objServiceList = New CartService(Global.OrderItem.TypeOfItem.Service) objServiceList.ServiceName = OrderItem.ServiceName arrService.Add(objServiceList) Next </code></pre> There's two solutions, either drop the type declaration (might not work in older versions of VB) or just rename the loop variable. 1) <pre><code>For Each OrderItem In g_objUserShoppingCart.ListOfItems objlist = New CartProduct(Global.OrderItem.TypeOfItem.Product) objlist.ProductId = OrderItem.ProductId arr.Add(objlist) Next For Each OrderItem In g_objUserShoppingCart.ListOfItems objServiceList = New CartService(Global.OrderItem.TypeOfItem.Service) objServiceList.ServiceName = OrderItem.ServiceName arrService.Add(objServiceList) Next </code></pre> 2) <pre><code>For Each pOrderItem As CartProduct In g_objUserShoppingCart.ListOfItems objlist = New CartProduct(Global.OrderItem.TypeOfItem.Product) objlist.ProductId = pOrderItem.ProductId arr.Add(objlist) Next For Each sOrderItem As CartService In g_objUserShoppingCart.ListOfItems objServiceList = New CartService(Global.OrderItem.TypeOfItem.Service) objServiceList.ServiceName = sOrderItem.ServiceName arrService.Add(objServiceList) Next </code></pre> A more generic example of your problem is below. This will compile but fail with the same basic error. <pre><code> Dim Ints As New List(Of Integer) Dim Strings As New List(Of String) Ints.Add(1) Strings.Add("Bob") For Each V As Integer In Strings Trace.WriteLine(V) Next For Each V As String In Ints Trace.WriteLine(V) Next </code></pre> Also, while you're in there, change the definition of the sub-classes, there's no need for a caller to even be aware of the enum: <pre><code>Public Class Product Inherits OrderItem Public Sub New() MyBase.New(Global.OrderItem.TypeOfItem.Product) End Sub End Class </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POretrieve collect of object in listcollection
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USChris Haas
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.