|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Wayne-007
註冊時間: 2004-01-22 文章: 23
第 1 樓
|
發表於: 星期四 十一月 04, 2004 12:51 pm 文章主題: 請問前輩~~排序的問題 |
|
|
我在form裡面的一個Command加入了下面的程式
我主要的功能是...排序後,相隔列的顏色要不同!
就是奇數列背景為白色,偶數列背景為黃色
select aaa
set order to abc &&abc是一個欄位
x=reccount()
xxx=mod(x,2)
if xxx=1
thisform.grid1.column1.dynamicbackcolor=RGB(255,255,255)
else
thisform.grid1.column1.dynamicbackcolor=RGB(255,255,128)
endif
thisform.refresh()
為什麼執行後,會在倒數第3行程式那邊出現"此屬性的資料型態無效" |
|
回頂端 |
|
|
jeff25
註冊時間: 2004-10-22 文章: 76 來自: taiwan
第 2 樓
|
發表於: 星期四 十一月 04, 2004 2:52 pm 文章主題: |
|
|
改為
thisform.grid1.column1.dynamicbackcolor="IIF(MOD(RECNO(),2)=1,RGB(255,255,255),RGB(255,255,128))" 就可以了 _________________ jeff |
|
回頂端 |
|
|
hsf
註冊時間: 2003-10-24 文章: 15
第 3 樓
|
發表於: 星期四 十一月 04, 2004 3:47 pm 文章主題: |
|
|
jeff25 指令用法是對了.
可是因使用了 order 所以 recno 不會相連,故顏色並不會一行跨一行.
除非先將 aaa select 到一暫存檔,再以暫存檔開 grid 即可. |
|
回頂端 |
|
|
Wayne-007
註冊時間: 2004-01-22 文章: 23
第 4 樓
|
發表於: 星期四 十一月 04, 2004 3:56 pm 文章主題: |
|
|
我改為下面這樣,雖然沒有錯誤!但還是不能相隔列顏色不同!有些相隔列顏色還是會相同!
我的grid1裡面的column已經預先設定好IIF(MOD(RECNO(),2)=1,RGB(255,255,255),RGB(255,255,128))了!
select aaa
set order to abc
thisform.grid1.column1.dynamicbackcolor="IIF(MOD(RECNO(),2)=1,RGB(255,255,255),RGB(255,255,128))"
thisform.refresh() |
|
回頂端 |
|
|
Wayne-007
註冊時間: 2004-01-22 文章: 23
第 5 樓
|
發表於: 星期四 十一月 04, 2004 3:58 pm 文章主題: |
|
|
還是不懂hsf前輩所說的 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 6 樓
|
發表於: 星期四 十一月 04, 2004 4:00 pm 文章主題: |
|
|
如果你"真正"看懂hsf兄在說什麼的話,
你就會知道爲什麼會"有些相隔列顏色還是會相同" _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
Wayne-007
註冊時間: 2004-01-22 文章: 23
第 7 樓
|
發表於: 星期四 十一月 04, 2004 4:01 pm 文章主題: |
|
|
那程式該如何修改呢? |
|
回頂端 |
|
|
jeff25
註冊時間: 2004-10-22 文章: 76 來自: taiwan
第 8 樓
|
發表於: 星期五 十一月 05, 2004 12:22 am 文章主題: |
|
|
有 order 的問題,所以不能用 recno()
那麼改成 thisform.grid1.column1.dynamicbackcolor="IIF(getx(),RGB(255,255,255),RGB(255,255,128))"
*---> 利用 getx() 來決定顯示被景色
*--> 在 init 段先設定 x=1
procedure getx()
x=x * (-1)
if x> 0
return .T.
esle
return .F.
endif _________________ jeff |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|