社区
VB基础类
帖子详情
如何可以使用vb在列记录的时候可以向excel一样的模式?
kingljx
2002-04-22 11:42:15
如题
...全文
43
7
打赏
收藏
如何可以使用vb在列记录的时候可以向excel一样的模式?
如题
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sonicdater
2002-04-24
打赏
举报
回复
关键是 使用 ADO 的 PAGESIZE 属性 和 AbsolutePage 属性。
-------------------------------------------------------------------
下面的代码给你参考一下:
m1 是个 Grid 控件。
Function Getpagedate(ByVal TSQL As String, ByVal pagenumber As Integer, ByVal size As Integer) As Long
Screen.MousePointer = 11
Dim x As Integer
If rs1.State = 1 Then rs1.Close
rs1.CursorLocation = adUseClient
rs1.Open TSQL, conn1, adOpenForwardOnly, adLockReadOnly
If rs1.EOF Then
mg1.Rows = 1
mg1.Rows = mg1.Rows + 1
mg1.FixedRows = 1
Label2(4).Caption = "Record Count:" & "0" & " Page Count:" & "0"
Screen.MousePointer = 0
Exit Function
End If
mg1.Rows = 1
mg1.Cols = rs1.Fields.Count
rs1.PageSize = size
If pagenumber > rs1.PageCount Then
txtpn = 0
pagenumber = 1
ElseIf pagenumber <= 0 Then
txtpn = rs1.PageCount + 1
pagenumber = rs1.PageCount
End If
rs1.AbsolutePage = pagenumber
txtpn.Text = rs1.AbsolutePage
mg1.Visible = False
With mg1
Do While Not rs1.EOF And rs1.AbsolutePage = pagenumber
.Rows = .Rows + 1
.FixedRows = 1
For x = 0 To rs1.Fields.Count - 1
.TextMatrix(.Rows - 1, x) = IIf(IsNull(rs1.Fields(x).value), "", rs1.Fields(x).value)
If x = 4 Or x = 3 Then
.TextMatrix(.Rows - 1, x) = Format(.TextMatrix(.Rows - 1, x), "Fixed")
If Val(.TextMatrix(.Rows - 1, x)) = 0 Then .TextMatrix(.Rows - 1, x) = ""
.ROW = .Rows - 1: .COL = x
If Val(.TextMatrix(.Rows - 1, x)) < 0 Then .CellForeColor = vbRed Else .CellForeColor = vbBlue
End If
Next
rs1.MoveNext
Loop
Label2(4).Caption = "Record Count:" & CStr(rs1.RecordCount) & " Page Count:" & rs1.PageCount
Getpagedate = rs1.RecordCount
rs1.Close
Screen.MousePointer = 0
mg1.Visible = True
.Refresh
End With
End Function
sonicdater
2002-04-24
打赏
举报
回复
都可以。
kingljx
2002-04-24
打赏
举报
回复
那使用datagrid、msflexgrid、mshflexgrid,那一个可以把记录分页显示出来?
kingljx
2002-04-22
打赏
举报
回复
能不能具体点?
我是初学,不太明白
gump2000
2002-04-22
打赏
举报
回复
您可以参考MSDN例子:
C:\Program Files\Microsoft Visual Studio\MSDN\2001JUL\1033\SAMPLES\VB98\Msflexgd
可能由于您的MSDN版本不同、安装位置不同而不同
gump2000
2002-04-22
打赏
举报
回复
用Grid控件
DataGrid
MsFlexGrid
MshFlexGrid
....
sonicdater
2002-04-22
打赏
举报
回复
用 MSHFlexGrid .
先确定 数据所需的 行和列数.
在用 .TextArray 填加数据
With MSHFlexGrid
.Rows = xxx
.Cols = xxx
'//从 数据集 读如数据并填充
Do Until Rs.Eof
For I =0 To (.Rows-1)
For J=0 To (.Cols -1)
.TextArray(faIndex(I,J)) = Rs.Fields("Data").Value
Next
Next
Loop
End with
关于 faIndex 函数, MSDN 上已有.
浅析
VB
程序数据库学生管理系统.doc
浅析
VB
程序数据库学生管理系统 摘要 随着计算机技术的飞速发展,应用范围也越来越广泛,在教学工作中,运用
VB
程序数据 库学生管理系统可以更方便的对教学信息进行管理,提高工作效率。此外,
使用
管理系 统软件还具有...
asp.net知识库
DataGridView中如何在textbox
列
中限制输入。 ASP.NET 2.0构建动态导航的Web应用程序(TreeView和Menu ) 体验.net2.0的优雅(3) -- 为您的 SiteMap 添加 控制转发功能 GridView控件
使用
经验 ASP.NET 2.0:弃用 ...
链接表操作0.5
vb
6 Linyee 辅助工具
代码有点乱,暂时不发,现在这个工具的功能已经基本上可以支持得上
EXCEL
与ACCESS的简单应用了。 特别是(删除)自动筛选功能,实现了自动删除空白行的功能。 ‘================ V0.5 2008-11-12 1、增加条件查询...
excel
中161个
VB
A_自定义函数超级实用
函数作用:判断一个文件是否在
使用
中.................92 '85.函数作用:
列
出档案详细摘要信息.....................93 '86.函数作用:获取菜单ID编号及名称
列
表................93 '87.函数作用:状态
列
动态显示文字......
纵横IC企业销售管理系统
7. 每个月出多少货、客户欠了我们多少款、成交多少单生意、没有一个人知道,月底对帐的时候,
EXCEL
对帐表格整了好几次,花了好几天还没弄好,而
使用
纵横软件客户对帐单可以直接打出每个客户的每月对帐单,FAX给客户...
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章