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

下面红色部分代码错在哪里，我的需求是：同时满足三个条件，"企业名称 = '" & 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

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