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.Database6DataSet)

    End Sub

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

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim data As DataRowCollection = Database6DataSet.РАДИОЛОКАЦИОННЫЕ_СТАНЦИИ.Rows
        Dim i, j, k As Integer
        Dim row As DataRow

        k = 0

        For i = 0 To data.Count() - 1
            row = data(i)
            For j = 0 To data.Count() - 1
                If row(3) = data(j)(3) And row(1) > data(j)(1) Then
                    row = data(j)
                    k = 1
                End If
            Next

            If k <> 1 Then
                ListBox1.Items.Add(CStr(row(3)) + " " + CStr(row(1)))
            End If
            k = 0
        Next

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.РАДИОЛОКАЦИОННЫЕ_СТАНЦИИTableAdapter.Update(Me.Database6DataSet.РАДИОЛОКАЦИОННЫЕ_СТАНЦИИ)
    End Sub
End Class