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.Red

End If

Next j

Next i

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

АудиторияBindingSource.Filter = "Здание='" & ComboBox1.Text & "'"

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

АудиторияBindingSource.Filter = ""

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

Button8.Enabled = True

End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

Dim Col As System.Windows.Forms.DataGridViewColumn

Select Case ListBox1.SelectedIndex

Case 0

Col = DataGridViewTextBoxColumn2

Case 1

Col = DataGridViewTextBoxColumn3

End Select

If RadioButton1.Checked Then

АудиторияDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)

Else

АудиторияDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)

End If

End Sub

End Class

Public Class fTime

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'TimetableDBDataSet.selectTime' table. You can move, or remove it, as needed.

Me.SelectTimeTableAdapter.Fill(Me.TimetableDBDataSet.selectTime)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs)

If Not IsNothing(SelectTimeBindingSource.Current) Then SelectTimeBindingSource.RemoveCurrent()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs)

Close()

End Sub

End Class