移动记录

 

网格中移动记录:

Sub btnFirst_Click()

  MainGrid.SetFocusRow (maingrid.GetFixedRowCount )

End Sub

 

Sub btnLast_Click()

  MainGrid.SetFocusRow (maingrid.GetFixedRowCount + mainGrid.GetRecordCount-1)

End Sub

 

Sub btnNext_Click()

  MainGrid.SetFocusRow (maingrid.GetFixedRowCount + mainGrid.GetCurRecordIndex + 1)

End Sub

 

Sub btnPre_Click()

  MainGrid.SetFocusRow (maingrid.GetFixedRowCount + mainGrid.GetCurRecordIndex - 1)

End Sub

posted @ 2005-11-05 17:23  致远钓客  阅读(166)  评论(0)    收藏  举报