Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")
Dim Prod1 = From o In Product.AsEnumerable _
Where o.Field(Of Integer)("Target Level") > 100 _
select o
DataGridView1.DataSource = Prod1.AsDataView
End Sub

Dim query = Product.AsEnumerable().Where(Function(dt As DataRow) _
dt.Field(Of String)(" ProductName ") ="Computer") _
.select(Function(Prod As DataRow) _
New With {.Name = Prod.Field(Of String)("ProductName"), _
.Type = Prod.Field(Of String)("ProductType"), _
.Qty = Prod.Field(Of Double)("ProductQty")})

DataGridView1.DataSource = query.ToList

Dim Product As DataTable = DS.Tables("Products")

Dim Query = From P In Product.AsEnumerable _
Where P.Field(Of String)("ProductName") = "Computer" _
Select P

Dim largeProducts = Query.Where(Function(p) p.Field(Of Double)(" ProductQty") > 100) _
.Select(Function(o As DataRow) _
New With {.Name = o.Field(Of String)(" ProductName"), _
.Number = o.Field(Of String)(" ProductNo"), _
.NetShare = o.Field(Of Double)(" ProductQty ")})

Dim largeProducts = Query.Where(Function(p) p.Field(Of Double)(" ProductQty") > 100) _
.Select(Function(o As DataRow) o)

Dim Product As DataTable = DS.Tables("Products")

Dim Query = From P In Product.AsEnumerable _
Where P.Field(Of String)("ProductName") = "Computer" _
Select P

Dim Product As DataTable = DS.Tables("Products")
Dim Order As DataTable = DS.Tables("Order")

Dim Query = From P In Product.AsEnumerable _
Join O In Order.AsEnumerable _
On P.Field(Of Double)("ProductNo") Equals O.Field(Of Double)("OrderProductNo") _
Where (O.Field(Of Integer)("OrderQty") >= 100) _
Order By O.Field(Of Date)("OrderDate") Descending _
Select New With {.Name = P.Field(Of String)("ProductName"), _
.ID = P.Field(Of String)("ProductCode"), _
.NetQty = O.Field(Of Double)("OrderQty"), _
.Date = O.Field(Of Date)("OrderDate")}

DataGridView3.DataSource = Query.ToList

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim Product As DataTable = Me.NORTHWNDDataSet.Products

Dim query1 = From Pro1 In Product.AsEnumerable() _
Where Pro1.Field(Of String)("category") = "Beverages" _
Select Pro1

Dim query2 = From Pro2 In Product.AsEnumerable() _
Where Pro2.Field(Of String)("supplier ids") = "4" _
Select Pro2

Dim Prod1 = query1.CopyToDataTable().AsEnumerable
DataGridView1.DataSource = Prod1.CopyToDataTable

Dim Prod2 = query2.CopyToDataTable().AsEnumerable
DataGridView2.DataSource = Prod2.CopyToDataTable
MsgBox("Union")
Dim UnionProd = Prod1.Union(Prod2).OrderBy(Function(x) x.Item(1))
DataGridView3.DataSource = UnionProd.CopyToDataTable

MsgBox("Distinct")
Dim DistinctProd = UnionProd.AsEnumerable.Distinct(DataRowComparer.Default)
DataGridView3.DataSource = DistinctProd.CopyToDataTable

MsgBox("Intersect")
Dim IntersectProd = Prod1.Intersect(Prod2, DataRowComparer.Default)
DataGridView3.DataSource = IntersectProd.CopyToDataTable

MsgBox("Except")
Dim ExceptProd = Prod1.Except(Prod2, DataRowComparer.Default)
DataGridView3.DataSource = ExceptProd.CopyToDataTable

MsgBox("Rows Equal")
DataGridView3.DataSource = UnionProd.CopyToDataTable
'compares two rows and gets their hash codes
Dim left = UnionProd.CopyToDataTable.Rows(0)
Dim right = UnionProd.CopyToDataTable.Rows(1)

' Compare the two different rows.
Dim comparer As IEqualityComparer(Of DataRow) = DataRowComparer.Default
Dim bEqual = comparer.Equals(left, right)

If (bEqual = True) Then
MsgBox("First Two rows are equal")
Else
MsgBox("First Two rows are not equal")
End If
End Sub

Dim UnionProd = Prod1.Union(Prod2, DataRowComparer.Default).OrderBy(Function(x) x.Item(1))

Imports System.Data.Linq
Imports System.Reflection
Public Class ObjectShredder(Of T)
' Fields
Private _fi As FieldInfo()
Private _ordinalMap As Dictionary(Of String, Integer)
Private _pi As PropertyInfo()
Private _type As Type

' Constructor
Public Sub New()
Me._type = GetType(T)
Me._fi = Me._type.GetFields
Me._pi = Me._type.GetProperties
Me._ordinalMap = New Dictionary(Of String, Integer)
End Sub

Public Function ShredObject(ByVal table As DataTable, ByVal instance As T) As Object()
Dim fi As FieldInfo() = Me._fi
Dim pi As PropertyInfo() = Me._pi
If (Not instance.GetType Is GetType(T)) Then
' If the instance is derived from T, extend the table schema
' and get the properties and fields.
Me.ExtendTable(table, instance.GetType)
fi = instance.GetType.GetFields
pi = instance.GetType.GetProperties
End If

' Add the property and field values of the instance to an array.
Dim values As Object() = New Object(table.Columns.Count - 1) {}
Dim f As FieldInfo
For Each f In fi
values(Me._ordinalMap.Item(f.Name)) = f.GetValue(instance)
Next
Dim p As PropertyInfo
For Each p In pi
values(Me._ordinalMap.Item(p.Name)) = p.GetValue(instance, Nothing)
Next

' Return the property and field values of the instance.
Return values
End Function


' Summary : Loads a DataTable from a sequence of objects.
' source parameter: The sequence of objects to load into the DataTable.</param>
' table parameter : The input table. The schema of the table must match that
' the type T. If the table is null, a new table is created
' with a schema created from the public properties and fields of the type T.
' options parameter: Specifies how values from the source sequence will be applied to
' existing rows in the table.
' Returns : A DataTable created from the source sequence.

Public Function Shred(ByVal source As IEnumerable(Of T), ByVal table As DataTable, ByVal options As LoadOption?) As DataTable

' Load the table from the scalar sequence if T is a primitive type.
If GetType(T).IsPrimitive Then
Return Me.ShredPrimitive(source, table, options)
End If

' Create a new table if the input table is null.
If (table Is Nothing) Then
table = New DataTable(GetType(T).Name)
End If

' Initialize the ordinal map and extend the table schema based on type T.
table = Me.ExtendTable(table, GetType(T))

' Enumerate the source sequence and load the object values into rows.
table.BeginLoadData()
Using e As IEnumerator(Of T) = source.GetEnumerator
Do While e.MoveNext
If options.HasValue Then
table.LoadDataRow(Me.ShredObject(table, e.Current), options.Value)
Else
table.LoadDataRow(Me.ShredObject(table, e.Current), True)
End If
Loop
End Using
table.EndLoadData()

' Return the table.
Return table
End Function

Public Function ShredPrimitive(ByVal source As IEnumerable(Of T), ByVal table As DataTable, ByVal options As LoadOption?) As DataTable
' Create a new table if the input table is null.
If (table Is Nothing) Then
table = New DataTable(GetType(T).Name)
End If
If Not table.Columns.Contains("Value") Then
table.Columns.Add("Value", GetType(T))
End If

' Enumerate the source sequence and load the scalar values into rows.
table.BeginLoadData()
Using e As IEnumerator(Of T) = source.GetEnumerator
Dim values As Object() = New Object(table.Columns.Count - 1) {}
Do While e.MoveNext
values(table.Columns.Item("Value").Ordinal) = e.Current
If options.HasValue Then
table.LoadDataRow(values, options.Value)
Else
table.LoadDataRow(values, True)
End If
Loop
End Using
table.EndLoadData()
' Return the table.
Return table
End Function
Public Function ExtendTable(ByVal table As DataTable, ByVal type As Type) As DataTable
' Extend the table schema if the input table was null or if the value
' in the sequence is derived from type T.
Dim f As FieldInfo
Dim p As PropertyInfo

For Each f In type.GetFields
If Not Me._ordinalMap.ContainsKey(f.Name) Then
Dim dc As DataColumn

' Add the field as a column in the table if it doesn't exist
' already.
dc = IIf(table.Columns.Contains(f.Name), table.Columns.Item(f.Name), table.Columns.Add(f.Name, f.FieldType))

' Add the field to the ordinal map.
Me._ordinalMap.Add(f.Name, dc.Ordinal)
End If

Next

For Each p In type.GetProperties
If Not Me._ordinalMap.ContainsKey(p.Name) Then
' Add the property as a column in the table if it doesn't exist
' already.
Dim dc As DataColumn
dc = IIf(table.Columns.Contains(p.Name), table.Columns.Item(p.Name), table.Columns.Add(p.Name, p.PropertyType))

' Add the property to the ordinal map.
Me._ordinalMap.Add(p.Name, dc.Ordinal)
End If
Next

' Return the table.
Return table
End Function

End Class

Imports System.Runtime.CompilerServices
Public Module LINQCustomtoDataSetMethods
<Extension()> _
Public Function CopyToDataTableCustom(Of T)(ByVal source As IEnumerable(Of T)) As DataTable
Return New ObjectShredder(Of T)().Shred(source, Nothing, Nothing)
End Function

<Extension()> _
Public Function CopyToDataTableCustom (Of T)(ByVal source As IEnumerable(Of T), ByVal table As DataTable, ByVal options As LoadOption?) As DataTable
Return New ObjectShredder(Of T)().Shred(source, table, options)
End Function

End Module

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")

Dim Prod1 = From o In Product.AsEnumerable _
Where o.Field(Of Integer)("Target Level") > 100 _
Select o

Dim Prod2 = From o In Product.AsEnumerable _
Where o.Field(Of Integer)("Target Level") > 100 _
Select New With {.Id = o.Field(Of Integer)("Id"), _
.ProductName = o.Field(Of String)("Product Name"), _
.TargetLevel = o.Field(Of Integer)("Target Level") }

DataGridView1.DataSource = Prod1. CopyToDataTable

DataGridView2.DataSource = Prod2.ToList

DataGridView3.DataSource = Prod2.CopyToDataTableCustom
End Sub

Structure ArabDiction
Public Id As Integer
Public English As String
Public Arabic As String
End Structure

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Dim Dict As New List(Of ArabDiction)(New ArabDiction() _
{New ArabDiction With {.Id = 1, .English = "My", .Arabic = "انا"}, _
New ArabDiction With {.Id = 2, .English = "Name", .Arabic = "اسمي"}, _
New ArabDiction With {.Id = 3, .English = "Book", .Arabic = "كتاب"}, _
New ArabDiction With {.Id = 4, .English = "Man", .Arabic = "رجل"}})

Dim DictToTable = From d In Dict Select d.Id, d.Arabic, d.English

DataGridView1.DataSource = dictTable.ToList

DataGridView2.DataSource = dictTable.CopyToDataTableCustom

'ويمكن استخدامها بهذه الطريقة ايضا
'Dim T2 As DataTable = DictTable.CopyToDataTableCustom
'DataGridView2.DataSource = T2
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")
Dim Prod1 = From o In Product.AsEnumerable _
Where o.Field(Of Integer)("Target Level") > 100 _
Order By o.Field(Of Integer)("ID"), o.Field(Of String)("Product Name") _
Select o

DataGridView1.DataSource = Prod1.AsDataView

Dim ProdView As DataView = Prod1.AsDataView

bindingSource1.DataSource = ProdView

DataGridView2.DataSource = BindingSource1

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")
Dim Prod1 = From o In Product.AsEnumerable _
Where o.Field(Of Integer)("Target Level") > 50 _
Order By o.Field(Of Integer)("ID"), o.Field(Of String)("Product Name") _
Select o

Dim ProdTable As DataTable = Prod1.CopyToDataTable

Dim ProdView As DataView = ProdTable.AsDataView()

DataGridView1.DataSource = ProdTable

ProdTable.Rows(0).Delete()

ProdTable.Rows(1)("List Price") = 20.0

ProdTable.Rows(2)("List Price") = 30.0

DataGridView2.DataSource = ProdView

ProdView.RowStateFilter = DataViewRowState.ModifiedCurrent Or DataViewRowState.Deleted

Dim modifiedDeletedQuery = From rowView As DataRowView In ProdView _
Select rowView

DataGridView3.DataSource = modifiedDeletedQuery.ToList

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")
BindingSource1.DataSource = Product.AsDataView

Dim view As DataView = CType(BindingSource1.DataSource, DataView)

' Dim productsTable As DataTable = CType(view.Table, DataTable)

view.RowStateFilter = DataViewRowState.CurrentRows

Dim productQuery = From rowView As DataRowView In view _
Where rowView.Row.Field(Of Int16)("Reorder Level") = 10 _
Order By rowView.Row.Field(Of Decimal)("List Price") _
Select New With {.Name = rowView.Row.Field(Of String)("Product Name"), _
.ReorderLevel = rowView.Row.Field(Of Int16)("Reorder Level"), _
.Price = rowView.Row.Field(Of Decimal)("List Price")}

Dim Dt As DataTable = productQuery.CopyToDataTableCustom

DataGridView1.DataSource = Dt
End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")

Dim Order_Detail As DataTable = Me.NORTHWNDDataSet.Order_Details

' Me.NORTHWNDDataSet.Relations.Add("ProductOrderDetails", Product.Columns("ID"), _
' Order_Detail.Columns("Product ID"))

DataGridView1.DataSource = Product.AsDataView

DataGridView2.DataSource = Order_Detail.AsDataView

Dim Query = From h In Product.AsEnumerable _
Where h.Field(Of Int32)("Target Level") < 50 _
Order By h.Field(Of Int32)("ID") _
From ol In h.GetChildRows("ProductOrderDetails") _
Select New With {.Name = h.Field(Of String)("Product Name"), _
.ID = h.Field(Of Int32)("Id"), _
.Targel_Level = h.Field(Of Int32)("Target Level"), _
.Quantity = ol.Field(Of Decimal)("Quantity"), _
.Unit_Price = ol.Field(Of Decimal)("Unit Price"), _
.Count = h.GetChildRows("ProductOrderDetails").Count, _
.Total = h.GetChildRows("ProductOrderDetails").Sum(Function(x) x.Field(Of Decimal)("Quantity"))}

DataGridView3.DataSource = Query.CopyToDataTableCustom

End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")

DataGridView1.DataSource = Product.AsDataView

Dim productQuery = From row In Product.AsEnumerable _
Select row

DataGridView2.DataSource = productQuery.CopyToDataTable

For Each row In productQuery
row.SetField(Of Decimal)("List Price", CType(row.Field(Of Decimal)("List Price") + _
row.Field(Of Decimal)("List Price") * 0.25, Decimal))
Next

DataGridView3.DataSource = productQuery.CopyToDataTable

DataGridView4.DataSource = NORTHWNDDataSet.Products.GetChanges(DataRowState.Modified)

End Sub

Private Sub Save_Product(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim y As DialogResult = MsgBox("هل ترغب بالتخزين", MsgBoxStyle.YesNo)
If y = Windows.Forms.DialogResult.Yes Then

ProductsTableAdapter.Update(NORTHWNDDataSet.Products)

Me.NORTHWNDDataSet.AcceptChanges()

DataGridView4.DataSource = NORTHWNDDataSet.Products.GetChanges(DataRowState.Modified)
Else
NORTHWNDDataSet.Products.RejectChanges()
DataGridView4.DataSource = NORTHWNDDataSet.Products.GetChanges(DataRowState.Modified)
End If
End Sub

Me.ProductsTableAdapter.Fill(Me.NORTHWNDDataSet.Products)

Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")

Dim Prod1 = From o In Product.AsEnumerable _
Where o.Field(Of Integer)("Target Level") > 100 _
Order By o.Field(Of Integer)("ID"), o.Field(Of String)("Product Name") _
Select o

DataGridView1.DataSource = Prod1.AsDataView

Me.ProductsTableAdapter.Fill(Me.NORTHWNDDataSet.Products)

Dim Product As DataTable = Me.NORTHWNDDataSet.Tables("Products")

Dim Prod1 = From o In Product.AsEnumerable _
Where o.Field(Of Integer)("Target Level") > 100 _
Order By o.Field(Of Integer)("ID"), o.Field(Of String)("Product Name") _
Select o

DataGridView1.DataSource = Prod1.AsDataView

Dim TaProducts As New NORTHWNDDataSetTableAdapters.ProductsTableAdapter

Dim Product = TaProducts.GetData

Dim Prod1 = From o In Product _
Where Not (o.IsTarget_LevelNull) AndAlso o.Target_Level > 100 _
Order By o.ID, o.Product_Name _
Select o

DataGridView1.DataSource = Prod1.AsDataView

Dim MaxCost = Aggregate S In query Into Max(S.Standard_Cost)
Dim MinCost = Aggregate S In query Into Min(S.Standard_Cost)
Dim AvgCost = Aggregate S In query Into Average(S.Standard_Cost)
Dim SumCost = Aggregate S In query Into Sum(S.Standard_Cost)
Dim ConCost = Aggregate S In query Into Count(S.Standard_Cost)

MsgBox("Max Cost = " & MaxCost & Chr(13) & _
"Min Cost = " & MinCost & Chr(13) & _
"Avg Cost = " & AvgCost & Chr(13) & _
"Sum Cost = " & SumCost & Chr(13) & _
"Count Cost = " & ConCost)

Private GroupJoinDictionary As Dictionary(Of NORTHWNDDataSet.ProductsRow, IEnumerable(Of NORTHWNDDataSet.Order_DetailsRow))

Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

Dim TadProducts As New NORTHWNDDataSetTableAdapters.ProductsTableAdapter

Dim TadOrderDe As New NORTHWNDDataSetTableAdapters.Order_DetailsTableAdapter

Dim Product = TadProducts.GetData

Dim OrderDetail = TadOrderDe.GetData

DataGridView3.DataSource = Product.AsDataView

Dim Query = From Pro In Product _
Group Join Ord In OrderDetail On _
Pro.ID Equals Ord.Product_ID Into GPd = Group _
Where Not Pro.IsQuantity_Per_UnitNull _
Select Pro, GPd

GroupJoinDictionary = Query.ToDictionary(Function(i) i.Pro, Function(y) y.GPd)

Me.BindingSource1.DataSource = GroupJoinDictionary.Keys

DataGridView1.DataSource = BindingSource1

DataGridView2.DataSource = BindingSource2

End Sub

Private Sub BindingSource1_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.CurrentChanged

Try
Me.BindingSource2.DataSource = GroupJoinDictionary(CType(BindingSource1.Current, NORTHWNDDataSet.ProductsRow)).CopyToDataTable
Catch ex As Exception
Me.BindingSource2.DataSource = Nothing
End Try
End Sub

Private GroupbyDictionary As Dictionary(Of Integer, IEnumerable(Of NORTHWNDDataSet.Order_DetailsRow))

Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

Dim TadProducts As New NORTHWNDDataSetTableAdapters.ProductsTableAdapter

Dim TadOrderDe As New NORTHWNDDataSetTableAdapters.Order_DetailsTableAdapter

Dim Product = TadProducts.GetData

Dim OrderDetail = TadOrderDe.GetData

DataGridView3.DataSource = Product.AsDataView

Dim Query = From Det In OrderDetail _
Group Det By key = Det.Product_ID Into Group _
Select key, Group

GroupbyDictionary = Query.ToDictionary(Function(i) i.key, Function(y) y.Group)

Me.BindingSource3.DataSource = Product

Me.ComboBox1.DataSource = GroupbyDictionary.Keys.ToList

DataGridView1.DataSource = BindingSource3

DataGridView2.DataSource = BindingSource4

End Sub

Private Sub BindingSource3_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource3.CurrentChanged
Try
Dim row As DataRowView = BindingSource3.Current
Dim ky = row.Item("ID")

Me.BindingSource4.DataSource = GroupbyDictionary(ky).CopyToDataTable
Catch ex As Exception
Me.BindingSource4.DataSource = Nothing
End Try
End Sub

Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged

Try
Dim k1 = CType(ComboBox1.Text, Integer)
Me.BindingSource4.DataSource = GroupbyDictionary(k1).CopyToDataTable
Catch ex As Exception
Me.BindingSource4.DataSource = Nothing
End Try
End Sub

Private productsLookup As ILookup(Of Object, NORTHWNDDataSet.ProductsRow)

Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Dim TadProducts As New NORTHWNDDataSetTableAdapters.ProductsTableAdapter

Dim Product = TadProducts.GetData

productsLookup = Product.ToLookup(Function(p) p("Category"))

Me.BindingSource5.DataSource = productsLookup.ToList()

DataGridView1.DataSource = BindingSource5

End Sub

Private Sub BindingSource5_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource5.CurrentChanged
Try

Dim row = BindingSource5.Current

Dim confections = productsLookup(row.Key)

DataGridView2.DataSource = confections.CopyToDataTable
Catch ex As Exception
Me.BindingSource4.DataSource = Nothing
MsgBox(ex.Message)
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.EmployeesTableAdapter.Fill(Me.NORTHWNDDataSet.Employees)

Me.CustomersTableAdapter.Fill(Me.NORTHWNDDataSet.Customers)

Me.OrdersTableAdapter.Fill(Me.NORTHWNDDataSet.Orders)

Me.Order_DetailsTableAdapter.Fill(Me.NORTHWNDDataSet.Order_Details)

Me.ProductsTableAdapter.Fill(Me.NORTHWNDDataSet.Products)

End Sub

Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

Dim ds As New NORTHWNDDataSet
ds = NORTHWNDDataSet

Dim query = (From orders In ds.Orders _
From orderDetails In ds.Order_Details _
From prods In ds.Products _
Where ( _
(orderDetails.Order_ID = orders.Order_ID) And _
(prods.ID = orderDetails.Product_ID) And _
(orders.Employee_ID = 1) _
  _
Order By (orders.Ship_City) _
Select CustomerOrderResult = New With { _
.CustomerID = orders.Customer_ID, _
.CustomerContactName = orders.CustomersRow.First_Name, _
.CustomerCountry = orders.CustomersRow.City, _
.OrderDate = orders.Order_Date, _
.EmployeeID = orders.EmployeesRow.ID, _
.EmployeeFirstName = orders.EmployeesRow.First_Name, _
.EmployeeLastName = orders.EmployeesRow.Last_Name, _
.ProductName = prods.Product_Name _
}).ToList

DataGridView1.DataSource = query
End Sub