MSHFlexGrid分页报错的问题

Question

recordset分页function控件MSHFlexGrid

Answer 1

Private Sub cmdNext_Click()‘下一页控件
    If pg < rs1.pagecount Then
        pg = pg + 1
    Else
        MsgBox "已经是最后一页了"
    End If
    showpage
End Sub
记录集打开一次就可以了。换页时直接设置 AbsolutePage 属性。
另，最后一页的记录数可能少于 PageSize 属性，
    For i = 2 To rs1.PageSize + 1
        For j = 1 To MG1.Cols - 1
            MG1.TextMatrix(i, j) = rs1.Fields(j)
        Next j
        rs1.MoveNext
        If rs.EOF Then Exit For '加上一个判断
    Next i我一般是将 MSHFlexGrid 绑定记录集，而不用人工写入的方式。