| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1075 人关注过本帖
标题:[求助]MSFlexGrid如何分页显示记录?
只看楼主 加入收藏
xin_09
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-5-9
收藏
 问题点数:0 回复次数:5 
[求助]MSFlexGrid如何分页显示记录?

数据量大时,报错内容是:无法给MSFlexGrid分配内存.
请教各位大虾小虾,如何使MSFlexGrid分页显示,或如何解决这种问题?

搜索更多相关主题的帖子: MSFlexGrid 记录 
2006-05-09 11:46
xin_09
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-5-9
收藏
得分:0 
请各位帮帮忙!
2006-05-09 11:52
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
收藏
得分:0 
我只是简单的写了一下.
pages=10
rs.pagecount=pages
n=val(text1.text)
rs.AbsolutePage=n
if n*pages>rs.recordcount
page=n*pages-rs.recordcount
end if
a=msflexgrid1.rows
for i=1 to page
msflexgrid1.textmatrix(i+a,1)=rs.feilds(0)
next

IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-05-09 12:49
xin_09
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-5-9
收藏
得分:0 
有几点不太明白:
rs.AbsoulutePage是什么意思?
text1.text接收的是什么值?
谢了!
2006-05-09 13:39
xin_09
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-5-9
收藏
得分:0 

假设共有2000条记录,MSFlexGrid1在接收1000条后将报错:无法给MSFlexGtid分配内存 怎样可以显示2000条记录?
下面是代码,帮忙修改下
Private Sub Form_Load()
Dim rs As ADODB.Recordset
Dim Sql As String
Dim i As Integer
ConnectionDatabase
Set rs = New ADODB.Recordset
Sql = "select * from user_table"
rs.Open Sql, conn, adOpenStatic
With MSFlexGrid1
.ColWidth(0) = 0
.Cols = rs.Fields.Count + 1
.Rows = rs.RecordCount + 1
.Row = 0
.Col = 0
For i = 1 To .Cols - 1
.Col = i
.Text = rs(i - 1).Name
Next

Do While Not rs.EOF
If .Row <= .Rows - 1 Then
.Row = .Row + 1
.Col = 0
For i = 1 To .Cols - 1
.Col = i
.Text = Trim(rs(i - 1).Value) & ""
Next
End If
rs.MoveNext
Loop
End With
End Sub

2006-05-09 13:54
xin_09
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-5-9
收藏
得分:0 

有高人帮帮忙吗?谢过了!!!

2006-05-09 14:15
快速回复:[求助]MSFlexGrid如何分页显示记录?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018941 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved