主题：如何分析记录特性定位到列

1、2，参考代码

Dim dt As DataTable = DataTables("表A")
Dim cname As String = "第二列"
Dim drs = dt.Select("", cname)
Dim count1 As Integer = 0
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
For Each dr As DataRow In drs
    If pdr IsNot Nothing AndAlso pdr(cname) <> dr(cname) Then
        If count > 1 Then
            count1 += 1
        End If
        count = 1
    Else
        count += 1
    End If
    pdr = dr
Next
If count > 1 Then
    count1 += 1
End If
msgbox(count1)

3、

Dim dt As DataTable = DataTables("表A")
Dim cname As String = "第二列"
Dim drs1 = dt.Select("", cname)
Dim drs2 = dt.Select("", "_Sortkey")
For i As Integer = 0 To drs1.count-1
    If drs1(i)(cname) <> drs2(i)(cname) Then
        msgbox("不同")
        Return
    End If
Next

msgbox("相同")