Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Dim drDiscount As DataRow

        Try
            
            If txtDiscount.Text <> "" And txtDiscount.Text >  0  And txtDiscount.Text <  100  Then

                If CompanyForm.editSw Then
                    'Записываем в таблицу измененное значение скидки.
                    CompanyForm.selRow("Discount") = txtDiscount.Text
                    Me.Close()
                Else

                    'Проверяем в цикле наличие в таблице такой-же пары производителя и товарной группы,если есть то выдаем предупреждение и прекращаем подпрограмму.
                    Dim i As Integer

                    For i =  0  To CompanyForm.dsCompany.Tables("CompanyDiscountTbl").Rows.Count -  1 
                        'Проверяем, не является ли строка удаленной.
                        If Not CompanyForm.dsCompany.Tables("CompanyDiscountTbl").Rows(i).RowState = DataRowState.Deleted Then
                            'Проверяем наличие пар производитель - товарная группа.
                            If (CompanyForm.dsCompany.Tables("CompanyDiscountTbl").Rows(i).Item("Producerid") = cbProducer.Text And CompanyForm.dsCompany.Tables("CompanyDiscountTbl").Rows(i).Item("TovarGroupId") = cbTovgr.Text) Then
                                MessageBox.Show("Такая скидка существует.")
                                Me.Close()
                                Return
                            End If
                        End If
                    Next i

                    'Создаем новую строку для таблицы CompanyDiscountTbl
                    drDiscount = CompanyForm.dsCompany.Tables("CompanyDiscountTbl").NewRow
                    'Заполняем созданную строку данными из комбобоксов и текстбокса.
                    drDiscount.Item("ProducerID") = cbProducer.Text
                    drDiscount.Item("TovarGroupId") = cbTovgr.Text
                    drDiscount.Item("Discount") = txtDiscount.Text

                    'Добавляем полученную строку в таблицу.
                    CompanyForm.dsCompany.Tables("CompanyDiscountTbl").Rows.Add(drDiscount)
                    'Очищаем текстовое поле для новой скидки.

                    txtDiscount.Text =  0 

            End If

            Else
                    MessageBox.Show("Введите скидку.")
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub