VFP 愛用者社區

q1q2q3 · 註冊時間: 2007-08-23 文章: 6 第 1 樓

本人已搜尋了精華區,但未能找到結果
combo box 用人手輪入5 欄資料或引入資料表, 分別如1.入口2. 出口3. 貨量,4. 單位,5. 國家

問題1.
當按下拉的時候, 選其中一欄如國家的名稱,想內裏文字的傳入文字框, 如何做到 ?

問題 2.
怎樣從資料表中搜查表格中沒有此資料,可以詢求用家自動家入 ?

USE HPC && 資料表搜查是否存在

&& 比較組合框內的文字與資料表的欄位是否相同
LOCATE FOR ALLTRIM(NAME) = ALLTRIM(THISFORM.COMBO1.VALUE)

&& 如果沒有, 彈出字眼, 是否加入
IF !FOUND() AND ALLTRIM(NAME) = ALLTRIM(THISFORM.COMBO1.VALUE)

messagebox "Can u add it"
ENDIF

以上的程式不能新增字眼在組合框中

問題 3. messagebox 怎樣用的 ?

小弟不勝勞煩各位高手

謝謝

garfield · 發表於: 星期三十月 17, 2007 3:10 pm 文章主題:

1.
thisform.text1.value = THISFORM.COMBO1.displayVALUE

2.
THISFORM.COMBO1.VALUE
改用
THISFORM.COMBO1.displayVALUE

臨時加入 combo 清單
THISFORM.COMBO1.additem('這是新的')

3.messagebox( '訊息...' ) 在help 裡說的很清楚, 沒什麼特別要注意的.