根据条件查找另一个数据表的数据并在已创建的窗体中显示

dyp1610

加红色的一句就行了
Sub 按钮2_Click()
Dim Sql_str As String
On Error Resume Next
    If IsEmpty(Range("D14").Value) Then
        MsgBox ("Please input your employee number!")
        End
    Else
        Sql_str = "select 工号,姓名,Name,工作起始,上年剩余年假,当年年假天数,当年已用年假,剩余可用年假,年假使用情况2016 from [2016$] where 工号=" & Range("D14").Value & ""
        Call 查询(Sql_str)
    End If
    If arr Is Nothing Then MsgBox "未查询到该员工，请检查工号": End
    With UserForm1
        .TextBox1 = arr(1, 0)
        .TextBox2 = arr(2, 0)
        .TextBox3 = arr(0, 0)
        .TextBox4 = arr(3, 0)
        .TextBox5 = arr(4, 0)
        .TextBox6 = arr(5, 0)
        .TextBox7 = arr(6, 0)
        .TextBox8 = arr(7, 0)
        .TextBox9 = arr(8, 0)
        .Show
    End With
End Sub

seusbc

看起来高大上
我是小白，我也要学

enllun

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈