 |
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
iddqd69
註冊時間: 2004-05-30 文章: 50
第 1 樓
|
發表於: 星期日 五月 30, 2004 1:26 pm 文章主題: 請問如何判定null值則停止執行 |
|
|
我以前好像有學過 現在記不起來怎麼寫程式碼了
我想設一個表單可以輸入"委外廠商編號","數量","單位"的文字輸入方塊..
還有一個按扭確定輸入..
想請問前輩們按鈕的"click"程式碼要怎麼寫..
使當使用者在"單位"與"數量"沒輸入數值(null)時停止執行..
跳回表單..
有點小急..麻煩指教一下..
謝謝.. |
|
回頂端 |
|
 |
an1060
註冊時間: 2004-02-29 文章: 48 來自: 高雄
第 2 樓
|
發表於: 星期日 五月 30, 2004 4:16 pm 文章主題: |
|
|
不明白你的CLICK事件要寫些什麼東東
沒輸入資料不代表NULL
ISNULL() 是否NULL值
EMPTY() 是否空值 |
|
回頂端 |
|
 |
iddqd69
註冊時間: 2004-05-30 文章: 50
第 3 樓
|
發表於: 星期日 五月 30, 2004 5:06 pm 文章主題: |
|
|
an1060 寫到: | 不明白你的CLICK事件要寫些什麼東東
沒輸入資料不代表NULL
ISNULL() 是否NULL值
EMPTY() 是否空值 |
有一個文字輸入方塊..controlsource為A..
click事件: 若A沒有輸入資料的話=messagebox("請輸入資料",64,"訊息視窗")
並跳回表單..重新輸入..
有輸入資料的話則將a的值寫入資料表格data內的Q欄位..
當資料寫入資料表格內後回到表單畫面..且將剛才輸入的A值清除..
大概就是這樣子..麻煩指教一下..
謝謝~ |
|
回頂端 |
|
 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 4 樓
|
發表於: 星期日 五月 30, 2004 5:29 pm 文章主題: |
|
|
大概是這樣吧!!
代碼: |
IF ALLTRIM(THISFORM.廠商代號.value)==""
messagebox("請輸入資料",64,"訊息視窗")
THISFORM.廠商代號.SETFOCUS()
RETURN
ENDIF
IF THISFORM.數量.value<=0
messagebox("請輸入資料",64,"訊息視窗")
THISFORM.數量.SETFOCUS()
RETURN
ENDIF
IF ALLTRIM(THISFORM.單位.value)==""
messagebox("請輸入資料",64,"訊息視窗")
THISFORM.單位.SETFOCUS()
RETURN
ENDIF
SELECT 委外單
REPLACE 廠商編號 WITH THISFORM.廠商編號.VALUE
REPLACE 單位 WITH THISFORM.單位.VALUE
REPLACE 數量 WITH THISFORM.數量.VALUE
SELECT 委外單
APPEND BLANK
| [/code] _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
 |
iddqd69
註冊時間: 2004-05-30 文章: 50
第 5 樓
|
發表於: 星期日 五月 30, 2004 6:27 pm 文章主題: |
|
|
Ruey 寫到: | 大概是這樣吧!!
代碼: |
IF ALLTRIM(THISFORM.廠商代號.value)==""
messagebox("請輸入資料",64,"訊息視窗")
THISFORM.廠商代號.SETFOCUS()
RETURN
ENDIF
IF THISFORM.數量.value<=0
messagebox("請輸入資料",64,"訊息視窗")
THISFORM.數量.SETFOCUS()
RETURN
ENDIF
IF ALLTRIM(THISFORM.單位.value)==""
messagebox("請輸入資料",64,"訊息視窗")
THISFORM.單位.SETFOCUS()
RETURN
ENDIF
SELECT 委外單
REPLACE 廠商編號 WITH THISFORM.廠商編號.VALUE
REPLACE 單位 WITH THISFORM.單位.VALUE
REPLACE 數量 WITH THISFORM.數量.VALUE
SELECT 委外單
APPEND BLANK
| [/code] |
那如果儲存完資料後要把所有表單內的值清空的話..
使用這程式碼可以嗎?
thisform.setall("Value","","textbox")
謝謝.. |
|
回頂端 |
|
 |
an1060
註冊時間: 2004-02-29 文章: 48 來自: 高雄
第 6 樓
|
發表於: 星期日 五月 30, 2004 7:37 pm 文章主題: |
|
|
是可以,但這樣子數量那一個物件傳回之值會變成文字型態,你得再轉成數值,
也就是一開始你就得設為文字型態
IF ALLTRIM(THISFORM.數量.value) == ""
messagebox("請輸入資料",64,"訊息視窗")
THISFORM.數量.SETFOCUS()
RETURN
ENDIF
SELECT 委外單
REPLACE 數量 WITH VAL(THISFORM.數量.VALUE ) |
|
回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|