再问一个问题，想更自动化一点，
一个grid，如何能实现，当光标移动到grid中的一个文本框中，如果当前记录的id字段=0，当前光标所在的grid文本框设为只读。
我知道思路，在grid的before事件中，判断:
sele aaa
if id=0
判断当前光标所在的文本框中的字段列数
然后设grid当前列为只读。
endi
就是不知道代码怎么写，由其是判断当前列是第几列，谢谢！
我的问题其实就是一句话：如何能返回当前光标所在单元格是第几列？
我解决了，分享如下。
1、下面的可以得到当前的列值
SELECT pjb
thisform.label9.Caption='行: '+allt(STR(站点编号))+' 列: '+ALLTRIM(STR(this.ActiveColumn))
2、让该列根据条件只读。
IF id>0
uu=ALLTRIM(STR(this.ActiveColumn)) && 列
thisform.back.pageframe1.pAGE2.grid1.column&uu..text1.readonly=.t.
ENDIF
不用那么麻烦，直接在 grid.AfterRowColChange 事件中写一行：
This.ReadOnly = (id == 0)
就行了