Question

vb中，mshflexgrid如何显示最后一行。

在mshflexgrid中，只能显示前10行，超过10行后，出现滚动条。但是窗体不会自动滚动。如何实现，始终显示最后一行。

Answer 1

Private Sub vsflexgrid1_afterScroll(ByVal oldTopRow As Long, ByVal oldLeftCol As Long, ByVal NewTopRow As Long, ByVal NewLeftCol As Long)Dim restdata As New adodb.Recordset
if restdata.RecordCount >10 then '哪橡悉当总李乎行数大于10时
If NewTopRow <如伍> oldTopRow Then
Me.vsflexgrid2.TopRow = NewTopRow - 1
End Ifend if
End Sub

Answer 2

代码如下：
MSHFlexGrid1.TopRow = MSHFlexGrid1.Rows - 1

Answer 3

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