If Not IsNothing(ВывестиРасписаниеBindingSource.Current) Then

Dim qta As TimetableDBDataSetTableAdapters.QueriesTableAdapter = New TimetableDBDataSetTableAdapters.QueriesTableAdapter()

qta.УдалитьИзРасписания(CType(CType(ВывестиРасписаниеBindingSource.Current, DataRowView)("Код"), Integer))

ВывестиРасписаниеTableAdapter.Fill(TimetableDBDataSet.ВывестиРасписание)

End If

End Sub

Private Sub СодержаниеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СодержаниеToolStripMenuItem.Click

Process.Start("Help.exe")

End Sub

Private Sub ОПрограммеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОПрограммеToolStripMenuItem.Click

Dim f As fInfo = New fInfo

f.ShowDialog()

f.Dispose()

End Sub

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

Dim f As fRooms = New fRooms

f.ShowDialog()

f.Dispose()

fill()

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Dim f As fLessons = New fLessons

f.ShowDialog()

f.Dispose()

fill()

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Dim f As fPrepods = New fPrepods

f.ShowDialog()

f.Dispose()

fill()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Dim f As fGroup = New fGroup

f.ShowDialog()

f.Dispose()

fill()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim f As fTime = New fTime

f.ShowDialog()

f.Dispose()

fill()

End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click

ВывестиРасписаниеBindingSource.MoveLast()

End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

ВывестиРасписаниеBindingSource.MoveFirst()

End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

ВывестиРасписаниеBindingSource.MoveNext()

End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

ВывестиРасписаниеBindingSource.MovePrevious()

End Sub

Const cFilter As String = "Дата >= '{0}' and Дата <= '{1}'"

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

ВывестиРасписаниеBindingSource.Filter = String.Format(cFilter, DateTimePicker2.Value, DateTimePicker3.Value)

End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

ВывестиРасписаниеBindingSource.Filter = ""

End Sub

End Class

Public Class fGroup

Private Sub ГруппаBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)

Me.Validate()

Me.ГруппаBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.TimetableDBDataSet)

End Sub

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

'TODO: This line of code loads data into the 'TimetableDBDataSet.Группа' table. You can move, or remove it, as needed.

Me.ГруппаTableAdapter.Fill(Me.TimetableDBDataSet.Группа)

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Close()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Try

Me.Validate()

Me.ГруппаBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.TimetableDBDataSet)

Catch

MessageBox.Show("Неверное заполнение!")

End Try

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click