各位大侠，vfp 如何获取当前表格焦点字段（header1）名？多谢！！！

[ 本帖最后由 YTZN 于 2014-3-10 10:51 编辑 ]

This.Columns(i).Header1.Caption

收到的鲜花

• YTZN 于 2014-03-10 17:32 送鲜花  3朵  

多谢楼上！！我试试

TonyDeng版
This.Columns(i).Header1.Caption中的(i)如何编程获取？多谢！！！

是你當前焦點控件所在的Column序號，視你這個語句放在哪裏而定。

[ 本帖最后由 TonyDeng 于 2014-3-10 10:53 编辑 ]

我想在表格beforerowcolchange event中集中设置几个单元的只读属性，所以须编程获得(i).

這個事件傳入的參數就是這個序號了

Occurs when the user changes the active row or column before the new cell gets the focus. It also occurs before the Valid event of the current object in the grid column and any rules in the database. Use NODEFAULT to prevent the active row and column in the grid from changing.

 

PROCEDURE Grid.BeforeRowColChange

LPARAMETERS nColIndex
 


Parameters
nColIndex
Returns the index of the column that is active before the row or column change.

收到的鲜花

• YTZN 于 2014-03-10 17:33 送鲜花  3朵  

多谢TonyDeng版
楼上的我慢慢消化

我现在整的是如果公司管、营销管、开发管都未确认，可以修改某些字段。
但下面我整的所有字段都可修改

LPARAMETERS nColIndex
hdbgm1='thisform.grd'+alltrim(alias())+'.readonly'
&hdbgm1=.t.

if empt(公司管确认) and empt(营销管确认) and empt(开发管确认)
    hdbgm1='thisform.grd'+alltrim(alias())+'.readonly'
    &hdbgm1=.f.
endi

所以如果能获取当前Header1名，可以加上Header1限制执行

你嵌套了多少個Grid要這樣寫啊？這個事件是在當前Grid下發生，This就是這個Grid，不需要再引用ThisForm.Grid1這樣的東西。直接這樣就可以了：This.Columns(nColIndex).Header1.Caption

其實，在綁定Grid欄目數據源的時候，就已經知道每一個Column對應哪個字段，不需要用Header的文字來識別的。

收到的鲜花

• YTZN 于 2014-03-10 17:33 送鲜花  3朵