Public Shared selRow As DataRowView
Public Shared curMenComp As CurrencyManager
Public Shared editSw As Boolean

'Кнопки редактирования данных в DataGrid.
Private Sub editDiscountButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles editDiscountButton.Click

        editSw = True
        curMenComp = Me.BindingContext(dgDiscount.DataSource, dgDiscount.DataMember)
        selRow = CType(curMenComp.Current, DataRowView)
        frmDisc.editDiscount(selRow)
        
    End Sub

Public Sub editDiscount(ByVal selRow As DataRowView)

        If CompanyForm.editSw Then
            'Заполняем комбобоксы на форме.
            cbProducer.DataSource = CompanyForm.dsProducer.Tables("ProducerTbl")
            cbProducer.DisplayMember = "ProducerId"

            cbTovgr.DataSource = CompanyForm.dsTovgr.Tables("TovarGroupTip")
            cbTovgr.DisplayMember = "TovarGroupId"

            'Заполняем данными из выбранной строки.

            txtDiscount.Text = selRow("Discount")
            cbProducer.SelectedItem = selRow("ProducerId")
            cbTovgr.SelectedItem = selRow("TovarGroupId")
             Else
            'Заполняем комбобоксы на форме.
            cbProducer.DataSource = CompanyForm.dsProducer.Tables("ProducerTbl")
            cbProducer.DisplayMember = "ProducerId"

            cbTovgr.DataSource = CompanyForm.dsTovgr.Tables("TovarGroupTip")
            cbTovgr.DisplayMember = "TovarGroupId"
            txtDiscount.Text = "0"

        End If

        Me.ShowDialog()

    End Sub