如何用一按钮清除窗体上所有文本框中的内容……

wangxin1978

方便把你的程序传上来，我来修改。

wangxin1978

1、2、写在“更新类别”的进入事件；
3、写在“更新类别”的更新后事件。

或者1、也可以写在每一个文本框的更新后事件，结果和上述有所不同。

wangxin1978

1、判断每个文本框的值的情况
dim ctrl as control
dim flag as string
flag="0"'表示文本框都是空的
for each ctrl in me.controls
if typeof ctrl is textbox then
    if nz(ctrl.value,"")<>"" then
        flag="1"'表示文本框至少有一个不是空的
    end if
end if
next
2、更新类别的控制
if flag="1" then
    更新类别.enable=true
else
    更新类别.enable=false
end if
3、确认更新的控制
if nz(更新类别,"")<>"" then
    确认更新.enable=true
else
    确认更新.enable=false
end if

huanghai

'也可以历遍控件的办法：
'代码如下：
dim ctrl as control
for each ctrl in me.controls
    if typeof ctrl is textbox then
        ctrl.value=""
    end if
next

wangxin1978

1、在文本框中循环，将文本框的value设置为null即可，也可以写16个语句；
2、在类别的更新后事件里判断，是否能够更新，设置按钮的enable属性。