各位大神 帮忙看看哪里出了问题

215351782

1. Sub 查询(Lvw As ListView, Firstdate As Date, Lastdate As Date, Index As String)
   
2.     Dim arr()
   
3.     Dim Item As ListItem
   
4.     Dim i As Integer
   
5.     Dim n As Byte
   
6.     Dim Hj As Long
   
7.     arr = Sheet12.Range("A2:G" & Sheet1.Range("A65536").End(xlUp).Row)
   
8.     With Lvw.ListItems
   
9.         .Clear
   
10.         For i = 1 To UBound(arr)
    
11.             If arr(i, 3) = Index And arr(i, 6) >= Firstdate And arr(i, 6) <= Lastdate Then
    
12.                 Set Item = .Add()
    
13.                 Item.Text = arr(i, 1)
    
14.                 For n = 2 To 7
    
15.                     Item.SubItems(n - 1) = arr(i, n)
    
16.                 Next
    
17.             End If
    
18.         Next
    
19.         For i = 1 To .Count
    
20.             Hj = Hj + .Item(i).ListSubItems(6).Text
    
21.         Next
    
22.         Set Item = .Add()
    
23.         With Item
    
24.             .SubItems(5) = "数量合计:"
    
25.             .SubItems(6) = Hj
    
26.             .ListSubItems(5).Bold = True
    
27.             .ListSubItems(5).ForeColor = vbRed
    
28.             .ListSubItems(6).Bold = True
    
29.             .ListSubItems(6).ForeColor = vbRed
    
30.         End With
    
31. <span style="background-color: yellow;">        QueryFrm.TextBox10.Text = Hj</span>
    
32.     End With
    
33. End Sub
    

复制代码

运行到黄色部分 提示要求对象  求大神帮忙看下哪里出错了

215351782

Sub 查询(Lvw As ListView, Firstdate As Date, Lastdate As Date, Index As String)
    Dim arr()
    Dim Item As ListItem
    Dim i As Integer
    Dim n As Byte
    Dim Hj As Long
    arr = Sheet12.Range("A2:G" & Sheet1.Range("A65536").End(xlUp).Row)
    With Lvw.ListItems
        .Clear
        For i = 1 To UBound(arr)
            If arr(i, 3) = Index And arr(i, 6) >= Firstdate And arr(i, 6) <= Lastdate Then
                Set Item = .Add()
                Item.Text = arr(i, 1)
                For n = 2 To 7
                    Item.SubItems(n - 1) = arr(i, n)
                Next
            End If
        Next
        For i = 1 To .Count
            Hj = Hj + .Item(i).ListSubItems(6).Text
        Next
        Set Item = .Add()
        With Item
            .SubItems(5) = "数量合计:"
            .SubItems(6) = Hj
            .ListSubItems(5).Bold = True
            .ListSubItems(5).ForeColor = vbRed
            .ListSubItems(6).Bold = True
            .ListSubItems(6).ForeColor = vbRed
        End With
        QueryFrm.TextBox10.Text = Hj
    End With
End Sub
   


运行到 QueryFrm.TextBox10.Text = Hj  提示错误 要求对象

abc123281

需要上传附件