VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

幫 Grid 加上列號及多選框
前往頁面 上一頁  1, 2
 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 16 樓

發表發表於: 星期三 九月 18, 2013 9:34 am    文章主題: 引言回覆

上一台是腳踏車,雖勉強能跑,但費力!
目前這一台是摩拖車
已經沒有前述問題了

拋磚引玉,期待您改裝的無方向盤Turbo跑車上路!
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 17 樓

發表發表於: 星期三 九月 18, 2013 9:43 am    文章主題: 引言回覆

什麼時候有使用者意念操控未來車上路.
老是有客戶反應,
"為什麼你們做的,老是跟我想的不一樣" Orz

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 18 樓

發表發表於: 星期三 九月 18, 2013 9:54 am    文章主題: 引言回覆

syntech 寫到:
什麼時候有使用者意念操控未來車上路.


根據教育部國語辭典的解釋(http://dict.revised.moe.edu.tw/cgi-bin/newDict/dict.sh?cond=%A5%BC&pieceLen=50&fld=1&cat=&ukey=-1798110951&serial=2&recNo=66&op=f&imgFont=1)

『未』且有
1.「不」
2.「沒有」
3.「疑問」
等三個意思,

也就是說,您期待的【未來車】,不會上路!
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
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    文章主題: 引言回覆

完成了,
沒方向盤的車子上路也會轉彎 Smile
回頂端
檢視會員個人資料 發送私人訊息
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 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
文章: 2157


第 24 樓

發表發表於: 星期三 九月 18, 2013 4:41 pm    文章主題: 引言回覆

to: ckp6250 發現一個bug
有一個屬性是沒有定義到的 gnactiverow
在 .init() 裡加一行
this.AddProperty('gnactiverow',0)

另外應該還要添加變更.gnactiverow值的程式碼

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 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    文章主題: 引言回覆

推推推~~
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
前往頁面 上一頁  1, 2
2頁(共2頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作