Public Class frm_ReserviertePlaetze

    Private Sub frm_ReserviertePlaetze_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Globals.ReserviertePlaetze_Visible = False
    End Sub

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

    End Sub

    Public Sub Refresh_Data(ByRef d As Object)
        Me.C1FreiePlätze.DataSource = Nothing
        Me.C1FreiePlätze.DataSource = d
        Me.C1FreiePlätze.DataMember = d.tablename
        Try
            Me.C1FreiePlätze.Splits(0).DisplayColumns(0).Visible = False
            Me.C1FreiePlätze.Splits(0).DisplayColumns(1).Width = 150
            Me.C1FreiePlätze.Splits(0).DisplayColumns(2).Width = 150
            Me.C1FreiePlätze.Splits(0).DisplayColumns(3).Width = 70
            Me.C1FreiePlätze.Splits(0).DisplayColumns(4).Width = 80

        Catch ex As Exception
        End Try
    End Sub

    Private Sub TSBtnQuit_Click(sender As System.Object, e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub C1FreiePlätze_DoubleClick(sender As Object, e As System.EventArgs) Handles C1FreiePlätze.DoubleClick
        Dim f As New frmSchueler
        f.MdiParent = Me.MdiParent
        f.Show()
        f.search(Me.C1FreiePlätze.Columns("Schuelernr").Value)

    End Sub

    Private Sub SchülerAnzeigenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SchülerAnzeigenToolStripMenuItem.Click
        Me.C1FreiePlätze_DoubleClick(sender, e)
    End Sub
End Class