This should be it:
Code:For Each strLine As String In TextBox2.Text.Split(vbNewLine) Dim SearchFor As String = strLine.ToString If SearchFor <> "" Then Dim ItemToFind As String = SearchFor.Substring(SearchFor.LastIndexOf("=") + 1).TrimStart Dim ColumnName As String = SearchFor.Substring(SearchFor.FirstIndexOf("=") + 1).TrimStart Dim conjuction As String = "AND" Dim useANd As Boolean If Not useAND Then conjuction = "OR" End If For Each dr As DataRow In PostalSorter.DtSample.Rows If MyDataTable.Rows(RowNumber)(ColumnName) = ItemToFind Then DataGridView1(0, DataGridView1.Rows(RowNumber).Index).Value = True DataGridView1.Rows(RowNumber).DefaultCellStyle.ForeColor = Color.Red End If Next End If




Reply With Quote
