Public Class frmMicroland
Private Sub frmMicroland_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.InventoryTableAdapter.Fill(Me.MicrolandDataSet.Inventory)
Me.CustomersTableAdapter.Fill(Me.MicrolandDataSet.Customers)
Me.OrdersTableAdapter.Fill(Me.MicrolandDataSet.Orders)
End Sub
Private Sub btnOutOfStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOutOfStock.Click
lstOutput.Items.Add("Here are the items that are out of")
lstOutput.Items.Add("inventory or must be reordered")
lstOutput.Items.Add(" ")
lstOutput.Items.Add("The numbers shown give the")
lstOutput.Items.Add("minimum reorder quantity required.")
lstOutput.Items.Add(" ")
Dim query = From orders In MicrolandDataSet.Orders
Join inventory In MicrolandDataSet.Inventory
On orders.itemID Equals inventory.itemID
Where orders.itemID = inventory.itemID
Let quantity = orders.quantity
Let itemID = orders.itemID
Let itemDesc = inventory.description
Select quantity, itemID, itemDesc
End Sub
End Class
This is as far as I've got on it, and it just doesn't seem to be gellin. A little poke in the right direction would be nice.

New Topic/Question
Reply




MultiQuote



|