全部控件重置有什么指令？

niwj

要设置窗体中的所有控件＝NULL ，有没有方便一点的呢？现在一个一个写太麻烦了！

一点通

程序只是写一次,输入数据的人每天都要输入哪不是更麻烦?

Grant

Private Sub clearText()
'清空窗体中文本框和组和框中的内容
    Dim Ctrl As Control
    For Each Ctrl In Me.Form.Controls
        If TypeOf Ctrl Is TextBox Or TypeOf Ctrl Is ComboBox Then
            Ctrl = Null
            DoEvents
        End If
    Next
    Exit Sub
End Sub

用一个循环吧.

andymark

数据量不大,不需要DoEvents