主题：请教袍哥字符比较

来一壶龙井如何？

已经写完，看2、3楼。

当第二列字符长度小于第一列的时候，就不行了，如何改动代码不会呀？

代码没问题，不会报错。

看不懂代码，就重新看语法。

 

意思就是不断截取不同长度的字符去比较而已啊。

报错，比如第二列就一行中华

另外如果是两个字符串集合进行比较，又如何写代码？

不报错

怎么可能？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目54.zip

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 fdr As DataRow = DataTables("表A").find("第二列 like '%" & str & "%'")
        If fdr IsNot Nothing Then
            For j As Integer = 3 To dr("第一列").length - i
                Dim s = dr("第一列").Substring(i, j)
                Dim ffdr = DataTables("表A").find("第二列 like '%" & s & "%'")
                If ffdr IsNot Nothing Then
                    str = s
                Else
                    Exit For
                End If
            Next
            msgbox(dr("第一列") & " " & str & " " & fdr("第二列"))
            Exit For
        End If
    Next
Next