?Public Class FrmEditStudent_Class

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        DGVResult.DataSource = DBStudent.LoadStudent("ClassName", ComboClass.Text, "")
    End Sub

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

        Me.ComboClass.DataSource = DBClass.LoadClass
        Me.ComboClass.DisplayMember = "班級名稱"
        Me.ComboClass.SelectedIndex = 0
    End Sub

    Private Sub DGVResult_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVResult.CellContentDoubleClick
        If User.Mod2 = "可讀" Then
            MsgBox("您無權寫入記錄！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim FrmObj As New FrmSaveEditedStudent(DGVResult.Rows(e.RowIndex).Cells(0).Value)
        Me.WindowState = FormWindowState.Minimized
        FrmObj.ShowDialog(Me.Parent)
        Me.WindowState = FormWindowState.Normal
        DGVResult.DataSource = DBStudent.LoadStudent("ClassName", ComboClass.Text, "")
    End Sub

 
End Class