IE 148 LAB 10

IE 148 LAB 10 - Morgan Hampel Tyler Fox IE 148 Lab 10...

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

View Full Document Right Arrow Icon
Morgan Hampel Tyler Fox IE 148 Lab 10 Professor Sly PROBLEM 27 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 'BaseballDataSet.Teams' table. You can move, or remove it, as needed. Me .TeamsTableAdapter.Fill( Me .BaseballDataSet.Teams) 'TODO: This line of code loads data into the 'BaseballDataSet.Players' table. You can move, or remove it, as needed. Me .PlayersTableAdapter.Fill( Me .BaseballDataSet.Players) Dim query = From Team In BaseballDataSet.Teams Order By Team.name Ascending Select Team.name Distinct ListBox1.DataSource = query.ToList() ListBox1.SelectedIndex = Nothing End Sub Private Sub ListBox1_Click( ByVal sender As Object , ByVal e As System. EventArgs ) Handles ListBox1.Click Dim query3 = From Player In BaseballDataSet.Players Let BattingAvg = FormatNumber((Player.hits / Player.atBats), 3) Join Team In BaseballDataSet.Teams On Team.name
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.

Page1 / 3

IE 148 LAB 10 - Morgan Hampel Tyler Fox IE 148 Lab 10...

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