上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
sthuang66
註冊時間: 2014-04-27 文章: 171
第 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 文章主題: 台灣地址 後學的作法 |
|
|
台灣地址 後學的作法 |
|
回頂端 |
|
|
sthuang66
註冊時間: 2014-04-27 文章: 171
第 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 |
|
回頂端 |
|
|
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 樓
|
|
回頂端 |
|
|
|