Visual Basic 2010 数据库开发之人事管理系统06员工档案查询窗体

Imports System.Data.SqlClient
Imports 人事管理系统.rsglxtDataSetTableAdapters
Imports 人事管理系统.rsglxtDataSet
Public Class 员工档案查询
    Dim myda As New 员工档案表TableAdapter
    Dim mydt As 员工档案表DataTable
    '使用dataview定制从数据库返回的、存储在DataSet中的记录的视图
    Dim myDataView As DataView
    'CurrencyManager用于控制绑定数据
    Dim bmdata As CurrencyManager

    '数据填充并更新显示过程
    Private Sub FillDataSetAndView()
        mydt = New 员工档案表DataTable
        myda.Fill(mydt)
        '将表填入dataview
        myDataView = New DataView(mydt)
        '将DataView变量绑定控件，能记录位置
        bmdata = Me.BindingContext(myDataView)
    End Sub

    Private Sub 员工档案查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillDataSetAndView()
        DataGridView1.DataSource = mydt
    End Sub

    Private Sub btnSearch_Click(B