使用ListView制作通用查询录入窗体

楼主 zzmxy	ListView是非常有用，且功能集合较为完善的控件，现在我们要就这个组件，来制作简单的查询及录入窗体。 1. 先插入窗体，并建立如下的窗体，分别有Label1、TextBox1、CommandButton1、ListView1四个控件， 2. 先为窗体的加载初始化，增加下面的代码，主要是初始化ListView，添加行标内容，并设置ListView的相关属性； Private Sub UserForm_Initialize() Dim itm As ListItem ListView1.ColumnHeaders.Clear ListView1.ListItems.Clear With ListView1 .ColumnHeaders.Add 1, , Sheets("库存").Cells(1, 1), .Width / 4 .ColumnHeaders.Add 2, , Sheets("库存").Cells(1, 2), .Width / 4, lvwColumnCenter .ColumnHeaders.Add 3, , Sheets("库存").Cells(1, 3), .Width / 4, lvwColumnCenter .ColumnHeaders.Add 4, , Sheets("库存").Cells(1, 4), .Width / 4, lvwColumnCenter .View = lvwReport .Gridlines = True .FullRowSelect = True .HotTracking = True .OLEDragMode = 1 .OLEDropMode = 1 End With TextBox1.SetFocus End Sub 3. 为按钮添加如下代码，即当在TextBox输入内容后，按“查询”按钮后，将符合查询要求的记录添加ListView里； Private Sub CommandButton1_Click() ListView1.ListItems.Clear '清除listview1中的内容 With Sheets("库存") For i = 2 To .[A65536].End(xlUp).Row If InStr(1, .Cells(i, 1).Value, TextBox1.Text, vbTextCompare) Then Set itm = ListView1.ListItems.Add() '为listview1控件里面的行添加内容 itm.Text = .Cells(i, 1) '为行标赋值 itm.SubItems(1) = .Cells(i, 2) itm.SubItems(2) = .Cells(i, 3) itm.SubItems(3) = .Cells(i, 4) End If Next i If ListView1.ListItems.Count = 0 Then MsgBox "未查询到相关记录！", 64, "结果" End With End Sub 4. 为ListView的双击添加响应事件，以便将记录录入到单元格中： Private Sub ListView1_DblClick() i = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(i, 1).Value = ListView1.SelectedItem.Text Cells(i, 2).Value = ListView1.SelectedItem.SubItems(1) Cells(i, 3).Value = ListView1.SelectedItem.SubItems(2) Cells(i, 4).Value = ListView1.SelectedItem.SubItems(3) End Sub 5. 如上代码添加后，效果如下：附件： zz手把手教你建立ListView通用查询窗体.rar
2楼清华	又发现好东西了
3楼清华	录制一个制作全过程　能看的明白
4楼 zzmxy	这个操作过程比较长，如果录制可能容量会过大…… 不过，有空的时候我尝试一下吧……
5楼 imaiche	发现好东西了
6楼 zjiakou
7楼 bensonlei	很酷!
8楼吾股丰登	学习了谢谢
9楼刘志文	很不错,学习了!
10楼联系谁	很不错,学习了!能否增加录入功能
11楼 winnie_xyh	这个真不错，收藏一下，谢谢ZZ老师！
12楼千梦缘	谢谢分享，值得学习，正好解决录入问题
13楼 luan2000	发现好东西了
14楼 huiwennuan	你太厉害了！能否留个联系方式，要和您学习！现在真的很有需要！
15楼 huiwennuan	又来学习了，真佩服您，楼主，向向您学习！
16楼 huiwennuan	经典的listview，睡不着再来看一看
17楼 huiwennuan	ZZ，你还经常来社区吗？
18楼 huiwennuan	zz，代码中是否有不足呢？ Private Sub ListView1_DblClick() i = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(i, 1).Value = ListView1.SelectedItem.Text Cells(i, 2).Value = ListView1.SelectedItem.SubItems(1) Cells(i, 3).Value = ListView1.SelectedItem.SubItems(2) Cells(i, 4).Value = ListView1.SelectedItem.SubItems(3) End Sub 这段代码没有指明是将双击选中的内容添加到sheet（库存）还是sheet（记录）。我试过，如果打开的是库存工作表，则内容加入库存中；反之是加入记录中。你看看，是不是这样子呢？能和你取得联系吗？很希望和你学习这个程序。我自己修改后，想让双击选中的内容指定加入“记录”工作表中，但是没成功。如果你看到我的回复，希望指出我的错误。代码如下： Private Sub ListView1_DblClick() With Sheets("记录") i = Sheets("记录").Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(i, 1).Value = ListView1.SelectedItem.Text .Cells(i, 2).Value = ListView1.SelectedItem.SubItems(1) .Cells(i, 3).Value = ListView1.SelectedItem.SubItems(2) .Cells(i, 4).Value = ListView1.SelectedItem.SubItems(3) End With End Sub
19楼 mgame168	剛好正在找ListView的相關代碼板大這段代碼符合我的需求感謝~ 學習了!!
20楼 wly	感觉挺好的，谢谢分享了**
21楼 wly	感觉挺好的，谢谢分享了**
22楼 wly	运行了一下，说我下标越界，这个是怎么回事呢？
23楼 wly	试了,但是查询窗体中标签显示不出来内容
24楼有来有往	跟着复制粘贴了一回。不成功。窗体显示代码没有？我怎么做完提示要使用宏而你的就不用了？
25楼 sgh-8	又发现好东西了
26楼海洋之星	谢谢分享，学习了，哈哈
27楼文宇	很好
28楼 hg0415	好东西，收藏了！
29楼 ctzl	这样加载了控件，进行了引用，还是不行，是什么问题呢！
30楼 zjgzgs	学习了谢谢