 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
goto-dream
註冊時間: 2004-05-11
文章: 909
第 1 樓
|
 發表於: 星期一 一月 05, 2009 9:16 pm 文章主題: Grid與存檔問題? |
 |
|
新的一年.祝大家牛轉錢坤
使用Grid時.如何能方便存檔?
假使最後一筆.沒有資料!如何能夠按向下鍵能正確跳到存檔的按鈕?!
出現問題?
新增 一筆紀錄.會跳到存檔 按鈕
| 代碼: | Procedure KeyPress
Lparameters nKeyCode, nShiftAltCtrl
Local o,nRow,nCol,nRecCount,lcCommand,lcStr
Local oldSelect,ofrmSelect,lc_Alias,ln_RecNum
o=This.Parent.Parent
Do Case
Case nKeyCode==-4 &&F5
Nodefault
Thisform.get_GridText_F5(This)
Case nKeyCode==-5 &&F6
Nodefault
Thisform.get_GridText_F6(This)
Case nKeyCode==-6 &&F7
Nodefault
Thisform.get_GridText_F7(This)
Case nKeyCode==-7 &&F8
Nodefault
Thisform.get_GridText_F8(This)
Case nKeyCode==13 &&Enter
lc_Alias=o.RecordSource
Select( lc_Alias)
ln_RecNum=Reccount()
If o.ActiveColumn==o.ColumnCount
If o.ActiveRow==ln_RecNum
Thisform.Grid_Rec_Add(This.Parent.Parent) &&20051228改由每個Grid自行控制
Endif
This.Is_Enter_DNARROW=.T. &&�{式自動送KEY
Keyboard '{DNARROW}'+'{HOME}'
This.Is_UserChange=.F. &&使用者改變資料了...
Endif
Case nKeyCode==24 &&down
If This.Is_Enter_DNARROW &&�{式送出的...不能執行
This.Is_Enter_DNARROW=.F.
Return
Else
lc_Alias=o.RecordSource
Select( lc_Alias)
ln_RecNum=Reccount()
If o.ActiveRow==ln_RecNum
Thisform.get_GridText_KeyPress(This,nKeyCode)
Endif
Endif
Endcase
Endproc
|
補充
Thisform.get_GridText_KeyPress(This,nKeyCode)內容為
thisform.cmd_crub_update1.cmdSave.SetFocus()
_________________
福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!
想了解更多，您可上幸福雞湯組.找尋!!丁澐瑄.老師.
愛作夢 |
|
| 回頂端 |
|
 |
goto-dream
註冊時間: 2004-05-11
文章: 909
第 2 樓
|
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
