menus

In the program I am working on, we have specified days of the month for each customer to place their usual order.

Example:

Joe's Store orders 50 cases of Mountain Dew every 14 days

We want the program to query the order schedule table each day to pull out the orders that should be taken care of on that specified day. This was the easy part.

Now, we want the names of the stores to populate a menu list, like the ones that VB has predefined, so the user can select the store name, place the order, and then when the order is completed, the name will disappear from the menu.

I definitely need some help with this one. Any help would be appreciated!

Thanks,
Shanea

You need to create a menu item (in the example below its mnuSectionName) with an index of 0
you could then recurse the orders checking if they are completed or not, if not then you need to load them into a menu, I did it through a collection:

Code:

---

Dim intSectCount As Integer
'for each item in the collection
For intSectCount = 1 To colSect.Count
'load it into the menu
Load mnuSectionName(intSectCount)
'set the menu caption
mnuSectionName(intSectCount).Caption = colSect.Item(intSectCount)
Next intSectCount

---

hth