如何跟踪listview中除了正在编辑VB6的行之外是否存在其他值

Dim editingRow As Integer
Dim hasOtherValues As Boolean

' 获取正在编辑的行索引
editingRow = ListView1.SelectedItem.Index

' 遍历ListView的所有行
For i = 1 To ListView1.ListItems.Count
    ' 跳过正在编辑的行
    If i <> editingRow Then
        ' 检查非编辑行的值
        For j = 1 To ListView1.ColumnHeaders.Count
            If ListView1.ListItems(i).SubItems(j).Text <> "" Then
                ' 存在其他值
                hasOtherValues = True
                Exit For
            End If
        Next j
    End If
Next i

' 判断是否存在其他值
If hasOtherValues Then
    MsgBox "除了正在编辑的行之外存在其他值。"
Else
    MsgBox "除了正在编辑的行之外不存在其他值。"
End If