VFP 愛用者社區

[SUNUSER86]

一般在Grid,輸入客戶代碼,帶出客戶名稱,佔用兩個欄位,但因太多的欄位,一個螢幕怕寬度容納不下,故想如何縮減欄位,將客戶代碼及名稱合併,也就是輸入資料時是輸入代碼,顯示時是名稱,試過將Column下設2個Text
.mygrid.Column1.controlsource='gridfile.cust_id'
or
.mygrid.Column1.controlsource='customer.cust_name'
.mygrid.column1.Bound=.T. OR .F.
.mygrid.column1.sprase=.T. OR .F.
.mygrid.column1.CurrentControl='text1' or ' text2'
.mygrid.column1.text1.cotrolsource='gridfile.cust_id'
.mygrid.column1.text2.cotrolsource='customer.cust_name'
gridifile 及 customer有設 relation
試過各種組合方式就是沒有辦法,而且一但改變Column1.controlsource就整欄全部改變顯示,跟sprase及bound怎麼設定都沒影響,爬文很久都沒找到相關資料,我是那裡錯了,請各位高手指教

[goto-dream]

mygrid.column1.text1.cotrolsource='gridfile.cust_id'
為何不是??
mygrid.column1.text1.cotrolsource='customer.cust_id'

[SUNUSER86]

1.如果gridifile,customer是同一個檔案,在同一個grid下問題可能更複雜吧
2.實際情況就是兩個不同檔案
gridifile 及 customer有設 relation

[yctsai]

還是設成2欄位,其中一攔寬度設成零,比較簡明

[SUNUSER86]

還是設成2欄位,其中一攔寬度設成零,但問題還是沒解決

[syntech]

Simple is the Best.
此處無一物,何處惹塵埃.

你要的一定做得到,
只是不會是以你的方式做.
基本上,分成兩個COLUMN反而是最好的方式.

[SUNUSER86]

程式架構上,不論是修改資料或新增一筆資料我都是直接在GRID的表格裡進行作業,並沒有另開一列,所以以上兩位高手的指教,也許小弟愚鈍,並沒有悟出禪機

[yctsai]

a欄位是代碼,b欄位是名稱,a寬度0,b寬度正常,b打代碼,自動轉入a,並且b顯示名稱

[SUNUSER86]

謝謝指教
b打代碼,但b的controlsource='customer.cust_name' 是參考欄位,在新增資料時並沒有append
grid也沒有接受修改

[yctsai]

您的程式寫法,是我10年前的想法,需要改變才有未來..甚麼是relation老實說我壓根沒想過 spt是我唯一的做法

[SUNUSER86]

以下是我的體會
1.此問題跟有沒有relation沒有關係
2.當column的controlsource是參考欄位時,嘗試去作此一欄位的資料編輯是有疑問的
3.grid下gridfile.column1.controlsource,gridfile.column1.text1.controlsource這兩個controlsource的定義,尚有待釐清
我是在form下開一個textbox,然後計算出作用儲存格的位置,大小,再使用zorder來完成編輯的工作,但總感覺此乃一笨方法
發佈此一笨方法,是希望拋磚引玉,希望各位高手不吝指正

[syntech]

1. 和 relation 無關. 古老方法有古老方法的好處.
2. 我覺得樓主的原始想法基本上就是無聊.有些寫程式的就是喜歡在無聊的事情上鑽牛角尖. XD
3. column 中放多個物件是拿來 "切換" 用的,如果需要同時顯示多種物件 (text+buttom, text+text, text+ ole object,....) 請改用其他方式.

[yang1032]

將.mygrid.Column1.controlsource='gridifile.cust_OTHER' 指向另一欄位
當此欄位取得FOCUS 時 在WHEN 內 REPL gridifile.cust_OTHER WITH gridifile.cust_ID
輸入資料後 在 VALID 內 SEEK THIS.VALUE
IF FOUND()
REPL gridifile.cust_OTHER WITH customer.cust_name
ELSE
PUBLIC_REC=0 &&公用變數
DO FORM SEARCH_FORM &&另開啟一個SEARCH FORM
在SEARCH_FORM 找到 PUBLIC_REC=RECNO()
IF PUBLIC_REC >0
REPL gridifile.cust_OTHER WITH customer.cust_name
ELSE
MESSAGEBOX("找不到!!,請重新輸入")
RETURN .F.
ENDIF
ENDIF
RETURN .T.
gridifile 及 customer不必設 relation
Column下設1個Text 就可
簡單就好




.mygrid.Column1.controlsource='customer.cust_name'

[ericklin]

有個簡單的做法試試 使用CONTAINER
將 客戶代碼 TEXT1,客戶名 TEXT2 設好對應的欄位名稱 含包進去
整個CONTAINER COPY 並貼到GRID 的COLUMN 內就完成了
把CONTAINER當成 COLUMN 的一個控件

[DennisTsai]

偶然看到這個主題,本想回覆,發現已過近十年,終究沒有答案,這問題不難,不知還會有人需要答案嗎?