ListView1.Columns.Add("Имя")
ListView1.Columns.Add("Отчество")
ListView1.Items.Clear()
Try
Dim DataReader As OleDbDataReader
Dim Command As New OleDbCommand("Select * From Клиенты", Connector)
Connector.Open()
DataReader = Command.ExecuteReader
While DataReader.Read() = True
ListView1.Items.Add(DataReader.GetValue(0), 0)
ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(1))
ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(2))
ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(3))
End While
DataReader.Close()
Connector.Close()
Catch ex As Exception
Connector.Close()
MessageBox.Show(ex.Message)
End Try
ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
For Each columnheader In Me.ListView1.Columns
columnheader.Width = -3
Next
End Sub
Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ВыходToolStripMenuItem.Click
Close()
End Sub
Private Sub ListView1_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles ListView1.ColumnClick
If (e.Column = lvwColumnSorter.SortColumn) Then
If (lvwColumnSorter.Order = SortOrder.Ascending) Then
lvwColumnSorter.Order = SortOrder.Descending
Else
lvwColumnSorter.Order = SortOrder.Ascending
End If
Else
lvwColumnSorter.SortColumn = e.Column
lvwColumnSorter.Order = SortOrder.Ascending
End If
Me.ListView1.Sort()
End Sub
Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
If Me.Text = "Клиенты" Then