frmcheckstuent_all.vb

通用学籍管理软件 vb开发access数据库的实例

Public Class FrmCheckStuent_All

    Private Sub FrmCheckStuent_All_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DTable As DataTable
        DTable = DBStudent.LoadStudent("", "", "")
        Label1.Text = "一共有" & DTable.Rows.Count.ToString & "条记录"
        DGVResult.DataSource = DTable
    End Sub
End Class