i am using pagedown button to add records in grid.

in keypress event of every column.textbox in grid.
i have below code in pageframe.page1.grid1.column1.textbox

Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=3
   Select INWARD1
   Flush
   This.Refresh
   Flush
   Select INWARD1
   If (qty+Free)<>0
      Insert Into INWARD1 (VNO, Status, Type, RECO1, machineid, lqty) Values (INWARD.VNO, INWARD.Status, INWARD.Type, INWARD.RECO1, INWARD.machineid, .T.)
      Go Recno()
      Thisform.pageframe1.page1.grid1.Refresh()
      Thisform.pageframe1.page1.grid1.SetFocus()
      Thisform.pageframe1.page1.grid1.colUMN1.SetFocus()
   Endif
Endif

warm regards,
mk.