清空窗體所有控件內(nèi)的數(shù)據(jù)，待解決

liaoqiang234

一個(gè)窗體有很多文本框，組合框，選擇框
輸入一條數(shù)據(jù)保存好，窗體所有控件數(shù)據(jù)都還在
而要在保存數(shù)據(jù)后，清空所有控件內(nèi)的數(shù)據(jù)，只有這樣使用 me.xx=""，很麻煩
有哪位高人知道代碼可以清空窗體所有控件內(nèi)的數(shù)據(jù)

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 = ""
‘清空列表框，個(gè)人不建議清空列表框數(shù)據(jù)源。
Case 110
Me(i).RowSource = ""
End Select
Next i
End Sub

hjb016

正解!

liuxiangyucdpc

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

多謝多謝，搞定

wang1950317

學(xué)習(xí)！