Office中国论坛/Access中国论坛

标题: [求助]遍历窗体上的组合框 [打印本页]

作者: 阿丰 时间: 2004-2-14 04:06
标题: [求助]遍历窗体上的组合框
在窗体上放置了多个组合框，如何快速地把名称不是“组合框1”的其它组合框的内容清除并设成不可用状态？

作者: zyz 时间: 2004-2-14 05:06
Private Sub Form_Load()
Dim ctl As Control

For Each ctl In Me.Controls
      If TypeOf ctl Is ComboBox Then
         If ctl.Name <> "组合框1" Then
            ctl.Value = ""
            ctl.Enabled = False
         End If
      End If
Next
End Sub

作者: bloom 时间: 2004-3-25 23:48
为什么我用这段代码会出错？
不支持该属性或方法：ctl.Enabled = False

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)