VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

LISTBOX問題請教

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
sthuang66



註冊時間: 2014-04-27
文章: 166


第 1 樓

發表發表於: 星期一 一月 09, 2017 3:09 am    文章主題: LISTBOX問題請教 引言回覆

最近在練習LISTBOX控件想做一個住址輸入FORM,主要是將兩個listbox內容傳給textbox! 如a.jpg圖示
list1(縣市) 的 click 代碼是
PUBLIC MYSTRING
MYSTRING = ''
FOR COUNTER = 1 TO THISFORM.LIST1.LISTCOUNT
IF THISFORM.LIST1.SELECTED(COUNTER)
MYSTRING = MYSTRING+THISFORM.LIST1.LIST(COUNTER)
ENDIF
ENDFOR
list2(鄉鎮) 的 click 代碼是
PUBLIC MYSTRING1
MYSTRING1 = ''
FOR COUNTER = 1 TO THISFORM.LIST2.LISTCOUNT
IF THISFORM.LIST2.SELECTED(COUNTER)
MYSTRING1 = MYSTRING1+THISFORM.LIST2.LIST(COUNTER)
ENDIF
ENDFOR
textbox 的 click 代碼是
THISFORM.TEXT1.Value=MYSTRING+MYSTRING1
-----------------------------------------------------------------------------
第一個問題是
只是當值傳給textbox後滑鼠遊標就一直留在最左邊!是否有什麼方法落在最右邊方便後面手動輸入道路名或是門牌號碼!
我有想過CHR(13)+chr(10)但是我功力不好搞不定
第二個問題是
我縣市鄉鎮的兩個listbox內容是利用rowsource type=3 我有個town1的dbf檔如T.jpg圖示
在list1 中我rowsource 代碼
SELECT DISTINCT 縣市 FROM TOWN1 INTO CURSOR TMP
但是list2 我想利用選擇list1的內容例如list1選台北市, list2顯示就是台北的鄉鎮區
在list2 中我rowsource 代碼
SELECT 鄉鎮 FROM TOWN1 where 縣市=MYSTRING INTO CURSOR TT
結果非我想像的!
GOOGLE很久還是沒答案!請教各位高手!謝謝
回頂端
檢視會員個人資料 發送私人訊息
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 2 樓

發表發表於: 星期一 一月 09, 2017 9:41 am    文章主題: 台灣地址 後學的作法 引言回覆

台灣地址 後學的作法
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
sthuang66



註冊時間: 2014-04-27
文章: 166


第 3 樓

發表發表於: 星期一 一月 09, 2017 5:24 pm    文章主題: 引言回覆

謝謝
Patrick Wu指導!你寫的更完整!是用combobox!我功力較差!不過我會花著時間消化!
回頂端
檢視會員個人資料 發送私人訊息
211482



註冊時間: 2003-07-15
文章: 53


第 4 樓

發表發表於: 星期一 一月 09, 2017 11:09 pm    文章主題: 引言回覆

問題一
KEYBOARD '{END}'
回頂端
檢視會員個人資料 發送私人訊息
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 5 樓

發表發表於: 星期二 一月 10, 2017 10:47 am    文章主題: 引言回覆

回 211482 先進
後學的構思是 辦公大樓 辦公室很多區間 A室 B室 . . . 10A 10B . . . . 之一 之二 ....
如有 "之?" 可 DBLCLICK "室" 會自動給 "之" 這個字 之後游標移到 "之"的後面 讓使用者 方便輸入 A B 1 2 . . . .
或許 211482 先進 有更好的構思或寫法 指導一下後學
同時也感謝 211482 先進 之前的指導

IF AT("之" , THISFORM.ADD_ROM.VALUE) = 0
THISFORM.ADD_ROM.VALUE = "之" + TRIM(THISFORM.ADD_ROM.VALUE)
THISFORM.室.ENABLED = .F.
THISFORM.REFRESH()
KEYBOARD "{END}"
ENDIF
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
perry



註冊時間: 2014-07-20
文章: 203


第 6 樓

發表發表於: 星期二 一月 10, 2017 10:51 am    文章主題: 引言回覆

建議您寫1個選取專用表單,用細明體或標楷體
方便計算 Height & Width 自動調整物件大小!!

有1個 TextBox 及1 個 ListBox
在 textbox.InteractiveChange.even
loca for at(allt(this.value),qry_field)>0
thisform.list1.listindex=iif(found(),recno(),1)
thisform.list1.refresh

list.click.even
thisform.text1.value=qry_field

結束表單時 retu 選取值
如何傳回選取值,方法很多.
do form mysele with qry_dbf,qry_field1 to pa_var

=mmysele(qry_dbf,qry_field1)

proc mmysele
lpar q_dbf,q_field
sele (Q_DBF)
do form mysele
retu msele_var

只要設 CommandButton 讓使者點選啟動
不用每個程式去定義.可做到以關鍵字搜尋,
唯一不方便的是必須結束選取表單,
才能回原表單繼續作業!!

個人很懶,所以都寫一些萬用功能來使用,
不必每個程式都要寫或複製一次@@

有問題要改也是改1個就好= ='''
回頂端
檢視會員個人資料 發送私人訊息
211482



註冊時間: 2003-07-15
文章: 53


第 7 樓

發表發表於: 星期二 一月 10, 2017 11:24 pm    文章主題: 引言回覆

請參考
http://vfp.sunyear.com.tw/viewtopic.php?t=1538&start=0&postdays=0&postorder=asc&highlight=address
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作