VFP 愛用者社區

aforangel · 註冊時間: 2010-05-24 文章: 117 第 1 樓

如果, 我想當CURSOR移到 grid1.column1.text1 位置時, 客戶按"ENTER"鍵, 游標會等同按下"向下"箭咀, 移到下一紀錄的column1.text1.位置, 而不是向右移到column2.text1...請問我需要在grid1.column1.text1.gotfocus 怎樣設定? 同時又需要在lostfocus 怎樣做來取消

syntech · 發表於: 星期二七月 13, 2010 4:27 pm 文章主題:

應該就自己寫一個GRID吧

aforangel · 註冊時間: 2010-05-24 文章: 117 第 3 樓

[quote="syntech"]應該就自己寫一個GRID吧[/quote]

太深了, 不懂, 我才是一個初級新手啊..>_<

LiuRambo · 註冊時間: 2007-11-27 文章: 481 第 4 樓

那就別答應這種砸自己腳的功能
答應任何功能前先甸甸自己的斤兩

建議乾脆改成FORM來處理跳脫GRID唄

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 5 樓

想不透
既然按了 "ENTER"鍵, 一般不就代表要編輯這一筆或這一格嗎?
怎麼會等同按下"向下"箭咀?
那有向下是按 Enter 的呢?

richshih · 註冊時間: 2007-10-11 文章: 153 第 6 樓

with MyGrid
if .RowColChange=2
nodefault
.ActivateCell(.ActiveRow+1,ActiveColumn)
endwith
以上試試

garfield · 發表於: 星期二七月 13, 2010 6:35 pm 文章主題:

一切都是 Excel 惹的禍,
Excel 操作就是按 Enter 移到下一行, 而不是移到右邊那一格,
其實這是有些使用者的操作習慣,
先將所有的 ITEM 輸入完畢, 再一次填數量, 單價..

原則上你要在grid1.column1.text1.keypress裡加上這一段程式
IF NkeyCode=13
KEYBOARD '{DNARROW}'
KEYBOARD '{LEFTARROW}'
endif
實務上你就依這個方式去做變化吧.

aforangel · 註冊時間: 2010-05-24 文章: 117 第 8 樓

LiuRambo大大, 其實不是我答應客戶的要求而想這樣做的, 只是, 我站在用戶身上, 感覺上按ENTER移向下一格, 會比移向右, 再要他們按鍵盤向下鍵+向左鍵, 來得方便, 所以想看看有沒有方法改成這樣...

Garfield大大, 謝謝提供, 明天回到公司試試看....

raster · 註冊時間: 2010-02-03 文章: 15 第 9 樓

用foxpro的新手阿？...
那我能不能挖角？...XD
(詳情請看誠徵VFP工程師...)

另外，若會被grid的控制所苦
可改寫garfield所提的
IF NkeyCode=13
thisform.command1.click()
endif

然後由grid外的command物件來處理GRID的指標位置
例如:
command1>click>

sele grid_name
skip
thisform.refresh
this.parent.grid1.column3.setfocus &&強制跳回第三欄

garfield · 發表於: 星期三七月 14, 2010 4:03 pm 文章主題:

如果是vfp9 ,試試richshih提供的程式碼也不錯.

aforangel · 註冊時間: 2010-05-24 文章: 117 第 11 樓

謝謝raster大大和 garfield 大大, 兩個方法也試過了, 都成功的, 問題解決了

挖角？當然能啊, 不過我不在台灣, 薪金可不用太多, 我就當是一個學習的機會啊, 只要有包每天三餐, 宿舍和每年三次來回機票就足夠了? 嘻嘻, 說笑的...