IE148HW10 word doc

IE148HW10 word doc - Morgan Hampel IE 148 HW 10 Professor...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Morgan Hampel IE 148 HW 10 Professor Sly Option Strict On Option Infer On Public Class Form1 Private Sub Form1_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load 'TODO: This line of code loads data into the 'MICROLANDDataSet.Orders' table. You can move, or remove it, as needed. Me .OrdersTableAdapter.Fill( Me .MICROLANDDataSet.Orders) 'TODO: This line of code loads data into the 'MICROLANDDataSet.Inventory' table. You can move, or remove it, as needed. Me .InventoryTableAdapter.Fill( Me .MICROLANDDataSet.Inventory) 'TODO: This line of code loads data into the 'MICROLANDDataSet.Customers' table. You can move, or remove it, as needed. Me .CustomersTableAdapter.Fill( Me .MICROLANDDataSet.Customers) End Sub Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click ListBox1.Items.Add( "Here are the items that are out of " ) ListBox1.Items.Add( "inventory or must be reordered." ) ListBox1.Items.Add( "" ) ListBox1.Items.Add( "The numbers shown give the " ) ListBox1.Items.Add( "minimum reorder quantity required." ) ListBox1.Items.Add( "" ) Dim query = From order In MICROLANDDataSet.Orders Join inven In MICROLANDDataSet.Inventory
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 08/16/2011 for the course IE 148 taught by Professor Davesly during the Spring '11 term at Iowa State.

Page1 / 4

IE148HW10 word doc - Morgan Hampel IE 148 HW 10 Professor...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online