#Region "sql_ean"
    Dim sql_ean_DataAdapter As OleDb.OleDbDataAdapter
    Dim sql_ean_DataSet As DataSet
    Dim sql_ean_dataview As DataView
    Dim sql_ean_CommanBuilder As OleDb.OleDbCommandBuilder
    Dim sql_ean_BindingSource As BindingSource
#End Region
 
    Private Sub frmArtikelBearbeiten_Load(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles MyBase.Load
 
        'SQL Daten für EANs und Preise werden ausgelesen
        frmArtikelstamm.sqlglobal_Connection.Open()
        sql_ean_DataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM ean" & _
          "WHERE artikelnr = '" & frmArtikelstamm.sqlglobal_DataView( _
          frmArtikelstamm.sqlglobal_BindingSource.Position)("artikelnr") & "'", _
          frmArtikelstamm.sqlglobal_Connection)
        sql_ean_DataSet = New DataSet
        sql_ean_DataAdapter.Fill(sql_ean_DataSet, "ean")
        sql_ean_dataview = New DataView(sql_ean_DataSet.Tables("ean"))
        sql_ean_dataview.Sort = "dimension2"
        sql_ean_BindingSource = New BindingSource
        sql_ean_BindingSource.DataSource = sql_ean_dataview
        sql_ean_CommanBuilder = New OleDb.OleDbCommandBuilder( _
          sql_ean_DataAdapter)
        frmArtikelstamm.sqlglobal_Connection.Close()
 
        'Werte werden in das Formular geschrieben
        frm_füllen()
 
    End Sub
 
    Sub frm_füllen()
 
        'Die BindingSource wird dem DataGridView zugewiesen
        dgvSellingPrice.DataSource = Nothing
        dgvSellingPrice.DataSource = sql_ean_BindingSource
 
    End Sub
 
    Private Sub btnPreisAendern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnPreisAendern.Click
 
        With dlgPreisAendern
            .lblText.Text = "Geben Sie den Preis für den Artikel " & _
              txtArtikelNr.Text & " " & txtProperName.Text & " ein:"
            .txtNeuerPreis.Text = sql_ean_dataview(0)("sellingprice")
        End With
 
        If dlgPreisAendern.ShowDialog = Windows.Forms.DialogResult.OK Then
 
            Dim decNeuerPreis As Decimal
 
            Try
                decNeuerPreis = Convert.ToDecimal( _
                  dlgPreisAendern.txtNeuerPreis.Text)
            Catch ex As Exception
                MessageBox.Show("Es wurde kein gültiger Betrag eingegeben!", _
                  "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End Try
 
            For i = 0 To sql_ean_dataview.Count - 1
                sql_ean_dataview(i)("sellingprice") = decNeuerPreis
            Next
 
        End If
 
        dgvSellingPrice.Refresh()
 
    End Sub
 
    Private Sub btnArtikelSpeichern_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles btnArtikelSpeichern.Click
 
        sql_ean_DataAdapter.Update(sql_ean_DataSet, "ean")
 
    End Sub