Listview分页显示数据

fxl447098457 · 发表于 2016-11-28 23:14

本帖最后由 fxl447098457 于 2016-12-3 06:50 编辑

最近在看数据库的资料，学着利用数据集的absolutepage,pagesize,pagecount等参数做了一个分页显示的窗体，分享一下。说不定以后有人会有这些需要，当自己的笔记也好。效果如图： QQ图片20161128231123.png

编辑于：2016-11-29-----对过程的主要作用增加了些解释，方便理解,演示了一下双击listview写入数据到Sheet1工作表里。
。。。。附上附件：

listview分页显示.rar (40.95 KB, 下载次数: 563)

MZ9688 · 发表于 2016-11-29 06:31

请问大神，能否实现双击将选中的数据写入指定的位置(单元格)中吗？

fxl447098457 · 发表于 2016-11-29 07:24

MZ9688 发表于 2016-11-29 06:31
请问大神，能否实现双击将选中的数据写入指定的位置(单元格)中吗？

这个是可以的。利用listview的点击事件就可以做到的。按我的附件例子上的listview的选中的数据写入另一张工作表里。可以使用下面的代码

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim rng As Range, m As Integer
If Item.Checked = True Then
Set rng = Sheet2.Cells(Rows.Count, 1).End(3).Offset(1)
rng.Value = Item
For m = 1 To 4
rng.Offset(, m).Value = Item.SubItems(m)
Next m
End If
End Sub

复制代码

fxl447098457 · 发表于 2016-11-29 07:47

本帖最后由 fxl447098457 于 2016-12-3 06:47 编辑

你说的是双击，就用双击事件，上面是单击的。下面是双击事件的代码

Private Sub ListView1_DblClick() '双击选中后写入数据到新工作表Sheet1里
Dim rng As Range, m As Integer
With Me.ListView1
Set rng = Sheet2.Cells(Rows.Count, 1).End(3).Offset(1)
rng.Value = .SelectedItem
For m = 1 To 4
rng.Offset(, m).Value = .SelectedItem.SubItems(m)
Next m
End With
End Sub

复制代码

MZ9688 · 发表于 2016-11-29 08:19

fxl447098457 发表于 2016-11-29 07:47
你说的是双击，就用双击事件，上面是单击的。下面是双击事件的代码

老师真厉害，能不能注解一下代码，让我初学的能看懂一些呢？谢谢

jackwen2009 · 发表于 2018-11-8 14:02

非常感谢，正好用得着！有问题可能还得请假，望不吝赐教！

小飞哥123456 · 发表于 2023-2-13 12:41

老师，您好，我想咨询一下，我想添加一个查找功能，这个要怎么实现

xkzb · 发表于 2023-2-13 14:06

老师，您好，我想咨询一下，我想添加一个查找功能，这个要怎么实现

adud · 发表于 2023-2-13 15:02

这个不错，值得收藏。

aecn · 发表于 2023-2-14 14:08

看看分页是原理

		自动登录	找回密码
密码			免费注册

[分享] Listview分页显示数据

评分