如何让mshflexgrid表格一直显示最后一行呀？

Question

如何让mshflexgrid表格一直显示最后一行呀？
用户不断是添加记录，当表格中记录多时，最后添加的行就看不见了，只能看到最开始的行，我想每次添加记录后都可以显示出最后添加的记录，如何做呀？

Answer 1

Private Sub Command1_Click()
Text1.Visible = False
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
Text1.Top = MSFlexGrid1.CellTop
End Sub
测试过.
你可以每增加一条,执行一次.

Answer 2

mshflexgrid1.row=mshflexgrid1.rows-1
mshflexgrid1.toprow=mshflexgrid1.row

Answer 3

用toprow属性
Dim iRow 
iRow=fg.Rows-1
fg.TopRow=iRow