VFP 愛用者社區

clmao · 註冊時間: 2006-04-15 文章: 57 第 1 樓

請問各位大大：
1.GRID中，如果某一欄的資料中，我要依照條件將欄位中某幾個字以紅色顯示，但是同一欄位中的其他字，不需要改變顏色，請問要如何設定？且要設定在哪裡？例如：ABCDRFFGG123LLL，其中LLL要顯示紅色，其他顯示顏色不變（以預設顏色顯示）
2.GRID中，某一個欄位是許多個欄位的組合，且都來自同一TABLE，請問要如何處理？曾經在該欄位的CONTOLSOURCE中設定過，但是因為條件太多，所以無法處理，請問要在哪裡設定？及程式該如何寫？例：有a1,a2,a3,a4,a5,a6,a7,a8等欄位，要在自訂欄位中顯示上述欄位的個位數值是0的所有欄位資料組合。

garfield · 發表於: 星期三四月 19, 2006 11:22 am 文章主題:

請用 GRID 顏色去搜尋就有答案.

clmao · 註冊時間: 2006-04-15 文章: 57 第 3 樓

謝謝大大指導：
但是問題2沒有找到解決方法。
問題1，有大大回答：
你指的可是同一Cell內要有不同顏色 ?
如果如此, 可能必須使用, Container自訂類別來作
先將顯示欄位分成數個部份, 再以Container包裝起來
Grid.Column之CurrentControl則改為Container或使用
DynamicCurrentControl
但是，請問container如何包裝？再則，我要選TABLE某一欄位內之某一段文字來改變顏色，請問如何下判斷與設定條件？

syntech · 發表於: 星期三四月 19, 2006 2:51 pm 文章主題:

要某些字變色,要用RICHEDIT 物件才行

garfield · 發表於: 星期三四月 19, 2006 2:57 pm 文章主題:

小賴 · 註冊時間: 2004-12-27 文章: 477 第 6 樓

至於問題2 :
先寫一自訂函數, 根據條件傳回你要的結果,
Grid中該Column之ControlSource設定成你的自訂函數名稱

clmao · 註冊時間: 2006-04-15 文章: 57 第 7 樓

感謝各位大大的指導，受益甚多。
但是想請問小賴大大：
您的方法我有試過，但是要下的條件甚多，無法完全顯示；是否可以在哪裡設定？而有一常串的指令設定機會？

小賴 · 註冊時間: 2004-12-27 文章: 477 第 8 樓

自訂函數不就隨便找個prg檔, 寫在裹面嗎 ?
如果你真的找不到寫function的地方, 不仿就把它
寫在form的自訂方法吧 !

1. 先為form新增一個methord
　　功能表 --＞　form　--> new method ----> 輸入method 名稱
2. 假設你的method 名稱為 sum1
於 form1.sum1 填入以下程序
3. Grid1.Column?.ControlSource
　填入 =ThisForm.Sum1()
　&& 請含 "="

LOCAL sum0
sum0 = 0
sum0 = sum0 + IIF(MOD(a1,10) = 0, a1, 0)
sum0 = sum0 + IIF(MOD(a2,10) = 0, a2, 0)
sum0 = sum0 + IIF(MOD(a3,10) = 0, a3, 0)
sum0 = sum0 + IIF(MOD(a4,10) = 0, a4, 0)
sum0 = sum0 + IIF(MOD(a5,10) = 0, a5, 0)
sum0 = sum0 + IIF(MOD(a6,10) = 0, a6, 0)
sum0 = sum0 + IIF(MOD(a7,10) = 0, a7, 0)
RETURN sum0

clmao · 註冊時間: 2006-04-15 文章: 57 第 9 樓

謝謝小賴大大的指導,非常感謝您!

clmao · 註冊時間: 2006-04-15 文章: 57 第 10 樓

當在GRID內使用container物件時，
我要作指標到哪一列，就會自動反白的功能，可是container物件內之六個TEXTBOX均不會反白，
我是用9.0的設定功能處理，
是否還是要使用各自設定？