VBA窗体Listview控件完全教程

wowo000

谢谢！谢谢！！！

用心修炼

版主，win7的64位操作系统13版的excel用不了listview控件。网上找了很多解决办法的教程，都不行。虽然提示控件注册成功，但是附加控件中，找不到！求解

ivccav

用心修炼 发表于 2019-5-21 21:09
版主，win7的64位操作系统13版的excel用不了listview控件。网上找了很多解决办法的教程，都不行。虽然提示 ...

不要使用64位版本的Office，微软官方都说得很清楚了，64位EXCEL只在处理很多图片时有点用，其他时候都是废品，因为64位Office无法使用大部分控件。

用心修炼

ivccav 发表于 2019-5-21 21:16
不要使用64位版本的Office，微软官方都说得很清楚了，64位EXCEL只在处理很多图片时有点用，其他时候都 ...

版主，那就是说我把之前的office组件卸载掉，然后重新下载32位的office就可以了，是吗？与电脑安装的win7的64为操作系统没有关系的吧

ivccav

用心修炼 发表于 2019-5-22 08:16
版主，那就是说我把之前的office组件卸载掉，然后重新下载32位的office就可以了，是吗？与电脑安装的win7 ...

64位系统没有关系，office用32位的

wowo000

尊敬的ivccav老师，“Private Sub RefreshListView() '刷新Listview”这段代码绕来绕去，绕得俺很头疼。打开窗体ListView1里展示货物表Sheet4的A列至E列的信息，ListView1数量列都为0或空；当ComboBox1为空白时，ListView1里同样展示货物表Sheet4的A列至E列的信息，ListView1数量列都为0或空。不要像现在这样：当ComboBox1为空白时，ListView1里展示货物表Sheet4所有订单合同号所有货物名称所有数量都展示出来了，而打开窗体ListView1一片空白。请解惑！

wowo000

打开窗体ListView1里展示货物表Sheet4的A列至E列的信息，ListView1数量列都为空，俺在模块1里加了下面代码实现了，但是当清除ComboBox1（比如：俺选择ah8977订单合同号，然后Delete键删除）为空白时，就不能还初始打开时的状态了，恳请醍醐灌顶！
    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

打开窗体ListView1里展示货物表Sheet4的A列至E列的信息，ListView1数量列都为空，俺在模块1里加了下面代码实现了，但当清除ComboBox1（比如：俺选择ah8977订单合同号，然后Delete键删除）为空白时，就不能还初始打开时的状态了，恳请醍醐灌顶！
    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

打开窗体ListView1里展示货物表Sheet4的A列至E列的信息，ListView1数量列都为空，俺在模块1里加了下面代码实现了，但当清除ComboBox1（比如：俺选择ah8977订单合同号，然后Delete键删除）为空白时，就不能还初始打开时的状态了，恳请醍醐灌顶！
    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

打开窗体ListView1里展示货物表Sheet4的A列至E列的信息，ListView1数量列都为空，俺在模块1里加了下面代码实现了，但当清除ComboBox1（比如：俺选择ah8977订单合同号，然后Delete键删除）为空白时，就不能还初始打开时的状态了，恳请醍醐灌顶！