我要让指针移到新增加的那一行,并使其变为兰色怎么办?我的代码是:
Thisform.GRid1.RecordSource= Null
PUBLIC A
A=THISFORM.TExt1.ValUE
If Empty(A)
Messagebox("姓名不能为空!!",48,"提示")
Thisform.TEXT1.SetFocus
Else
Insert Into 操作员管理 Values (A)
ENDIF
Thisform.GRid1.RecordSourceType= 4
Thisform.GRid1.RecordSource='SELECT * FROM 操作员管理 INTO CURSOR TEMP'
Thisform.GRid1.Refresh
请高手修改

(1)ThisForm.Init代码
CLOSE ALL
IF FILE('操作员管理.dbf')
    USE 操作员管理.DBF
ELSE
    CREATE TABLE 操作员管理 (NAME C(8))
ENDIF
THISFORM.Grid1.COLUMNCOUNT=-1
THISFORM.Grid1.RECORDSOURCETYPE=1
THISFORM.Grid1.RECORDSOURCE='操作员管理'
THISFORM.Grid1.DELETEMARK=.F.
THISFORM.Grid1.READONLY=.T.

(2)代码
lcName=THISFORM.Text1.VALUE
IF EMPTY(lcName)
    MESSAGEBOX("姓名不能为空!!",48,"提示")
    THISFORM.TEXT1.SETFOCUS
ELSE
    INSERT INTO 操作员管理 (NAME) VALUES (lcName)
    THISFORM.Grid1.SETFOCUS
ENDIF
THISFORM.REFRESH