请高手指导，怎么样在窗体里锁定字段的问题。

Henry D. Sy

帮你写成过程，使另一个按钮也可以调用

1. Private Sub Form_Current()
   
2.     LockCtl False
   
3. End Sub
   
4. 
   
5. Private Sub 命令168_Click()
   
6.     LockCtl True, "08"
   
7. End Sub
   
8. 
   
9. Sub LockCtl(bln As Boolean, Optional str As String)
   
10.     Dim ctl As Control
    
11.     For Each ctl In Me.Controls
    
12.         If ctl.ControlType = acTextBox Then
    
13.             If Len(str) <> 0 Then
    
14.                 If Left(ctl.ControlSource, 2) = str Then
    
15.                     ctl.Locked = bln
    
16.                 End If
    
17.             Else
    
18.                 ctl.Locked = bln
    
19.             End If
    
20.         End If
    
21.     Next
    
22. End Sub

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-8 23:03 编辑 ]

tmtony

好人做到底

fjchan

太谢谢了

friendship

高水平！