窗体Listview控件代码出现类型不匹配，麻烦你看一下是什么原因

10307951261

Private Sub cmd查询_Click()
    Dim Item As MSComctlLib.ListItem, k%
    ListView1.ListItems.Clear
    Erase ListRows: Erase ListCols  '清空数组
    For i = 2 To UBound(arr)
        If arr(i, 2) Like "*" & ComboBox1.Text And arr(i, 3) Like "*" & ComboBox2.Text And _
            arr(i, 7) Like "*" & ComboBox3.Text Then
            For j = 4 To 7 '依次检索责任者、文件字号、文件题名、文件日期
                If arr(i, j) Like "*" & TextBox1.Text & "*" Then
                    Set Item = ListView1.ListItems.Add
                    Item.Text = arr(i, 1)
                    For k = 2 To UBound(arr, 2)
                        Item.SubItems(k - 1) = arr(i, k)
                    Next
                    Exit For
                End If
            Next
        End If
    Next
    k = ListView1.ListItems.Count
    Label10.Caption = "检索结果：" & IIf(k > 0, "从 " & UBound(arr) - 1 & " 条记录中匹配出 " & k & " 条记录。", "无匹配的记录。")
End Sub
代码出现类型不匹配，各位大虾麻烦你看一下是什么原因 管理台帐 - 副本.zip (42.45 KB, 下载次数: 92)

2019-5-13 23:06 上传

点击文件名下载附件

10307951261

哪位大侠帮帮忙吧

microyip

这么多非法值，能不出错吗？

10307951261

microyip 发表于 2019-5-14 08:27
这么多非法值，能不出错吗？

谢谢大侠   如果允许非法值存在怎么改代码

一指禅62

10307951261 发表于 2019-5-14 10:20
谢谢大侠   如果允许非法值存在怎么改代码

Private Sub cmd查询_Click()
    Dim Item As MSComctlLib.ListItem, k%
    ListView1.ListItems.Clear
    Erase ListRows: Erase ListCols  '清空数组
    On Error Resume Next
    For i = 2 To UBound(arr)
        If arr(i, 2) Like "*" & ComboBox1.Text And arr(i, 3) Like "*" & ComboBox2.Text And _
            arr(i, 7) Like "*" & ComboBox3.Text Then
            For j = 4 To 7 '依次检索责任者、文件字号、文件题名、文件日期
                If arr(i, j) Like "*" & TextBox1.Text & "*" Then
                    Set Item = ListView1.ListItems.Add
                    Item.Text = arr(i, 1)
                    For k = 2 To UBound(arr, 2)
                        Item.SubItems(k - 1) = arr(i, k)
                    Next
                    Exit For
                End If
            Next
        End If
    Next
    k = ListView1.ListItems.Count
    Label10.Caption = "检索结果：" & IIf(k > 0, "从 " & UBound(arr) - 1 & " 条记录中匹配出 " & k & " 条记录。", "无匹配的记录。")
End Sub

microyip

1. IF Not IsError(arr(i, k)) Then Item.SubItems(k - 1) = arr(i, k)

复制代码

10307951261

microyip 发表于 2019-5-14 11:57

谢谢大侠   

10307951261

一指禅62 发表于 2019-5-14 10:29
Private Sub cmd查询_Click()
    Dim Item As MSComctlLib.ListItem, k%
    ListView1.ListItems.Cl ...

谢谢大侠指导

zhshmin2039

怎么解决的？？？？