主题：请教袍哥字符比较

什么称之为重复的不显示？举例说明。

加上代码

 

If drs.count > 0 Then Exit For

For Each dr As DataRow In DataTables("表A").DataRows
    For i As Integer = 0 To dr("第一列").length - 2
        Dim str As String = dr("第一列").Substring(i, 2)
        Dim drs As List(of DataRow) = DataTables("表A").Select("第二列 like '%" & str & "%'")
        For Each cdr As DataRow In drs
            Dim temp As String = str
            For j As Integer = 3 To dr("第一列").length - i
                Dim s = dr("第一列").Substring(i, j)
                If cdr("第二列") Like "*" & s & "*" Then
                    temp = s
                Else
                    Exit For
                End If
            Next
            If dr("第一列") <> dr("第二列") Then
                'If dr("第一列") <> cdr("第二列") Then
                msgbox(dr("第一列") & " " & temp & " " & cdr("第二列"))
            End If
        Next
        If drs.count > 0 Then Exit For
    Next
Next

就是这样模糊匹配的，这个是最简单的方法。

例子，什么不行啊。

 

早说你是这样的逻辑

 

DataTables("表B").datarows.Clear
For Each dr As DataRow In DataTables("表A").DataRows
    For i As Integer = 0 To dr("第一列").length - 2
        Dim str As String = dr("第一列").Substring(i, 2)
        Dim drs As List(of DataRow) = DataTables("表A").Select("第二列 like '%" & str & "%'")
        For Each cdr As DataRow In drs
            'Dim temp As String = str
            'For j As Integer = 3 To dr("第一列").length - i
            'Dim s = dr("第一列").Substring(i, j)
            'If cdr("第二列") Like "*" & s & "*" Then
            '    temp = s
            'Else
            '    Exit For
            'End If
            'Next
            If dr("第一列") <> cdr("第二列") Then
                Dim ndr As DataRow = DataTables("表B").find("第一列 = '" & dr("第一列") & "' and 第二列 = '" & cdr("第二列") & "'")
                If ndr Is Nothing Then
                    ndr = DataTables("表B").AddNew
                    ndr("第一列") = dr("第一列")
                    ndr("第二列") = cdr("第二列")
                End If
            End If
        Next
    Next
Next