PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DataSession = 2 Top = 0 Left = 0 Height = 269 Width = 351 DoCreate = .T. Caption = "Get firstrow" firstrownumber = .F. Name = "Form1" ADD OBJECT grid AS grid WITH ; ColumnCount = -1, ; Height = 228, ; Left = 0, ; RecordSource = "Grid", ; Top = 0, ; Width = 348, ; Name = "Grid" ADD OBJECT command1 AS commandbutton WITH ; Top = 235, ; Left = 2, ; Height = 27, ; Width = 108, ; Caption = "Get TopRow", ; Name = "Command1" PROCEDURE getrownumber IF ISNULL(THISFORM.Firstrownumber) THIS.FirstRowNumber = RECNO() ENDIF ENDPROC PROCEDURE grid.Init USE (HOME()+"\samples\northwind\customers.dbf") THIS.RecordSourceType= 1 THIS.RecordSource = "Customers" THIS.Column1.DynamicFontBold = "!THISFORM.Getrownumber()" ENDPROC PROCEDURE command1.Click THISFORM.FirstRownumber = NULL THISFORM.Grid.Refresh() WAIT WINDOW THISFORM.FirstRowNumber ENDPROC ENDDEFINE