 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
uoou
註冊時間: 2004-04-25
文章: 12
第 1 樓
|
 發表於: 星期五 四月 30, 2004 6:39 pm 文章主題: 關於grid取值 |
 |
|
請問,在grid上面怎麼得到當前游標所在位置欄位的值?
還有怎麼得到當前游標所在那一列的其他值?
有什麼函數可以辦到嗎
thx a lot
 |
|
| 回頂端 |
|
 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 2 樓
|
| 發表於: 星期五 四月 30, 2004 11:32 pm 文章主題: |
|
|
Grid.ActiveRow
Grid.ActiveColumn
Grid.ActivateCell(nRow, nCol)
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
|
uoou
註冊時間: 2004-04-25
文章: 12
第 3 樓
|
| 發表於: 星期五 四月 30, 2004 11:41 pm 文章主題: |
|
|
QQ
Grid.ActivateCell怎麼用呢?
剛去看了一下HELP說明,說的很簡單,也不知道在說啥
可以說明一下怎麼實現嗎?
感謝您!!! |
|
| 回頂端 |
|
|
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 4 樓
|
| 發表於: 星期六 五月 01, 2004 12:46 pm 文章主題: |
|
|
範例如下:
| 代碼: | LOCAL o
o=CREATEOBJECT("form1")
o.show
RELEASE o
**************************************************
*-- Form: form1 (d:\form1.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 05/01/04 12:39:01 PM
*
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 250
Width = 476
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
windowtype=1
ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 3, ;
Height = 204, ;
Left = 12, ;
RecordSource = "", ;
Top = 24, ;
Width = 336, ;
Name = "Grid1", ;
Column1.ControlSource = "", ;
Column1.Name = "Column1", ;
Column2.ControlSource = "", ;
Column2.Name = "Column2", ;
Column3.ControlSource = "", ;
Column3.Name = "Column3"
ADD OBJECT text1 AS textbox WITH ;
Alignment = 3, ;
Value = 1, ;
Height = 25, ;
Left = 372, ;
Top = 60, ;
Width = 100, ;
Name = "Text1"
ADD OBJECT text2 AS textbox WITH ;
Alignment = 3, ;
Value = 2, ;
Height = 25, ;
Left = 372, ;
Top = 96, ;
Width = 100, ;
Name = "Text2"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 156, ;
Left = 396, ;
Height = 37, ;
Width = 61, ;
Caption = "Command1", ;
Name = "Command1"
PROCEDURE Init
CREATE CURSOR tmp1 (;
a1 char(10),;
a2 char(20),;
a3 char(30))
INSERT INTO tmp1 (a1,a2,a3) VALUES ('111','112','113')
INSERT INTO tmp1 (a1,a2,a3) VALUES ('211','212','213')
INSERT INTO tmp1 (a1,a2,a3) VALUES ('311','312','313')
INSERT INTO tmp1 (a1,a2,a3) VALUES ('411','412','413')
GO TOP
thisform.grid1.RecordSource="tmp1"
ENDPROC
PROCEDURE grid1.AfterRowColChange
LPARAMETERS nColIndex
LOCAL x,y
y=this.ActiveColumn
x=this.ActiveRow
MESSAGEBOX("x="+STR(x)+",y="+STR(y))
ENDPROC
PROCEDURE command1.Click
thisform.grid1.ActivateCell (thisform.text1.value,thisform.text2.value)
thisform.grid1.SetFocus
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
************************************************** |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
|
uoou
註冊時間: 2004-04-25
文章: 12
第 5 樓
|
| 發表於: 星期日 五月 02, 2004 1:23 am 文章主題: |
|
|
感謝您~
我去試看看!! |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
