请问!非绑定控件的刷新!

徐阿鹏

在整个窗体刷新的话用什么代码可以把该窗体上的所有控件里的数据清空!

李寻欢

Dim ctl As Control
For Each ctl In Me.Controls
    ctl=null
Next ctl

eio

错误438！

李寻欢

Dim ctl As Control
For Each ctl In Me.Controls
'如果控件类型是文本框或组合框
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
    ctl = Null
End If
Next ctl

Roadbeg

个人看法
相信 徐阿鹏 朋友只是希望将个别控件的值清空吧,所有
不建议使用 for each 方法.
中需要一个一个的赋值控件就行了
另,对于不同格式的文本框,清除内容通常不是置其值为 null,比如,文本就是 "" ,数值就是 0 等等(某些格式,置其值为空,会发生错误)
比如 a.value ="",b.value="",c.value=0,d.value=false

徐阿鹏

谢谢！我会了！谢谢各位的热心帮助！