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

八两金_2016

求助各位前辈，我有一张基础数据表是单位所有员工的年假信息，然后我做了一个查询界面并创建了一个用户窗体，我想根据数据表中的title来查询相关人员的年假信息并在用户窗体中显示，求各位前辈指点！！！不胜感激！！！

八两金_2016

补充一句：是根据单位员工的员工号做索引来查询其相关的年假信息

dyp1610

1. Dim arr
   
2. Sub 按钮2_Click()
   
3. Dim Sql_str As String
   
4.     If IsEmpty(Range("D14").Value) Then
   
5.         MsgBox ("Please input your employee number!")
   
6.         End
   
7.     Else
   
8.         Sql_str = "select 工号,姓名,Name,工作起始,上年剩余年假,当年年假天数,当年已用年假,剩余可用年假,年假使用情况2016 from [2016$] where 工号=" & Range("D14").Value & ""
   
9.         Call 查询(Sql_str)
   
10.     End If
    
11.     With UserForm1
    
12.         .TextBox1 = arr(1, 0)
    
13.         .TextBox2 = arr(2, 0)
    
14.         .TextBox3 = arr(0, 0)
    
15.         .TextBox4 = arr(3, 0)
    
16.         .TextBox5 = arr(4, 0)
    
17.         .TextBox6 = arr(5, 0)
    
18.         .TextBox7 = arr(6, 0)
    
19.         .TextBox8 = arr(7, 0)
    
20.         .TextBox9 = arr(8, 0)
    
21.         .Show
    
22.     End With
    
23. End Sub
    
24. 
    
25. Sub 查询(sql As String)
    
26.     Dim cnn As Object, rs As Object, i%, j%
    
27.     Set cnn = CreateObject("ADODB.Connection")
    
28.     Set rs = CreateObject("ADODB.Recordset")
    
29.    
    
30.     cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\年假查询2016基础数据.xlsx"
    
31.     rs.Open sql, cnn
    
32.    
    
33.     arr = rs.getrows
    
34.    
    
35.     rs.Close
    
36.     cnn.Close
    
37.     Set rs = Nothing
    
38.     Set cnn = Nothing
    
39. End Sub

复制代码

八两金_2016

dyp1610 发表于 2016-3-30 12:25

您好前辈，我试了，好像不行，报错说是
在End Sub,End Funcation或End属性后面只能出现注释。

八两金_2016

我有改了下，最后它提示

    cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties=Excel 12.0;Data Source="C:\Users\david.li.OFTJ\Desktop\年假查询2016基础数据.xlsx""
编译错误
缺少：语句结束

dyp1610

给你附件，我的运行正常

八两金_2016

多谢前辈，我自己改了改，好像行了，太感谢了，谢谢您。

八两金_2016

dyp1610 发表于 2016-3-30 13:44
给你附件，我的运行正常

谢谢您，另外还想问下您如何判断如果输入的员工号是错误的时的判断？

八两金_2016

前辈，我的意思是说当输入错误的员工号时，表就报错了，怎么才能加上判断来避免这个问题啊？

八两金_2016

dyp1610 发表于 2016-3-30 13:44
给你附件，我的运行正常

前辈，可不可以再加个if来判断当工号输入错误的时候给一个msgbox信息，如果输入正确的话显示结果？