Public Class frmUpdateDelete
    Public Shared anInstance As frmUpdateDelete
    Public Shared ReadOnly Property Instance() As frmUpdateDelete
        Get
            If anInstance Is Nothing Then
                'create form if none
                anInstance = frmUpdateDelete
            End If
            'return the instance of the form
            Return anInstance
        End Get
    End Property

    Private Sub frmUpdateDelete_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim aCollegeDataTier As New CollegeDataTier
            Dim aDataSet As New DataSet
            aDataSet = aCollegeDataTier.GetAllStudents
            With Me
                .cboStudentID.DataSource = aDataSet.Tables(0)
                .cboStudentID.DisplayMember = "lname"
                .cboStudentID.ValueMember = "student_id"
            End With
        Finally
        End Try
    End Sub

    Private Sub cboStudentID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboStudentID.SelectedIndexChanged
        Dim studid As String
        With Me
            Try
                studid = .cboStudentID.SelectedValue.ToString.Trim
                Dim aCollegeDataTier As New CollegeDataTier
                Dim aDataSet As New DataSet
                aDataSet = aCollegeDataTier.GetAllStudentsByID(studid)
                .dgvStudents.DataSource = aDataSet.Tables(0)
            Catch ex As Exception
            End Try
        End With
    End Sub

    Private Sub dgvStudents_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvStudents.CellContentClick

    End Sub

    Private Sub lblMessage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblMessage.Click

    End Sub
    Private Sub frmUpdateDelete_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        anInstance = Nothing
    End Sub
End Class