主题：二个字符串列中找出二个以上相同字符串

比如输入 123456，那么就要模糊匹配 12、23、34、45、56 这些字符？

Dim str As String = "123456"
Dim filter As String = "1=2"
For i As Integer = 1 To str.length-1
    filter &= " or 第一列 like '%" & str.SubString(i-1, 2) & "%'"
Next
msgbox(filter)

Dim fd As DataRow = DataTables("企业信用分").Find("企业名称 = '" & ddr("投标单位") & "' And 年月 = '" & dr("信用分月份") & "'")   ' And 企业类别 Like '%" & s & "%'")

改成

Dim fd As DataRow = DataTables("企业信用分").Find("企业名称 = '" & ddr("投标单位") & "' And 年月 = '" & dr("信用分月份") & "' And 企业类别 Like '%" & s & "%'")

代码没问题，实例发出来测试