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.