对Vb.net中没有重复的数据网格视图上的所有行进行计数

Dim count As Integer = 0

For Each row As DataGridViewRow In dataGridView1.Rows
    Dim isDuplicate As Boolean = False
    
    For Each previousRow As DataGridViewRow In dataGridView1.Rows
        If row.Index <> previousRow.Index Then
            ' 判断当前行的数据是否与之前的行相同
            If row.Cells("ColumnName").Value = previousRow.Cells("ColumnName").Value Then
                isDuplicate = True
                Exit For
            End If
        End If
    Next
    
    ' 如果当前行的数据在之前的行中没有找到重复，计数加1
    If Not isDuplicate Then
        count += 1
    End If
Next

' 输出计数结果
Console.WriteLine("没有重复数据的行数为：" & count)