VFP 愛用者社區

holycastle

你地好~~~ 我係一個對foxpro唔太認識的人...因為公司要我寫個program俾人入一d資料, 所以我就用之前form7學的foxpro寫了一個program

我完成後, 開這個form檔案run呢, 都冇出現問題. 但係我用build exe 之後, 開exe檔案0個時....我個program只係出現左1秒...佢就自動close左.....! ! !

之後, 我就build app檔案啦, 點知我開左個"主form"之後, 再click "主form"入面一個buttom開"次form"之後, 再係"次form"之面入左個value, 再click一個buttom, 想將"次form"個value放入"主form"的一個text value到...(係form檔案開都可以嫁) 不過唔知點解...你app檔案做lee個動作, 佢話找唔到個"主form"...

主form : basic
次form : search

我係"次form"個 buttom 打左句commond :
basic.text1.value = thisform.text1.value

唔知點解...佢話 object basic not found.....

唉...大家可唔可以幫下我呀...我要係deadline之前完成 lee 個 program 呀...
如果唔係我會俾老闆 ko 嫁... ><"

唔該大家 ! ! !

garfield · 發表於: 星期六五月 29, 2004 1:32 am 文章主題:

1. 去搜尋 read events
2. 去搜尋表單和表單之間要如何傳值

catjoke · 發表於: 星期六五月 29, 2004 9:58 am 文章主題:

KO 硬... ~_~

甚麼主 form!? 使用 formset 嗎!?

Thisformset.Basic.text1.value = thisform.text1.value

獨立 form 就要另外處理....

FOR iX = 1 TO _SCREEN.FORMCOUNT
IF _SCREEN.FORMS(iX).NAME = [Basic]
_SCREEN.FORMS(iX).text1.value = thisform.text1.value
ENDIF
ENDFOR

就算給了解決程式你看, 看得明白才講吧...

an1060 · 發表於: 星期六五月 29, 2004 4:58 pm 文章主題:

如果我沒猜錯, 應該是沒有設定READ EVENTS

參考一下
http://vfp.sunyear.com.tw/viewtopic.php?t=1200&highlight=read+event
下次請自己用搜尋方式查一下

holycastle · 發表於: 星期一五月 31, 2004 12:19 am 文章主題:

oh~~~ THX 哂大家呀~~~ 原來要用read events俾windows read 個 program先可以開到...
依家可以用啦~~~ thx 哂~~~~

catjoke · 發表於: 星期一五月 31, 2004 11:16 am 文章主題:

其實 Read Event 是等待用家使用....
直到 Clear Event 才離開系統...

你寫的物件只是如寫了 CmdSave.Click, 不等用家使用, 何來 click..

holycastle · 發表於: 星期一六月 07, 2004 8:51 pm 文章主題:

獨立 form 就要另外處理....

FOR iX = 1 TO _SCREEN.FORMCOUNT
IF _SCREEN.FORMS(iX).NAME = [Basic]
_SCREEN.FORMS(iX).text1.value = thisform.text1.value
ENDIF
ENDFOR

就算給了解決程式你看, 看得明白才講吧...[/quote]

Confused

唉...如果我開多2個獨立form(a1, a2, a3), 我a3 d value 就去唔到 a2了...
為什麼的.....救救我呀~~~~~

仲有...上面d command....點解同點用嫁....plx help~~~

catjoke · 發表於: 星期二六月 08, 2004 12:22 pm 文章主題:

_SCREEN 是 VFP 主視窗.
FORMCOUNT 是 FORM 的總數
FORMS(iX)... 是每一個 FORM..

現在用最簡單的 FOR..ENDFOR 找到你要的 Basic Form..
然後才把數據傳回去...

你如果連 Basic 的 Form 叫甚麼名字也不知道..... `-`

holycastle · 發表於: 星期二六月 08, 2004 5:30 pm 文章主題:

oh....thx 你教了我

但係...我已經照住你個方法做嫁啦...但係點解d value都係唔入唔到gei...

FOR iX = 1 TO _SCREEN.FORMCOUNT
IF _SCREEN.FORMS(iX).NAME = [MAIN1]
FORMS(iX).text1.value =ALLTRIM(THISFORM.TEXT1.Value)
ENDIF
ENDFOR

USE SEARCH
SET INDEX TO C

SEEK SEARCH_NO
IF FOUND()
FOR iX = 1 TO _SCREEN.FORMCOUNT
IF _SCREEN.FORMS(iX).NAME = [MAIN1]
_SCREEN.FORMS(iX).TEXT2.VALUE=SUPPLIER
_SCREEN.FORMS(iX).TEXT3.VALUE=GRP
_SCREEN.FORMS(iX).TEXT4.VALUE=PO_NO
_SCREEN.FORMS(iX).TEXT5.VALUE=ORDER_NO
_SCREEN.FORMS(iX).TEXT6.VALUE=PN
_SCREEN.FORMS(iX).TEXT7.VALUE=PACKAGE
_SCREEN.FORMS(iX).TEXT8.VALUE=PO_AMT
_SCREEN.FORMS(iX).TEXT9.VALUE=DAT2
_SCREEN.FORMS(iX).TEXT10.VALUE=MATERIAL_N
_SCREEN.FORMS(iX).TEXT11.VALUE=AMOUNT
_SCREEN.FORMS(iX).TEXT12.VALUE=STOCK_AMT
_SCREEN.FORMS(iX).TEXT13.VALUE=ACCUM_AMT
ENDIF
ENDFOR
ENDIF

救教救教~~~~

深山 · 註冊時間: 2004-06-12 文章: 1 第 10 樓

用程式當主程式，不要用form當主程式
程式中

DO FORM main
READ EVENTS

就可以了