小编pra*_*tes的帖子

我想循环遍历表单上的所有UNBOUND控件并清除其数据或重置其值.我有文本框,组合框和复选框.每次我尝试这样的事情:

Dim ctl As Control
    For Each ctl In Me.Controls
        If IsNull(ctl.ControlSource) Then
            ctl.Value = Nothing
        End If
    Next ctl

我收到运行时错误说:

438此对象不支持此属性或方法.