VBA窗体复合框控件选定内容后，后面控件自动出现数据库内容

bjzll

如上传例子，我有一个数据库，现在需要单一的打印卡片，我的目的是当窗体弹出后，我选择了姓名后，后面相应控件能相应出现数据库的内容并赋值给“卡片”工作表中相应的单元格！

zhaogang1960

请测试：

1. 
   
2. Dim arr, brr(1 To 4, 1 To 1)
   
3. Private Sub UserForm_Initialize()
   
4.     Dim brr$(), i&
   
5.     arr = Sheets("数据库").Range("A1").CurrentRegion
   
6.     ReDim brr(2 To UBound(arr))
   
7.     For i = 2 To UBound(arr)
   
8.         brr(i) = arr(i, 1)
   
9.     Next
   
10.     With ComboBox1
    
11.         .RowSource = ""
    
12.         .List = brr
    
13.     End With
    
14. End Sub
    
15. Private Sub ComboBox1_Change()
    
16.     Dim i&, j&
    
17.     i = ComboBox1.ListIndex + 2
    
18.     If i = 1 Then Exit Sub
    
19.     brr(1, 1) = arr(i, 1)
    
20.     brr(2, 1) = arr(i, 3)
    
21.     brr(3, 1) = arr(i, 2)
    
22.     brr(4, 1) = arr(i, 4)
    
23.     For j = 2 To 4
    
24.         Me.Controls("Label" & j - 1).Caption = brr(j, 1)
    
25.     Next
    
26.     Sheets("卡片").Range("B1:B4") = brr
    
27. End Sub
    
28. 
    

复制代码

zhaogang1960

请看附件
例子.rar (16.63 KB, 下载次数: 618)

2013-2-28 00:17 上传

点击文件名下载附件

sir5

zhaogang1960 发表于 2013-2-28 00:17
请看附件

老师您好！打扰了。想请您帮个忙。http://club.excelhome.net/thread-1438759-1-1.html
谢谢