Public Class Form1
 
    Private Sub CustomersBindingNavigatorSaveItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      CustomersBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.CustomersBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Nwind2000DataSet)
    End Sub
 
    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 
        ' 'Nwind2000DataSet.Order_Details' table. You can move, or remove it, 
        ' as needed.
        Me.Order_DetailsTableAdapter.Fill(Me.Nwind2000DataSet.Order_Details)
        'TODO: This line of code loads data into the 'Nwind2000DataSet.Orders' 
        ' table. You can move, or remove it, as needed.
        Me.OrdersTableAdapter.Fill(Me.Nwind2000DataSet.Orders)
        'TODO: This line of code loads data into the 
        ' 'Nwind2000DataSet.Customers' table. You can move, or remove it, as 
        ' needed.
        Me.CustomersTableAdapter.Fill(Me.Nwind2000DataSet.Customers)
 
        Dim cities = From dr As nwind2000DataSet.CustomersRow In _
          Me.Nwind2000DataSet.Customers Order By dr.City Select dr.City Distinct
        Me.CityAuswählen.DataSource = cities.ToList
    End Sub
 
    Private Sub ZeigenCustomersOhneOrders_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ZeigenCustomersOhneOrders.Click
        Me.CustomersBindingSource.Filter = "Count(Child(" & _
        "CustomersOrders).OrderID)=0"
    End Sub
 
    Private Sub CityAuswahl_CheckedChanged(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles CityAuswahl.CheckedChanged
        DoCityAuswahl()
    End Sub
 
    Private Sub CityAuswählen_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      CityAuswählen.SelectedIndexChanged
        DoCityAuswahl()
    End Sub
 
    Private Sub DoCityAuswahl()
        If CityAuswahl.Checked AndAlso CityAuswählen.Text <> String.Empty Then
            CustomersBindingSource.Filter = "City='" & CityAuswählen.Text & "'"
        Else
            CustomersBindingSource.Filter = String.Empty
        End If
    End Sub
 
End Class

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form
 
    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New _
          System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.Nwind2000DataSet = New vbNwindSample.nwind2000DataSet
        Me.CustomersBindingSource = New System.Windows.Forms.BindingSource( _
          Me.components)
        Me.CustomersTableAdapter = New _
        vbNwindSample.nwind2000DataSetTableAdapters.CustomersTableAdapter
        Me.TableAdapterManager = New _
        vbNwindSample.nwind2000DataSetTableAdapters.TableAdapterManager
        Me.Order_DetailsTableAdapter = New _
        vbNwindSample.nwind2000DataSetTableAdapters.Order_DetailsTableAdapter
        Me.OrdersTableAdapter = New _
        vbNwindSample.nwind2000DataSetTableAdapters.OrdersTableAdapter
        Me.CustomersBindingNavigator = New _
        System.Windows.Forms.BindingNavigator(Me.components)
        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton
        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel
        Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton
        Me.BindingNavigatorMoveFirstItem = New _
          System.Windows.Forms.ToolStripButton
        Me.BindingNavigatorMovePreviousItem = New _
        System.Windows.Forms.ToolStripButton
        Me.BindingNavigatorSeparator = New _
        System.Windows.Forms.ToolStripSeparator
        Me.BindingNavigatorPositionItem = New _
        System.Windows.Forms.ToolStripTextBox
        Me.BindingNavigatorSeparator1 = New _
        System.Windows.Forms.ToolStripSeparator
        Me.BindingNavigatorMoveNextItem = New _
        System.Windows.Forms.ToolStripButton
        Me.BindingNavigatorMoveLastItem = New _
        System.Windows.Forms.ToolStripButton
        Me.BindingNavigatorSeparator2 = New _
        System.Windows.Forms.ToolStripSeparator
        Me.CustomersBindingNavigatorSaveItem = New _
        System.Windows.Forms.ToolStripButton
        Me.CustomersDataGridView = New System.Windows.Forms.DataGridView
        Me.DataGridViewTextBoxColumn1 = New _
          System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn2 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn3 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn4 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn5 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn6 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn7 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn8 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn9 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn10 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn11 = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.OrdersDataGridView = New System.Windows.Forms.DataGridView
        Me.OrderIDDataGridViewTextBoxColumn = New _
          System.Windows.Forms.DataGridViewTextBoxColumn
        Me.CustomerIDDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.EmployeeIDDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.OrderDateDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.RequiredDateDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ShippedDateDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ShipViaDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.FreightDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ShipNameDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ShipAddressDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ShipCityDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ShipRegionDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ShipPostalCodeDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ShipCountryDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.CustomersOrdersBindingSource = New _
        System.Windows.Forms.BindingSource(Me.components)
        Me.Order_DetailsDataGridView = New System.Windows.Forms.DataGridView
        Me.OrderIDDataGridViewTextBoxColumn1 = New _
          System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ProductIDDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.UnitPriceDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.QuantityDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DiscountDataGridViewTextBoxColumn = New _
        System.Windows.Forms.DataGridViewTextBoxColumn
        Me.OrdersOrderDetailsBindingSource = New _
        System.Windows.Forms.BindingSource(Me.components)
        Me.ZeigenCustomersOhneOrders = New System.Windows.Forms.Button
        Me.CityAuswählen = New System.Windows.Forms.ComboBox
        Me.CityAuswahl = New System.Windows.Forms.CheckBox
        CType(Me.Nwind2000DataSet, _
          System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.CustomersBindingSource, _
        System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.CustomersBindingNavigator, _
        System.ComponentModel.ISupportInitialize).BeginInit()
        Me.CustomersBindingNavigator.SuspendLayout()
        CType(Me.CustomersDataGridView, _
          System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.OrdersDataGridView, _
        System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.CustomersOrdersBindingSource, _
        System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Order_DetailsDataGridView, _
        System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.OrdersOrderDetailsBindingSource, _
        System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Nwind2000DataSet
        '
        Me.Nwind2000DataSet.DataSetName = "nwind2000DataSet"
        Me.Nwind2000DataSet.SchemaSerializationMode = _
          System.Data.SchemaSerializationMode.IncludeSchema
        '
        'CustomersBindingSource
        '
        Me.CustomersBindingSource.DataMember = "Customers"
        Me.CustomersBindingSource.DataSource = Me.Nwind2000DataSet
        '
        'CustomersTableAdapter
        '
        Me.CustomersTableAdapter.ClearBeforeFill = True
        '
        'TableAdapterManager
        '
        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
        Me.TableAdapterManager.CategoriesTableAdapter = Nothing
        Me.TableAdapterManager.CustomersTableAdapter = Me.CustomersTableAdapter
        Me.TableAdapterManager.EmployeesTableAdapter = Nothing
        Me.TableAdapterManager.Order_DetailsTableAdapter = _
          Me.Order_DetailsTableAdapter
        Me.TableAdapterManager.OrdersTableAdapter = Me.OrdersTableAdapter
        Me.TableAdapterManager.ProductsTableAdapter = Nothing
        Me.TableAdapterManager.ShippersTableAdapter = Nothing
        Me.TableAdapterManager.SuppliersTableAdapter = Nothing
        Me.TableAdapterManager.UpdateOrder = _
          vbNwindSample.nwind2000DataSetTableAdapters.TableAdapterManager.Updat_
          eOrderOption.InsertUpdateDelete
        '
        'Order_DetailsTableAdapter
        '
        Me.Order_DetailsTableAdapter.ClearBeforeFill = True
        '
        'OrdersTableAdapter
        '
        Me.OrdersTableAdapter.ClearBeforeFill = True
        '
        'CustomersBindingNavigator
        '
        Me.CustomersBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
        Me.CustomersBindingNavigator.BindingSource = Me.CustomersBindingSource
        Me.CustomersBindingNavigator.CountItem = Me.BindingNavigatorCountItem
        Me.CustomersBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
        Me.CustomersBindingNavigator.Items.AddRange(New _
          System.Windows.Forms.ToolStripItem() _
          {Me.BindingNavigatorMoveFirstItem, _
          Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, _
          Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, _
          Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, _
          Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, _
          Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, _
          Me.CustomersBindingNavigatorSaveItem})
        Me.CustomersBindingNavigator.Location = New System.Drawing.Point(0, 0)
        Me.CustomersBindingNavigator.MoveFirstItem = _
          Me.BindingNavigatorMoveFirstItem
        Me.CustomersBindingNavigator.MoveLastItem = _
        Me.BindingNavigatorMoveLastItem
        Me.CustomersBindingNavigator.MoveNextItem = _
        Me.BindingNavigatorMoveNextItem
        Me.CustomersBindingNavigator.MovePreviousItem = _
        Me.BindingNavigatorMovePreviousItem
        Me.CustomersBindingNavigator.Name = "CustomersBindingNavigator"
        Me.CustomersBindingNavigator.PositionItem = _
          Me.BindingNavigatorPositionItem
        Me.CustomersBindingNavigator.Size = New System.Drawing.Size(516, 25)
        Me.CustomersBindingNavigator.TabIndex = 0
        Me.CustomersBindingNavigator.Text = "BindingNavigator1"
        '
        'BindingNavigatorAddNewItem
        '
        Me.BindingNavigatorAddNewItem.DisplayStyle = _
          System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject( _
        "BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
        Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
        Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
        Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22)
        Me.BindingNavigatorAddNewItem.Text = "Add new"
        '
        'BindingNavigatorCountItem
        '
        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
        Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(36, 22)
        Me.BindingNavigatorCountItem.Text = "of {0}"
        Me.BindingNavigatorCountItem.ToolTipText = "Total number of items"
        '
        'BindingNavigatorDeleteItem
        '
        Me.BindingNavigatorDeleteItem.DisplayStyle = _
          System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject( _
        "BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
        Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
        Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
        Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22)
        Me.BindingNavigatorDeleteItem.Text = "Delete"
        '
        'BindingNavigatorMoveFirstItem
        '
        Me.BindingNavigatorMoveFirstItem.DisplayStyle = _
          System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject( _
        "BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
        Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
        Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
        Me.BindingNavigatorMoveFirstItem.Text = "Move first"
        '
        'BindingNavigatorMovePreviousItem
        '
        Me.BindingNavigatorMovePreviousItem.DisplayStyle = _
          System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject( _
        "BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
        Me.BindingNavigatorMovePreviousItem.Name = _
        "BindingNavigatorMovePreviousItem"
        Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
        Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, _
          22)
        Me.BindingNavigatorMovePreviousItem.Text = "Move previous"
        '
        'BindingNavigatorSeparator
        '
        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
        '
        'BindingNavigatorPositionItem
        '
        Me.BindingNavigatorPositionItem.AccessibleName = "Position"
        Me.BindingNavigatorPositionItem.AutoSize = False
        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
        Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 21)
        Me.BindingNavigatorPositionItem.Text = "0"
        Me.BindingNavigatorPositionItem.ToolTipText = "Current position"
        '
        'BindingNavigatorSeparator1
        '
        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
        '
        'BindingNavigatorMoveNextItem
        '
        Me.BindingNavigatorMoveNextItem.DisplayStyle = _
          System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject( _
        "BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
        Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
        Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22)
        Me.BindingNavigatorMoveNextItem.Text = "Move next"
        '
        'BindingNavigatorMoveLastItem
        '
        Me.BindingNavigatorMoveLastItem.DisplayStyle = _
          System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject( _
        "BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
        Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
        Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22)
        Me.BindingNavigatorMoveLastItem.Text = "Move last"
        '
        'BindingNavigatorSeparator2
        '
        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
        '
        'CustomersBindingNavigatorSaveItem
        '
        Me.CustomersBindingNavigatorSaveItem.DisplayStyle = _
          System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.CustomersBindingNavigatorSaveItem.Image = CType(resources.GetObject( _
        "CustomersBindingNavigatorSaveItem.Image"), System.Drawing.Image)
        Me.CustomersBindingNavigatorSaveItem.Name = _
        "CustomersBindingNavigatorSaveItem"
        Me.CustomersBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, _
        22)
        Me.CustomersBindingNavigatorSaveItem.Text = "Save Data"
        '
        'CustomersDataGridView
        '
        Me.CustomersDataGridView.AutoGenerateColumns = False
        Me.CustomersDataGridView.ColumnHeadersHeightSizeMode = _
          System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.CustomersDataGridView.Columns.AddRange(New _
        System.Windows.Forms.DataGridViewColumn() _
        {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, _
        Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, _
        Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, _
        Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, _
        Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, _
        Me.DataGridViewTextBoxColumn11})
        Me.CustomersDataGridView.DataSource = Me.CustomersBindingSource
        Me.CustomersDataGridView.Dock = System.Windows.Forms.DockStyle.Top
        Me.CustomersDataGridView.Location = New System.Drawing.Point(0, 25)
        Me.CustomersDataGridView.Name = "CustomersDataGridView"
        Me.CustomersDataGridView.Size = New System.Drawing.Size(516, 133)
        Me.CustomersDataGridView.TabIndex = 1
        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.DataPropertyName = "CustomerID"
        Me.DataGridViewTextBoxColumn1.HeaderText = "CustomerID"
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
        'DataGridViewTextBoxColumn2
        '
        Me.DataGridViewTextBoxColumn2.DataPropertyName = "CompanyName"
        Me.DataGridViewTextBoxColumn2.HeaderText = "CompanyName"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
        'DataGridViewTextBoxColumn3
        '
        Me.DataGridViewTextBoxColumn3.DataPropertyName = "ContactName"
        Me.DataGridViewTextBoxColumn3.HeaderText = "ContactName"
        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
        '
        'DataGridViewTextBoxColumn4
        '
        Me.DataGridViewTextBoxColumn4.DataPropertyName = "ContactTitle"
        Me.DataGridViewTextBoxColumn4.HeaderText = "ContactTitle"
        Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
        '
        'DataGridViewTextBoxColumn5
        '
        Me.DataGridViewTextBoxColumn5.DataPropertyName = "Address"
        Me.DataGridViewTextBoxColumn5.HeaderText = "Address"
        Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
        '
        'DataGridViewTextBoxColumn6
        '
        Me.DataGridViewTextBoxColumn6.DataPropertyName = "City"
        Me.DataGridViewTextBoxColumn6.HeaderText = "City"
        Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
        '
        'DataGridViewTextBoxColumn7
        '
        Me.DataGridViewTextBoxColumn7.DataPropertyName = "Region"
        Me.DataGridViewTextBoxColumn7.HeaderText = "Region"
        Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
        '
        'DataGridViewTextBoxColumn8
        '
        Me.DataGridViewTextBoxColumn8.DataPropertyName = "PostalCode"
        Me.DataGridViewTextBoxColumn8.HeaderText = "PostalCode"
        Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
        '
        'DataGridViewTextBoxColumn9
        '
        Me.DataGridViewTextBoxColumn9.DataPropertyName = "Country"
        Me.DataGridViewTextBoxColumn9.HeaderText = "Country"
        Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
        '
        'DataGridViewTextBoxColumn10
        '
        Me.DataGridViewTextBoxColumn10.DataPropertyName = "Phone"
        Me.DataGridViewTextBoxColumn10.HeaderText = "Phone"
        Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
        '
        'DataGridViewTextBoxColumn11
        '
        Me.DataGridViewTextBoxColumn11.DataPropertyName = "Fax"
        Me.DataGridViewTextBoxColumn11.HeaderText = "Fax"
        Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11"
        '
        'OrdersDataGridView
        '
        Me.OrdersDataGridView.AutoGenerateColumns = False
        Me.OrdersDataGridView.ColumnHeadersHeightSizeMode = _
          System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.OrdersDataGridView.Columns.AddRange(New _
        System.Windows.Forms.DataGridViewColumn() _
        {Me.OrderIDDataGridViewTextBoxColumn, _
        Me.CustomerIDDataGridViewTextBoxColumn, _
        Me.EmployeeIDDataGridViewTextBoxColumn, _
        Me.OrderDateDataGridViewTextBoxColumn, _
        Me.RequiredDateDataGridViewTextBoxColumn, _
        Me.ShippedDateDataGridViewTextBoxColumn, _
        Me.ShipViaDataGridViewTextBoxColumn, _
        Me.FreightDataGridViewTextBoxColumn, _
        Me.ShipNameDataGridViewTextBoxColumn, _
        Me.ShipAddressDataGridViewTextBoxColumn, _
        Me.ShipCityDataGridViewTextBoxColumn, _
        Me.ShipRegionDataGridViewTextBoxColumn, _
        Me.ShipPostalCodeDataGridViewTextBoxColumn, _
        Me.ShipCountryDataGridViewTextBoxColumn})
        Me.OrdersDataGridView.DataSource = Me.CustomersOrdersBindingSource
        Me.OrdersDataGridView.Dock = System.Windows.Forms.DockStyle.Top
        Me.OrdersDataGridView.Location = New System.Drawing.Point(0, 158)
        Me.OrdersDataGridView.Name = "OrdersDataGridView"
        Me.OrdersDataGridView.Size = New System.Drawing.Size(516, 163)
        Me.OrdersDataGridView.TabIndex = 2
        '
        'OrderIDDataGridViewTextBoxColumn
        '
        Me.OrderIDDataGridViewTextBoxColumn.DataPropertyName = "OrderID"
        Me.OrderIDDataGridViewTextBoxColumn.HeaderText = "OrderID"
        Me.OrderIDDataGridViewTextBoxColumn.Name = _
          "OrderIDDataGridViewTextBoxColumn"
        '
        'CustomerIDDataGridViewTextBoxColumn
        '
        Me.CustomerIDDataGridViewTextBoxColumn.DataPropertyName = "CustomerID"
        Me.CustomerIDDataGridViewTextBoxColumn.HeaderText = "CustomerID"
        Me.CustomerIDDataGridViewTextBoxColumn.Name = _
          "CustomerIDDataGridViewTextBoxColumn"
        '
        'EmployeeIDDataGridViewTextBoxColumn
        '
        Me.EmployeeIDDataGridViewTextBoxColumn.DataPropertyName = "EmployeeID"
        Me.EmployeeIDDataGridViewTextBoxColumn.HeaderText = "EmployeeID"
        Me.EmployeeIDDataGridViewTextBoxColumn.Name = _
          "EmployeeIDDataGridViewTextBoxColumn"
        '
        'OrderDateDataGridViewTextBoxColumn
        '
        Me.OrderDateDataGridViewTextBoxColumn.DataPropertyName = "OrderDate"
        Me.OrderDateDataGridViewTextBoxColumn.HeaderText = "OrderDate"
        Me.OrderDateDataGridViewTextBoxColumn.Name = _
          "OrderDateDataGridViewTextBoxColumn"
        '
        'RequiredDateDataGridViewTextBoxColumn
        '
        Me.RequiredDateDataGridViewTextBoxColumn.DataPropertyName = _
          "RequiredDate"
        Me.RequiredDateDataGridViewTextBoxColumn.HeaderText = "RequiredDate"
        Me.RequiredDateDataGridViewTextBoxColumn.Name = _
          "RequiredDateDataGridViewTextBoxColumn"
        '
        'ShippedDateDataGridViewTextBoxColumn
        '
        Me.ShippedDateDataGridViewTextBoxColumn.DataPropertyName = "ShippedDate"
        Me.ShippedDateDataGridViewTextBoxColumn.HeaderText = "ShippedDate"
        Me.ShippedDateDataGridViewTextBoxColumn.Name = _
          "ShippedDateDataGridViewTextBoxColumn"
        '
        'ShipViaDataGridViewTextBoxColumn
        '
        Me.ShipViaDataGridViewTextBoxColumn.DataPropertyName = "ShipVia"
        Me.ShipViaDataGridViewTextBoxColumn.HeaderText = "ShipVia"
        Me.ShipViaDataGridViewTextBoxColumn.Name = _
          "ShipViaDataGridViewTextBoxColumn"
        '
        'FreightDataGridViewTextBoxColumn
        '
        Me.FreightDataGridViewTextBoxColumn.DataPropertyName = "Freight"
        Me.FreightDataGridViewTextBoxColumn.HeaderText = "Freight"
        Me.FreightDataGridViewTextBoxColumn.Name = _
          "FreightDataGridViewTextBoxColumn"
        '
        'ShipNameDataGridViewTextBoxColumn
        '
        Me.ShipNameDataGridViewTextBoxColumn.DataPropertyName = "ShipName"
        Me.ShipNameDataGridViewTextBoxColumn.HeaderText = "ShipName"
        Me.ShipNameDataGridViewTextBoxColumn.Name = _
          "ShipNameDataGridViewTextBoxColumn"
        '
        'ShipAddressDataGridViewTextBoxColumn
        '
        Me.ShipAddressDataGridViewTextBoxColumn.DataPropertyName = "ShipAddress"
        Me.ShipAddressDataGridViewTextBoxColumn.HeaderText = "ShipAddress"
        Me.ShipAddressDataGridViewTextBoxColumn.Name = _
          "ShipAddressDataGridViewTextBoxColumn"
        '
        'ShipCityDataGridViewTextBoxColumn
        '
        Me.ShipCityDataGridViewTextBoxColumn.DataPropertyName = "ShipCity"
        Me.ShipCityDataGridViewTextBoxColumn.HeaderText = "ShipCity"
        Me.ShipCityDataGridViewTextBoxColumn.Name = _
          "ShipCityDataGridViewTextBoxColumn"
        '
        'ShipRegionDataGridViewTextBoxColumn
        '
        Me.ShipRegionDataGridViewTextBoxColumn.DataPropertyName = "ShipRegion"
        Me.ShipRegionDataGridViewTextBoxColumn.HeaderText = "ShipRegion"
        Me.ShipRegionDataGridViewTextBoxColumn.Name = _
          "ShipRegionDataGridViewTextBoxColumn"
        '
        'ShipPostalCodeDataGridViewTextBoxColumn
        '
        Me.ShipPostalCodeDataGridViewTextBoxColumn.DataPropertyName = _
          "ShipPostalCode"
        Me.ShipPostalCodeDataGridViewTextBoxColumn.HeaderText = "ShipPostalCode"
        Me.ShipPostalCodeDataGridViewTextBoxColumn.Name = _
          "ShipPostalCodeDataGridViewTextBoxColumn"
        '
        'ShipCountryDataGridViewTextBoxColumn
        '
        Me.ShipCountryDataGridViewTextBoxColumn.DataPropertyName = "ShipCountry"
        Me.ShipCountryDataGridViewTextBoxColumn.HeaderText = "ShipCountry"
        Me.ShipCountryDataGridViewTextBoxColumn.Name = _
          "ShipCountryDataGridViewTextBoxColumn"
        '
        'CustomersOrdersBindingSource
        '
        Me.CustomersOrdersBindingSource.DataMember = "CustomersOrders"
        Me.CustomersOrdersBindingSource.DataSource = Me.CustomersBindingSource
        '
        'Order_DetailsDataGridView
        '
        Me.Order_DetailsDataGridView.AutoGenerateColumns = False
        Me.Order_DetailsDataGridView.ColumnHeadersHeightSizeMode = _
          System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.Order_DetailsDataGridView.Columns.AddRange(New _
        System.Windows.Forms.DataGridViewColumn() _
        {Me.OrderIDDataGridViewTextBoxColumn1, _
        Me.ProductIDDataGridViewTextBoxColumn, _
        Me.UnitPriceDataGridViewTextBoxColumn, _
        Me.QuantityDataGridViewTextBoxColumn, _
        Me.DiscountDataGridViewTextBoxColumn})
        Me.Order_DetailsDataGridView.DataSource = _
        Me.OrdersOrderDetailsBindingSource
        Me.Order_DetailsDataGridView.Dock = System.Windows.Forms.DockStyle.Top
        Me.Order_DetailsDataGridView.Location = New System.Drawing.Point(0, 321)
        Me.Order_DetailsDataGridView.Name = "Order_DetailsDataGridView"
        Me.Order_DetailsDataGridView.Size = New System.Drawing.Size(516, 191)
        Me.Order_DetailsDataGridView.TabIndex = 3
        '
        'OrderIDDataGridViewTextBoxColumn1
        '
        Me.OrderIDDataGridViewTextBoxColumn1.DataPropertyName = "OrderID"
        Me.OrderIDDataGridViewTextBoxColumn1.HeaderText = "OrderID"
        Me.OrderIDDataGridViewTextBoxColumn1.Name = _
          "OrderIDDataGridViewTextBoxColumn1"
        '
        'ProductIDDataGridViewTextBoxColumn
        '
        Me.ProductIDDataGridViewTextBoxColumn.DataPropertyName = "ProductID"
        Me.ProductIDDataGridViewTextBoxColumn.HeaderText = "ProductID"
        Me.ProductIDDataGridViewTextBoxColumn.Name = _
          "ProductIDDataGridViewTextBoxColumn"
        '
        'UnitPriceDataGridViewTextBoxColumn
        '
        Me.UnitPriceDataGridViewTextBoxColumn.DataPropertyName = "UnitPrice"
        Me.UnitPriceDataGridViewTextBoxColumn.HeaderText = "UnitPrice"
        Me.UnitPriceDataGridViewTextBoxColumn.Name = _
          "UnitPriceDataGridViewTextBoxColumn"
        '
        'QuantityDataGridViewTextBoxColumn
        '
        Me.QuantityDataGridViewTextBoxColumn.DataPropertyName = "Quantity"
        Me.QuantityDataGridViewTextBoxColumn.HeaderText = "Quantity"
        Me.QuantityDataGridViewTextBoxColumn.Name = _
          "QuantityDataGridViewTextBoxColumn"
        '
        'DiscountDataGridViewTextBoxColumn
        '
        Me.DiscountDataGridViewTextBoxColumn.DataPropertyName = "Discount"
        Me.DiscountDataGridViewTextBoxColumn.HeaderText = "Discount"
        Me.DiscountDataGridViewTextBoxColumn.Name = _
          "DiscountDataGridViewTextBoxColumn"
        '
        'OrdersOrderDetailsBindingSource
        '
        Me.OrdersOrderDetailsBindingSource.DataMember = "OrdersOrder Details"
        Me.OrdersOrderDetailsBindingSource.DataSource = _
          Me.CustomersOrdersBindingSource
        '
        'ZeigenCustomersOhneOrders
        '
        Me.ZeigenCustomersOhneOrders.Location = New System.Drawing.Point(13, _
          536)
        Me.ZeigenCustomersOhneOrders.Name = "ZeigenCustomersOhneOrders"
        Me.ZeigenCustomersOhneOrders.Size = New System.Drawing.Size(169, 25)
        Me.ZeigenCustomersOhneOrders.TabIndex = 4
        Me.ZeigenCustomersOhneOrders.Text = "Customers ohne Orders"
        Me.ZeigenCustomersOhneOrders.UseVisualStyleBackColor = True
        '
        'CityAuswählen
        '
        Me.CityAuswählen.FormattingEnabled = True
        Me.CityAuswählen.Location = New System.Drawing.Point(323, 536)
        Me.CityAuswählen.Name = "CityAuswählen"
        Me.CityAuswählen.Size = New System.Drawing.Size(181, 21)
        Me.CityAuswählen.TabIndex = 5
        '
        'CityAuswahl
        '
        Me.CityAuswahl.AutoSize = True
        Me.CityAuswahl.Location = New System.Drawing.Point(325, 571)
        Me.CityAuswahl.Name = "CityAuswahl"
        Me.CityAuswahl.Size = New System.Drawing.Size(98, 17)
        Me.CityAuswahl.TabIndex = 6
        Me.CityAuswahl.Text = "City Auswählen"
        Me.CityAuswahl.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(516, 618)
        Me.Controls.Add(Me.CityAuswahl)
        Me.Controls.Add(Me.CityAuswählen)
        Me.Controls.Add(Me.ZeigenCustomersOhneOrders)
        Me.Controls.Add(Me.Order_DetailsDataGridView)
        Me.Controls.Add(Me.OrdersDataGridView)
        Me.Controls.Add(Me.CustomersDataGridView)
        Me.Controls.Add(Me.CustomersBindingNavigator)
        Me.Name = "Form1"
        Me.Text = "Form1"
        CType(Me.Nwind2000DataSet, _
          System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.CustomersBindingSource, _
        System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.CustomersBindingNavigator, _
        System.ComponentModel.ISupportInitialize).EndInit()
        Me.CustomersBindingNavigator.ResumeLayout(False)
        Me.CustomersBindingNavigator.PerformLayout()
        CType(Me.CustomersDataGridView, _
          System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.OrdersDataGridView, _
        System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.CustomersOrdersBindingSource, _
        System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Order_DetailsDataGridView, _
        System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.OrdersOrderDetailsBindingSource, _
        System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
 
    End Sub
    Friend WithEvents Nwind2000DataSet As vbNwindSample.nwind2000DataSet
    Friend WithEvents CustomersBindingSource As _
      System.Windows.Forms.BindingSource
    Friend WithEvents CustomersTableAdapter As _
    vbNwindSample.nwind2000DataSetTableAdapters.CustomersTableAdapter
    Friend WithEvents TableAdapterManager As _
    vbNwindSample.nwind2000DataSetTableAdapters.TableAdapterManager
    Friend WithEvents CustomersBindingNavigator As _
    System.Windows.Forms.BindingNavigator
    Friend WithEvents BindingNavigatorAddNewItem As _
    System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorCountItem As _
    System.Windows.Forms.ToolStripLabel
    Friend WithEvents BindingNavigatorDeleteItem As _
    System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorMoveFirstItem As _
    System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorMovePreviousItem As _
    System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorSeparator As _
    System.Windows.Forms.ToolStripSeparator
    Friend WithEvents BindingNavigatorPositionItem As _
    System.Windows.Forms.ToolStripTextBox
    Friend WithEvents BindingNavigatorSeparator1 As _
    System.Windows.Forms.ToolStripSeparator
    Friend WithEvents BindingNavigatorMoveNextItem As _
    System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorMoveLastItem As _
    System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorSeparator2 As _
    System.Windows.Forms.ToolStripSeparator
    Friend WithEvents CustomersBindingNavigatorSaveItem As _
    System.Windows.Forms.ToolStripButton
    Friend WithEvents OrdersTableAdapter As _
    vbNwindSample.nwind2000DataSetTableAdapters.OrdersTableAdapter
    Friend WithEvents CustomersDataGridView As System.Windows.Forms.DataGridView
    Friend WithEvents DataGridViewTextBoxColumn1 As _
      System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn2 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn3 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn4 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn5 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn6 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn7 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn8 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn9 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn10 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn11 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Order_DetailsTableAdapter As _
    vbNwindSample.nwind2000DataSetTableAdapters.Order_DetailsTableAdapter
    Friend WithEvents OrdersDataGridView As System.Windows.Forms.DataGridView
    Friend WithEvents Order_DetailsDataGridView As _
      System.Windows.Forms.DataGridView
    Friend WithEvents ZeigenCustomersOhneOrders As System.Windows.Forms.Button
    Friend WithEvents OrderIDDataGridViewTextBoxColumn As _
      System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents CustomerIDDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents EmployeeIDDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents OrderDateDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents RequiredDateDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ShippedDateDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ShipViaDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents FreightDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ShipNameDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ShipAddressDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ShipCityDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ShipRegionDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ShipPostalCodeDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ShipCountryDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents CustomersOrdersBindingSource As _
    System.Windows.Forms.BindingSource
    Friend WithEvents OrderIDDataGridViewTextBoxColumn1 As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents ProductIDDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents UnitPriceDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents QuantityDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DiscountDataGridViewTextBoxColumn As _
    System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents OrdersOrderDetailsBindingSource As _
    System.Windows.Forms.BindingSource
    Friend WithEvents CityAuswählen As System.Windows.Forms.ComboBox
    Friend WithEvents CityAuswahl As System.Windows.Forms.CheckBox
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist