标题: 如何用一按钮清除窗体上所有文本框中的内容…… [打印本页] 作者: aydl1014 时间: 2002-11-29 01:04
提示: 作者被禁止或删除 内容自动屏蔽作者: wangxin1978 时间: 2002-11-29 01:26
1、在文本框中循环，将文本框的value设置为null即可，也可以写16个语句；
2、在类别的更新后事件里判断，是否能够更新，设置按钮的enable属性。作者: huanghai 时间: 2002-11-29 03:18
'也可以历遍控件的办法：
'代码如下：
dim ctrl as control
for each ctrl in me.controls
if typeof ctrl is textbox then
ctrl.value=""
end if
next作者: aydl1014 时间: 2002-11-29 06:17
提示: 作者被禁止或删除 内容自动屏蔽作者: wangxin1978 时间: 2002-11-29 17:00
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作者: aydl1014 时间: 2002-12-1 07:20
提示: 作者被禁止或删除 内容自动屏蔽作者: wangxin1978 时间: 2002-12-1 21:12
1、2、写在“更新类别”的进入事件；
3、写在“更新类别”的更新后事件。