你可以把文本框的名字用有规则的如text1,text2,text3,text4.......；然后你写一段语句就可以清除了。假设共有30个文本框:for i=1 to 30 tx="thisform.text"+allt(str(i)) &tx..value=""endf
