Question

vfp一次性刷新表单的文本控件

vfp表单上有20个文本控件，全部刷新一次。怎么写代码？
单写20次的刷新就不要啦。想用简单的语句循环完成
有的情况下只需要刷新文本控件，所以求循环语句刷新全部的文本控件。

Answer 1

最简单的是用 Thisform.refresh 就可以刷新所有内容, 当然也可以刷新文本, 一般来说, 这样不会花费太多内存, 对于一般的小程序是无须考虑的, VFP的特点就是运行速度快.

如果你用循环, 可以用下面的语句

For each oTxt in thisform.Controls
if Proper(oTxt.Baseclass) = "Textbox"
oTxt.REFRESH
Endif
Endfor

Derek Shu

Answer 2

FOR I=1 TO THISFORM.CONTROLCOUNT
IF THISFORM.CONTROLS(I).CLASS="Textbox"
THISFORM.CONTROLS(I).REFRESH
ENDIF
ENDFOR

Answer 3

thisform.SetAll("value", "", "text")