Imports BUS

Public Class frmHocSinh

    Dim bHocSinh As New BusHocSinh

    Dim dtHocSinh As New DataTable

    Private Sub cmdTim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTim.Click

        If Me.rdbTenHS.Checked = True Then

            dtHocSinh = bHocSinh.TimHocSinh(txtKey.Text.ToString.Trim, "TenHS")

        Else

            dtHocSinh = bHocSinh.TimHocSinh(txtKey.Text.ToString.Trim, "DiaChi")

        End If

        dgHocSinh.DataSource = dtHocSinh

    End Sub

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

    End Sub

End Class