二个表根据“项目编号”找查出相同数据,表A中是多行或单行,表B中“中标单位”列为多值列,下面代码出错:
Dim dr As DataRow = Tables("表B").Current.DataRow
Dim Lis1 As New List(of String)
For Each nn As String In dr("中标单位").split(",")
If lis1.Contains(nn) = False Then
lis1.Add(nn)
End If
Next
Dim str1 As String = lis1
str1 = str1.Replace("|","','")
Dim lis2 As New List(of String)
lis2 = DataTables("表A").GetValues("投标单位","项目编号 = '" & dr("项目编号") & "' and 投标单位 in ('" & str1 & "')")
Dim str As String = String.Join("|",lis2.ToArray)
msgbox(str)