Dim s77 As String = DataTables("外挂学校特征代码").DataRows(0)("外挂学校特征代码") Dim Values() As String Values = s77.split("|")MessageBox.Show(Values(0)) For i7 As Integer = 0 To Values.Length - 1 For i As Integer = 1 To sheet.Rows.Count -1
If sheet(i,4).Text Like " *& Values(i7) &* " Then