当标签获得焦点后，相应标签显示对应“使用”内容

Henry D. Sy

1. Dim ctl As Control
   
2.     Dim str As String
   
3.     For Each ctl In Me.Controls
   
4.         If TypeOf ctl Is Label Then
   
5.             str = DLookup("情况", "表1", "序号=" & ctl.Caption)
   
6.             If str = "使用" Then
   
7.                 With ctl
   
8.                     .BackStyle = 1
   
9.                     .BackColor = 255
   
10.                 End With
    
11.             End If
    
12.         End If
    
13.     Next

复制代码