效果及好的清空方法

Hello，Everyone！

大家好久，好久，好久不见，真是想死大家了！

今天给大家分享一个小示例。

我们在开发过程中，有这样一个背景，大家做了一个新增窗口，在窗体中输入各种数据，接下去点击保存按钮，然后需要添加新的数据，需要点击清空按钮，那清空按钮的单击事件里我们会去写me!XXX=Null或者me!XXX=""，类似这样的代码，如果窗体中有N个控件，那就需要写N个，这样是不是很是麻烦，但做为新时代的后浪，我们是不会这样写的。

SO，上示例！

第一步还是按我们的老规矩，建一个窗体，然后我们在窗体放上N个文本框、组合框、复选框、单选框，类似下图，放的越多越好，也不用放的太整齐，然后大家可以在控件上输入一些数据。当然了不要忘记放一个清空按钮。

第二步就是写代码！代码给大家写好了，大家直接复制就可以了。原理很简单，循环当前窗体中的所有控件，然后判断一下是复选框就让选中为false,如果不是那就为null。

清空按钮单击事件

 1On Error Resume Next
 2    Dim Ctl As Control
 3
 4    For Each Ctl In Me
 5        Select Case Ctl.ControlType
 6        Case acCheckBox
 7            Ctl.Value = False
 8        Case Else
 9            Ctl.Value = Null
10        End Select
11    Next

 

最后一步就是测试，代码写好了要多动手测试。

好了，大家快去试一下吧！