VFP 愛用者社區

zfgg · 註冊時間: 2004-05-31 文章: 179 來自: 中国 第 1 樓

执行一个表单，用的是:“do form 表单名 ”。在一个表单中，加入了一个按钮(command1),它的click event 代码是: "thisform.refresh" 。想让它重新执行一次:“do form 表单名 ”的结果。但是不能实现！请教如何写代码？

zfgg · 發表於: 星期一十一月 08, 2004 8:42 am 文章主題:

请哪位高手教我一下阿！是不是非要在refresh事件中再写某些刷新代码类的

elleryq · 註冊時間: 2007-06-21 文章: 768 第 3 樓

我想是因為沒人看懂你的問題
所以才沒回覆的

老實說....我也看不太懂......

zfgg · 發表於: 星期一十一月 08, 2004 11:34 am 文章主題:

有一个表单，上面有editbox,combobox,spinner等１０余个控件。还有二个按钮，一个是‘确定’，一个是‘刷新’。执行这个表单时，上面的控件值是空的，在各个控件输入值后按‘确定’按钮，各个控件的值加入到数据库中。我想用刷新的方法使表单的状态回到启动时的一样（即各个控件的值是空的）。‘刷新’按钮事件click代码是: "thisform.refresh" 。但是不能实现！请教如何做？

朱育興 · 發表於: 星期一十一月 08, 2004 12:37 pm 文章主題:

不清楚你的 Form 下到底有多少種類及數目的控制項
又 ComboBox 不知你是用 Value 或 DisplayValue
所以才以下列方式來寫(只針對 Editbox,ComboBox,Spinner)

『更新』按鈕 Click 事件程式碼：

zfgg · 發表於: 星期一十一月 08, 2004 4:46 pm 文章主題:

感谢朱老师的指导。我的表单有八个EDITBOX，五个COMBOBOX，用的是DisplayValue。我试了一下，好象还是不行。运行到ThisForm.Controls 时出错。报告不认识Controls。
我用的代码如下：
FOR i = 1 to ThisForm.Controls
IF INLIST(UPPER(M_oSubControl.BaseClass),"EDITBOX","COMBOBOX","SPINNER")
M_oSubControl.Value = ""
IF UPPER(M_oSubControl.BaseClass) = "COMBOBOX"
M_oSubControl.DisplayValue = ""
ENDIF
ENDIF
ENDFOR
ThisForm.Refresh

朱育興 · 發表於: 星期一十一月 08, 2004 4:52 pm 文章主題:

喂 ~~ 抄人家的代碼也得抄對才行啊，你把眼睛再睜大點看，看你那裏沒抄對

zfgg · 發表於: 星期一十一月 08, 2004 5:23 pm 文章主題:

FOX 不认识FOR EACH IN ThisForm.Controls ，我才改为

FOR i=1 to ThisForm.Controls 。我对ＦＯＸ的基类还不太熟悉，在下不齿下问，恳请朱老师指教。

朱育興 · 發表於: 星期二十一月 09, 2004 2:44 am 文章主題:

FOR EACH ... ENDFOR 在 6.0 版就有了(但從第幾版開始才有我就不知道了)

你用的 FOX 到底是哪一版的 (不會是 DOS 版吧，如果是我就幫不了，因為我已經忘了 DOS 版的寫法了)

既然你的 FOR EACH 不能用 (還是很好奇你是哪一版的)，那就只好用 FOR ...ENDFOR 命令了

zfgg · 發表於: 星期二十一月 09, 2004 9:26 am 文章主題:

谢谢朱老师！已经搞好了。我用的是vfp98 6.0版。因9.0不带安装向导，不习惯。您能否推荐我们这一级水平的，用什么版本较好？

bin1x · 註冊時間: 2004-08-27 文章: 462 第 11 樓

在什麼樣的實務情況
會用到刷新控制項
個人倒是很好奇地想知道
謝謝