|
Dim rw As String
rw = Sheets("标本送检登记表").Range("A65536").End(xlUp).Row
Dim total As String
Dim KZ As String
KZ = Sheets("标本送检登记表").Cells(i, 5).Text
total = 0
If KZ = "" Then
With Sheets("标本送检登记表")
For i = 2 To rw
Set ITM = ListView1.ListItems.Add()
ITM.Text = .Cells(i, 1)
ITM.SubItems(1) = .Cells(i, 2)
ITM.SubItems(2) = .Cells(i, 3)
ITM.SubItems(3) = .Cells(i, 4).Text
ITM.SubItems(4) = .Cells(i, 5)
ITM.SubItems(5) = .Cells(i, 6)
Next i
End With
End If
Label31.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
红色字体部分在调试时显示错误!
敬请高手指点,万分感谢!
|
|