|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 16 樓
|
發表於: 星期三 九月 18, 2013 9:34 am 文章主題: |
|
|
上一台是腳踏車,雖勉強能跑,但費力!
目前這一台是摩拖車
已經沒有前述問題了
拋磚引玉,期待您改裝的無方向盤Turbo跑車上路! |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4214 來自: Taipei,Taiwan
第 17 樓
|
發表於: 星期三 九月 18, 2013 9:43 am 文章主題: |
|
|
什麼時候有使用者意念操控未來車上路.
老是有客戶反應,
"為什麼你們做的,老是跟我想的不一樣" Orz _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 18 樓
|
|
回頂端 |
|
|
aforangel
註冊時間: 2010-05-24 文章: 117
第 19 樓
|
發表於: 星期三 九月 18, 2013 10:08 am 文章主題: |
|
|
樓主大大, 下載了你的程式, 試用出現error訊息, 原因是不是我的版本是VFP6.0? 裡頭是不是有VFP9.0的新功能? |
|
回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10 文章: 334 來自: 佛心來的
第 20 樓
|
發表於: 星期三 九月 18, 2013 11:52 am 文章主題: |
|
|
完成了,
沒方向盤的車子上路也會轉彎 |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 21 樓
|
發表於: 星期三 九月 18, 2013 12:06 pm 文章主題: |
|
|
aforangel 寫到: | 樓主大大, 下載了你的程式, 試用出現error訊息, 原因是不是我的版本是VFP6.0? 裡頭是不是有VFP9.0的新功能? |
請重新下載一下
ckp6250 在 星期三 九月 18, 2013 5:14 pm 作了第 1 次修改 |
|
回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10 文章: 334 來自: 佛心來的
第 22 樓
|
發表於: 星期三 九月 18, 2013 2:21 pm 文章主題: |
|
|
問一個題外話...
FOR i=...
...
ENDFOR
小弟見過很多程式碼,
用 FOR i 的人不在少數,
包括小弟也在很久很久(APPLE II 時代)以前到現在,
也是習慣性用 i ,
為什麼大家都用 i 呢? |
|
回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10 文章: 334 來自: 佛心來的
第 23 樓
|
發表於: 星期三 九月 18, 2013 3:25 pm 文章主題: |
|
|
不新增 grid 欄位又可顯示列次的一種方法:
靈感來自: http://vfp.sunyear.com.tw/viewtopic.php?t=2597&highlight=gridhittest
在 form.load 裡:
PUBLIC _start_flag,_qt,_qtn
_start_flag=.T.
_qt=''
_qtb=0
在 form.refresh 裡:
_start_flag=.F.
在 grid.init 裡:
IF _start_flag
LOCAL _cnt
SELECT &_btable
_qtn=RECCOUNT()
_qt=SYS(2015)
CREATE CURSOR &_qt (aux N(6,0),_recno N(6,0))
INDEX ON aux TAG aux ADDITIVE
SELECT &_btable
GO TOP
_cnt=1
SCAN
INSERT INTO &_qt VALUES (RECNO(_btable),_cnt)
_cnt=_cnt+1
ENDSCAN
SELECT &_btable
SET RELATION TO RECNO() INTO &_qt ADDITIVE
IF USED(_table)
SELECT &_table
ENDIF
RELEASE _cnt
RETURN
ENDIF
.
.
.
FOR i=1 TO this.columncount
BINDEVENT(.columns(i),'MouseMove',This,'MouseMove')
.
.
ENDFOR
在 grid.mousemove 裡:
IF nShift=2 && press CTRL, 很有趣的反應
LOCAL nWhere,nRelRow,nRelCol
this.gridhittest(nXCoord,nYCoord,@nWhere,@nRelRow,@nRelCol)
this.activatecell(nRelRow,nRelCol)
this.tooltiptext='[ '+TRANSFORM(&_qt.._recno)+' ]'
ENDIF
在 grid.refresh 裡:
SELECT &_btable
IF _qtn#RECCOUNT()
LOCAL _cnt
pub_num3=RECNO()
_qtn=RECCOUNT()
ZAP IN &_qt
SELECT &_btable
GO TOP
_cnt=1
SCAN
INSERT INTO &_qt (aux,_recno) VALUES (RECNO(_btable),_cnt)
_cnt=_cnt+1
ENDSCAN
SELECT &_btable
GO pub_num3
RELEASE _cnt
ENDIF |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 24 樓
|
發表於: 星期三 九月 18, 2013 4:41 pm 文章主題: |
|
|
to: ckp6250 發現一個bug
有一個屬性是沒有定義到的 gnactiverow
在 .init() 裡加一行
this.AddProperty('gnactiverow',0)
另外應該還要添加變更.gnactiverow值的程式碼 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 25 樓
|
發表於: 星期三 九月 18, 2013 5:04 pm 文章主題: |
|
|
那是我本人在用的屬性,主要用在定義變色條件,DynamicBackColor
因為我不知道其他人愛怎麼變色.所以在程式中把它註記取消了
因為這段程式是由我的眾多程式中抽出一段,沒測到這一點,歹勢
現在請把
Function ReBuildRowno 中第五行
If Type(".RowNoTmp")='C' And Used(.RowNoTmp) And (.gnactiverow <>Evaluate(.RowNoTmp+'.RecNo') Or Evaluate(.RowNoTmp+'.RecNo')=0)
改成
If Type(".RowNoTmp")='C' And Used(.RowNoTmp) And (.activerow <>Evaluate(.RowNoTmp+'.RecNo') Or Evaluate(.RowNoTmp+'.RecNo')=0)
這樣就可以
第一樓的程式,我一併把它更新了,謝謝指教! |
|
回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10 文章: 334 來自: 佛心來的
第 26 樓
|
發表於: 星期五 九月 27, 2013 3:29 pm 文章主題: |
|
|
推推推~~ |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|