VBA窗体Listview控件完全教程

kimmyyang · 发表于 2019-5-22 16:41

不错不错，值的收藏

wowo000 · 发表于 2019-5-22 16:42

Dim Item As ListItem
' Dim i As Integer
Dim n As Byte
With QueryForm.ListView1.ListItems
      .Clear
      For i = 2 To UBound(arr)
'          If VBA.Len(QueryForm.ComboBox1.Value) = "" Then
         If QueryForm.ComboBox1 = "" Then
            Set Item = .Add()
            Item.Text = arr(i, 1)
            For n = 2 To 6
                  Item.SubItems(n - 1) = arr(i, n)
            Next
         End If
      Next
End With

wowo000 · 发表于 2019-5-22 17:34

很抱歉，网络问题发了多发几次。对不起。

ivccav · 发表于 2019-5-22 20:17

wowo000 发表于 2019-5-22 16:38
打开窗体ListView1里展示货物表Sheet4的A列至E列的信息，ListView1数量列都为空，俺在模块1里加了下面代码 ...

开单20180617.zip (86.86 KB, 下载次数: 181)

wowo000 · 发表于 2019-5-22 21:01

谢谢您，是该好好学学了。

wowo000 · 发表于 2019-5-22 21:31

尊敬的ivccav：又出现“TextBox1_Change”不能模糊查询了，烦请解惑！！最后一个问题点了。

wowo000 · 发表于 2019-5-22 21:32

ComboBox1为空时，TextBox1_Change不能模糊查询

用心修炼 · 发表于 2019-5-22 22:13

ivccav 发表于 2019-5-22 11:53
64位系统没有关系，office用32位的

版主，我又遇到新的问题了！我今天卸载了之前的office组件，又重新安装了32位的office，也重新注册了MSCOMCTL.OCX控件，在附加控件中也找到了listview控件，当我在窗体上画一个listview控件的时候，又弹出来一个警告对话框，显示：classfactory无法供应请求的类。不知道是什么意思。在网上搜索相关问题，说是控件版本的问题，要用新版本。不确定是不是这个问题。我下载的控件版本是：6.1.95.45。如果是这个问题，能否给个最新的控件下载地址，谢谢！

wowo000 · 发表于 2019-5-23 16:55

尊敬的老师，俺今天又把“RefreshListView() '刷新Listview”这段代码琢磨了一天了，还是弄不出来，实现不了当ComboBox1为空时，为啥TextBox1_Change不可以迷糊查询，还请解惑！

ivccav · 发表于 2019-5-23 18:59

用心修炼发表于 2019-5-22 22:13
版主，我又遇到新的问题了！我今天卸载了之前的office组件，又重新安装了32位的office，也重新注册了MSCO ...

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

[原创] VBA窗体Listview控件完全教程