Posted 9 April 2020, 11:37 pm EST
Hello,
How do I modify the code below to replace a Grid control with a Multiselect control to highlight rows in another Grid. I need to highlight rows using both the “AND” / “OR” approach where selected fields contain two or more records in selected Field(s). The code below only uses the “AND” approach which requires combination of all selected fields have identical data in two or more records. For the “OR” approach, the records are highlighted when either selected fields have identical data in two or more records.
Button_Click Event:
yx = “”
For Each Srow In Me.C1TrueDBGrid9.SelectedRows
If vc1 > 0 Then
yx = yx & “, " & “'” & Me.C1TrueDBGrid9.Columns(0).CellText(Srow) & “'”
Else
yx = “'” & Me.C1TrueDBGrid9.Columns(0).CellText(Srow) & “'”
End If
vc1 = vc1 + 1
If yx.StartsWith(”,") Then
yx = yx.Substring(1, yx.Length - 1)
End If
Next
apply = True
C1Screen1.Refresh()
C1Screen1.FetchRowStyles = True
Private Sub C1Screen1_FetchRowStyle(sender As Object, e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Screen1.FetchRowStyle Try Dim checkCols As String = yx If checkCols.Count > 0 Then Dim tempRow = C1Screen1.FocusedSplit.Rows.OfType(Of C1.Win.C1TrueDBGrid.BaseGrid.ViewRow).ToList() Dim flag As Boolean = False Dim origItem As String = "" For Each item As String In checkCols.Split(","c) origItem = origItem + C1Screen1(e.Row, item.Trim("'"c)).ToString() Next For j As Integer = 0 To tempRow.Count - 1 Dim tempItem As String = "" For Each item As String In checkCols.Split(","c) tempItem = tempItem + C1Screen1(j, item.Trim("'"c)).ToString() Next If Not flag AndAlso e.Row <> j Then If origItem = tempItem Then flag = True End If End If Next If flag Then e.CellStyle.BackColor = Drawing.Color.DarkGreen e.CellStyle.ForeColor = Drawing.Color.White End If Else End If Catch 'ccc = 1 End Try End Sub
Thanks,
Victor
