42.Обьект,для отображения табличной формы

На панели DataSource нажмите на кнопку со стрелочкой вниз расположенную справа от таблицы, в появившемся окне необходимо выбрать DataGridView. Данный объект отобразит всю таблицу. С помощью этого объекта можно редактировать отображаемую таблицу, а именно как её стиль (цвет, шрифт), так и содержание (количество отображаемых столбцов, наименование столбцов, размер)

Задание: Сортировка

Dim Col As System.Windows.Forms.DataGridViewColumn

Select Case ListBox1.SelectedIndex

Case 0

Col = DataGridViewTextBoxColumn1

Case 1

Col = DataGridViewTextBoxColumn2

Case 2

Col = DataGridViewTextBoxColumn3

Case 3

Col = DataGridViewTextBoxColumn4

End Select

If RadioButton1.Checked Then

ИмяТаблицыDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)

Else

ИмяТаблицыDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)

End If

Сортировка представлена для 4 колонок в таблице (если меньше просто удалить лишние кейсы и колы, если больше - добавить) радио бутон 1 – сорт по убыванию, радио бутон 2 – сорт во позрастанию, код прописывается на кнопку, на форму также добавляется ListBox где в Items прописываем все названия полей в таблице, по которым нужна сортировка

Поиск

For i = 0 To СтудентыDataGridView.ColumnCount - 1

For j = 0 To СтудентыDataGridView.RowCount - 1

СтудентыDataGridView.Item(i, j).Style.BackColor = Color.White

СтудентыDataGridView.Item(i, j).Style.ForeColor = Color.Black

Next j

Next i

For i = 0 To СтудентыDataGridView.ColumnCount - 1

For j = 0 To СтудентыDataGridView.RowCount - 1

If InStr(СтудентыDataGridView.Item(i, j).Value, TextBox1.Text) Then

СтудентыDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue

СтудентыDataGridView.Item(i, j).Style.ForeColor = Color.Blue

End If

Next j

Next i

Везде студенты заменить на своё название таблицы, поиск прописывается на кнопку, также для поиска понадобиться компонент TextBox куда будем вводить искомую информацию

Фильтр

ТаблицаBindingSource.Filter = "Поле='" & ComboBox1.Text & "'"

Фильтр прописывать на кнопку, добавить на форму combobox, на combobox перетянуть поле из таблицы, чтобы всплывал выбор для фильтра, также надо добавить кнопку показать все записи со след кодом: ТаблицаBindingSource.Filter = ""