员工考勤信息.aspx.vb

人事管理系统

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports kx

Partial Class 员工考勤信息
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.GridView1.Visible = False
        Me.GridView2.Visible = True
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim yno As String = Me.DropDownList1.SelectedValue.ToString
        Dim cn As New msk()
        Me.GridView1.DataSource = cn.getmsg(Me.DropDownList1.SelectedValue)
        Me.GridView1.DataBind()
        Me.GridView1.Visible = True


    End Sub
End Class