求教关于MSHFlexGrid分页的问题-CSDN论坛

⋅求助如何提取formdata数据 ⋅求教关于MSHFlexGrid分页的问题 ⋅求教关于MSHFlexGrid显示数据的问题 更多帖子 关注私信空间博客 szoe5203 本版专家分：0 结帖率 97.14%

Private Sub Form_Load()

Dim sql As String

maxRecord = 2 '每页显示最大记录数

pageIndex = 1 '设置当前页码为1

sql = "Select * from [doc] order by docID DESC"

Call getData(sql) '连接数据库

Call showData '显示样式

pages = rs.RecordCount / maxRecord '总页数

End Sub



Private Sub btnUp_Click()

'向前翻页

pageIndex = pageIndex - 1

End Sub



Private Sub btnDown_Click()

'向后翻页

pageIndex = pageIndex + 1

End Sub



Private Function showData()

Dim i As Integer

With MSHFlexGrid1

.Redraw = False

.Cols = 6

If rs.RecordCount <= maxRecord Then

.Rows = rs.RecordCount + 1

Else

.Rows = maxRecord + 1

End If

.TextMatrix(0, 1) = "来文字号"

.TextMatrix(0, 2) = "文件标题"

.TextMatrix(0, 3) = "文件日期"

.TextMatrix(0, 4) = "主题词"

.TextMatrix(0, 5) = "存放位置"

For i = 1 To (.Rows - 1)

.TextMatrix(i, 0) = rs.Fields("docID")

rs.MoveNext

Next i

For i = 0 To 5

.ColAlignment(i) = 3

Next i

.Redraw = True

End With

End Function

基本代码是这样的，用btnUp_Click()，btnDown_Click()实现翻页功能
请问该怎么写btnUp_Click()，btnDown_Click()这两个函数？
应该是用rs.Index来定位某页显示的记录吧？可是我研究了半天也没找到方法

特向各位大侠求教
非常感谢~~~~~~~~~~~~~~~~~

0 2010-02-01 16:44:55

回复数 6 只看楼主引用举报楼主

⋅这个语句有什么问题? ⋅她说对我没感觉 ⋅【声明】以后20分的帖子就不回复了 更多帖子 关注私信空间博客 king06 本版专家分：24946 黄花 2011年4月 VB大版内专家分月排行榜第二 2010年1月 VB大版内专家分月排行榜第二 蓝花 2009年12月 VB大版内专家分月排行榜第三: 利用rs.pagesize 和rs.pagecount属性.

0 2010-02-01 17:35:54

只看TA 引用举报 #1 得分 0

szoe5203 本版专家分：0: 楼上可以说详细点吗？
非常感谢

0 2010-02-01 17:42:22

只看TA 引用举报 #2 得分 0

szoe5203 本版专家分：0: 继续求教，谢谢！

0 2010-02-01 22:16:26

只看TA 引用举报 #3 得分 0

⋅这个语句有什么问题? ⋅她说对我没感觉 ⋅【声明】以后20分的帖子就不回复了 更多帖子 关注私信空间博客 king06 本版专家分：24946 黄花 2011年4月 VB大版内专家分月排行榜第二 2010年1月 VB大版内专家分月排行榜第二 蓝花 2009年12月 VB大版内专家分月排行榜第三: Private Sub Form_Load()
Dim sql As String
maxRecord = 2 '每页显示最大记录数
pageIndex = 1 '设置当前页码为1
sql = "Select * from [doc] order by docID DESC"
Call GetData(sql) '连接数据库
Call showData '显示样式
Rs.PageSize = maxRecord
Pages = Rs.PageCount
End Sub

Private Sub btnUp_Click()
'向前翻页
If Not Rs.BOF Then
    For i = 1 To maxRecord
        Rs.MovePrevious
    Next
End If
showData
End Sub

Private Sub btnDown_Click()
'向后翻页
If Not Rs.EOF Then
    For i = 1 To maxRecord
        Rs.MoveNext
    Next
End If
showData
End Sub

showData里面
For i = 1 To (.Rows - 1)
.TextMatrix(i, 0) = Rs.Fields("docID")
If i < .Rows - 1 Then Rs.MoveNext
Next

当然,,,如果支持 rs.AbsolutePage 可以直接定位page (以上不支持)

0 2010-02-02 09:45:24

只看TA 引用举报 #4    得分 0

⋅求助如何提取formdata数据 ⋅求教关于MSHFlexGrid分页的问题 ⋅求教关于MSHFlexGrid显示数据的问题 更多帖子 关注私信空间博客 szoe5203 本版专家分：0

非常感谢楼上的帮助
但是我发现了个奇怪的问题



Private Sub btnDown_Click()

If Not rs.EOF Then

Call showData

MsgBox (rs.AbsolutePage)

End If

End Sub



Private Sub btnUp_Click()

If Not rs.BOF Then

Call showData

MsgBox (rs.AbsolutePage)

End If

End Sub



Private Function showData()

Dim i As Integer

rs.PageSize = 2

With MSHFlexGrid1

.Redraw = False

.Cols = 6

If rs.RecordCount <= rs.PageSize Then

.Rows = rs.RecordCount + 1

Else

.Rows = rs.PageSize + 1

End If

.TextMatrix(0, 1) = "来文字号"

.TextMatrix(0, 2) = "文件标题"

.TextMatrix(0, 3) = "文件日期"

.TextMatrix(0, 4) = "主题词"

.TextMatrix(0, 5) = "存放位置"



For i = 1 To (.Rows - 1)

If Not rs.EOF Then

.TextMatrix(i, 0) = rs.Fields("docID")

rs.MoveNext

End If

Next i



For i = 0 To 5

.ColAlignment(i) = 3

Next i

.Redraw = True

End With

End Function

一共有四页记录，上面代码执行后，在没有到最后一页之前，点btnUp，btnDown会自动向后翻页，可是这两个按钮我仅仅调用了显示函数，为什么会自动向后翻页？
另外，点btnUp，btnDown后msgBox显示的rs.AbsolutePage不对，初始化后点一下任一个按钮，会自动向后翻页并显示rs.AbsolutePage为3，而这个时候正确的rs.AbsolutePage应该是2，而且当翻到最后一页的时候rs.AbsolutePage显示为-3，请问为什么？
求教，非常感谢大家的帮助~~~~~~~~~~~

0 2010-02-02 10:58:58

只看TA 引用举报 #5 得分 0

⋅这个语句有什么问题? ⋅她说对我没感觉 ⋅【声明】以后20分的帖子就不回复了 更多帖子 关注私信空间博客 king06 本版专家分：24946 黄花 2011年4月 VB大版内专家分月排行榜第二 2010年1月 VB大版内专家分月排行榜第二 蓝花 2009年12月 VB大版内专家分月排行榜第三: 在本页最后一条记录的时候要注意,不要movenext了,否则进入了下一页.
上面我就就写了 If i < .Rows - 1 Then Rs.MoveNext 啊

0 2010-02-02 15:02:15

只看TA 引用举报 #6 得分 0

求教关于MSHFlexGrid分页的问题 [问题点数：50分]