gistfile1.txt

Public Class Form1
    Private Sub ПРЕДПРИЯТИЯBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles ПРЕДПРИЯТИЯBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ПРЕДПРИЯТИЯBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database4DataSet)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "Database4DataSet.ПРЕДПРИЯТИЯ". При необходимости она может быть перемещена или удалена.
        Me.ПРЕДПРИЯТИЯTableAdapter.Fill(Me.Database4DataSet.ПРЕДПРИЯТИЯ)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.ПРЕДПРИЯТИЯTableAdapter.Update(Me.Database4DataSet.ПРЕДПРИЯТИЯ)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fromVal, toVal As Integer
        fromVal = CInt(TextBox1.Text)
        toVal = CInt(TextBox2.Text)

        findCompanies(fromVal, toVal)
    End Sub

    Private Sub findCompanies(ByVal fromVal As Integer, ByVal toVal As Integer)
        Dim i As Integer
        Dim data As DataRowCollection = Database4DataSet.ПРЕДПРИЯТИЯ.Rows

        For i = 0 To data.Count() - 1
            If fromVal <= data(i)(1) And data(i)(1) <= toVal Then
                TextBox3.Text += data(i)(0) + " "
            End If
        Next
    End Sub
End Class