二个字符串列中找出二个以上相同字符串 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

二个字符串列中找出二个及以上相同字符串

表A的第一列中有“监理工程，施工工程”等等，如果在表B的第二列中输入一个“监理单位”，如何把表A的第一列中所有含有“监理”的行筛选出来，如果在表B的第二列中输入一个“BBB111”，如何把表A的第一列中所有含有“BBB”的行筛选出来？

此主题相关图片如下：99999994918.png

比如输入 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)

下面红色部分代码错在哪里，我的需求是：同时满足三个条件，"企业名称 = '" & ddr("投标单位") & "' And 年月 = '" & dr("信用分月份") & "'" 和 dt("企业类别").Contains(s)

Case "信用联动系数","信用分月份"

'''''============计算信用分值=============

Dim fdr As DataRow = DataTables("招标信息").Find("系统编号 = '" & dr("系统编号") & "'")

If fdr IsNot Nothing Then

Dim ddrs As List(of DataRow)

ddrs = DataTables("标录明细").Select("系统编号 = '" & dr("系统编号") & "'")

For Each ddr As DataRow In ddrs

If dr.IsNull("信用联动系数") = False OrElse dr.IsNull("信用分月份") = False Then

For i As Integer = 0 To dr("咨询类型").Length - 2 '两个字符串中有两个连续字符相同 AA

Dim s As String = dr("咨询类型").Substring(i,2)

For Each dt As DataRow In DataTables("企业信用分").DataRows

If dt("企业类别").Contains(s) Then 'AA

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

If fd IsNot Nothing Then

If fdr("投标地区") = fd("地区") Then

ddr("信用分值") = fd("信用分值") * dr("信用联动系数")

End If

Else

ddr("信用分值") = Nothing

End If

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

改成

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

有点甜老师：

改成4楼出来的结果是"企业名称 = '" & ddr("投标单位") & "' And 年月 = '" & dr("信用分月份") & "'" 这个条件实施了，但And 企业类别 Like '%" & s & "%'")不起作用

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

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