程序代码：

    Sub ShowEmpInfo()
        Me.hr_nanme.Text = CurEmp.Emp_Name
        Me.hr_sex.Text = CurEmp.Sex
        Me.hr_num.Text = CurEmp.Emp_Num
        Me.hr_address.Text = CurEmp.Emp_Add
        Me.hr_intime.Text = CurEmp.Emp_intime
        Me.hr_outtime.Text = CurEmp.Emp_outtime
        Me.hr_memo.Text = CurEmp.Emp_Memo
    End sub

 


窗体有个listbox,需要加载 员工表 中的 员工姓名    Private Sub Frm_hr_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   LBUserName.Items.Clear()
        Dim SQLString As String = "SELECT * FROM 员工表"
        Dim MSG As String = ""
        '执行SQL查询语句
        Dim DTable As DataTable = DBoperation.DBoperate(SQLString, MSG)
        Dim UserRow As DataRow
        For Each UserRow In DTable.Rows
            LBUserName.Items.Add(UserRow("员工姓名"))
            LBUserName.ValueMember = "员工ID"
            LBUserName.SelectedValue = "员工ID"
            'LBUserName.DisplayMember = "员工姓名"
        Next
    End Sub


选择员工姓名时，窗体其他标签的内容读取Access表的信息显示

程序代码：

    Private Sub LBUserName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBUserName.SelectedIndexChanged
        If LBUserName.ValueMember = "" Then
            CurEmp.Init()
        End If
        CurEmp.GetInfo(CInt(LBUserName.SelectedValue))
        ShowEmpInfo()
    End Sub