*表单自定义方法:_SetCell(nRow, nCol, nRecno)
*功能:设定GRID的第nRow行显示第nRecno条记录,nCol决定nRow行的活动单元格。
FUNCTION _SetCell(nRow, nCol, nRecno)
IF nRow <= nRecno
GO nRecno
this.grid1.SetFocus
this.grid1.ActivateCell(nRow, nCol)
DO WHILE RECNO() != nRecno
this.grid1.DoScroll(IIF(RECNO() < nRecno, 1, 0))
this.grid1.SetFocus
this.grid1.ActivateCell(nRow, nCol)
ENDDO
ENDIF
ENDFUNC
假设GRID一屏显示10行
*当我的dbf指针指向dbf的第15个记录时,我希望grid中第一行显示第6行记录,最后一行显示15号记录
thisform._SetCell(10, 2, 15)
*当我的dbf指针指向dbf的第5个记录时,我希望grid中第一行显示第1行记录,最后一行显示10号记录
thisform._SetCell(5, 1, 5)