清空窗体所有控件内的数据，待解决

liaoqiang234

一个窗体有很多文本框，组合框，选择框
输入一条数据保存好，窗体所有控件数据都还在
而要在保存数据后，清空所有控件内的数据，只有这样使用 me.xx=""，很麻烦
有哪位高人知道代码可以清空窗体所有控件内的数据

roych

Sub Command6_Click()
For i = 0 To Me.Count - 1
Select Case Me.Controls.Item(i).ControlType
'清空文本框
Case 109
Me(i).Value = ""
'清空组合框
Case 111
Me(i).Value = ""
‘清空列表框，个人不建议清空列表框数据源。
Case 110
Me(i).RowSource = ""
End Select
Next i
End Sub

hjb016

正解!

liuxiangyucdpc

roych 发表于 2010-10-20 10:42
Sub Command6_Click()
For i = 0 To Me.Count - 1
Select Case Me.Controls.Item(i).ControlType

多谢多谢，搞定

wang1950317

学习！