2

我的 DataGrid 有特定的列，如果值是该列的第一、第二或第三最佳值，我想将背景颜色应用于单元格。数据类型都是原语，可以是字符串、整数、字节或双精度。

在我使用 Winforms 的旧 VB 项目中，我会执行以下操作： - 遍历列并仅选择我想要着色的那些；- 对于每一列，我将从该单元格的所有行中提取所有不同的值；- 我会对值进行排序，并根据我对该行的偏好确定前三个值，升序或降序；- 如果与前三个值之一匹配，我将再次遍历列并为单元格背景颜色着色。我首先使用黄色，其次使用浅绿色，然后使用浅蓝色。

我找到了设置值转换器的好例子，但我不知道查看该特定列的所有数据的好方法。据我所知，WPF 的 DataGrid 似乎不允许您访问单个单元格。

我错了吗？有没有办法做到这一点？

这是 8 年前用于 WinForms 网格的 VB 代码以供参考 - 它不仅仅是为单元格着色。我什至找不到在 WPF 中开始执行此操作的好方法。

Private Sub ColorizeRows(ByRef dgv As DataGridView) ' 为行着色 Dim colors() As System.Drawing.Color = {Color.Yellow, Color.Orange, Color.LightBlue}

For Each column As DataGridViewColumn In dgv.Columns
  If column.Visible = True Then

    Dim vals() As Object = GetDistinctValuesFromColumn(dgv, column.Index)

    Select Case column.ToolTipText.ToLower()
      Case "d"
        For Each row As DataGridViewRow In dgv.Rows
          row.Cells(column.Index).Style.BackColor = dgv.Columns(column.Index).DefaultCellStyle.BackColor
        Next
        Dim lowCount As Integer = (vals.GetUpperBound(0) + 1) - 3
        If lowCount < 0 Then lowCount = 0
        For j As Integer = vals.GetUpperBound(0) To lowCount Step -1
          For Each row As DataGridViewRow In dgv.Rows
            If (Not (row.Cells(column.Index).FormattedValue Is DBNull.Value)) Then
              If CStr(row.Cells(column.Index).FormattedValue) = CStr(String.Format("{0:n1}", vals(j))) Then
                row.Cells(column.Index).Style.BackColor = colors(vals.GetUpperBound(0) - j)
              End If
            End If
          Next
        Next

      Case "a"
        ' First de-colorize the row
        For Each row As DataGridViewRow In dgv.Rows
          row.Cells(column.Index).Style.BackColor = dgv.Columns(column.Index).DefaultCellStyle.BackColor
        Next
        Dim lowCount As Integer = 2
        If lowCount > vals.GetUpperBound(0) Then lowCount = vals.GetUpperBound(0)
        For j As Integer = 0 To lowCount
          For Each row As DataGridViewRow In dgv.Rows
            If (Not (row.Cells(column.Index).FormattedValue Is DBNull.Value)) Then
              If CStr(row.Cells(column.Index).FormattedValue) = CStr(String.Format("{0:n1}", vals(j))) Then
                row.Cells(column.Index).Style.BackColor = colors(j)
              End If
            End If
          Next
        Next

      Case Else
        ' do nothing

    End Select

    ' Copy the highlighting rules from the EGB box to the EGL box if we're on the dgv
    If dgv.Name = "dgvRace" Then
      For i As Integer = 0 To dgv.Rows.Count - 1
        dgv.Rows(i).Cells("effGradeLetter").Style = dgv.Rows(i).Cells("effGradeLarge").Style
      Next
    End If

    ' Update all the tooltips for each box
    Dim places() As String = {"1st", "2nd", "3rd", "4th", "5th", "6th", "7th", "8th"}
    For Each row As DataGridViewRow In dgv.Rows
      ' Update tooltiptext for each row
      Dim place As Integer = FindIndexInArray(vals, row.Cells(column.Index).FormattedValue)
      If place > -1 Then
        Dim placeStr As String = IIf(column.ToolTipText.ToLower() = "d", places(vals.GetUpperBound(0) - place), places(place))
        'If column.ToolTipText.ToLower() = "d" Then place = vals.GetUpperBound(0) - place
        row.Cells(column.Index).ToolTipText = String.Format("Column Place {0}", placeStr)
        If row.Cells(column.Index).Value.GetType().ToString() = "System.Single" Or row.Cells(column.Index).Value.GetType().ToString() = "System.Int32" Then
          ' Get upper/lower difference if available
          If place > 0 Then
            Dim distFromPlaceBefore As Single = Math.Abs(CSng(vals(place)) - CSng(vals(place - 1)))
            Dim distFromFirstPlace As Single = Math.Abs(CSng(vals(place)) - CSng(vals(0)))
            row.Cells(column.Index).ToolTipText &= ControlChars.CrLf & String.Format(" - Distance from {0}: {1:n1}; Distance from 1st: {2:n1}", places(place - 1), distFromPlaceBefore, distFromFirstPlace)
          End If
          If place < vals.GetUpperBound(0) Then
            Dim distFromPlaceAfter As Single = Math.Abs(Math.Round(CSng(vals(place)) - CSng(vals(place + 1)), 1))
            Dim distFromLastPlace As Single = Math.Abs(Math.Round(CSng(vals(place)) - CSng(vals(vals.GetUpperBound(0))), 1))
            row.Cells(column.Index).ToolTipText &= ControlChars.CrLf & String.Format(" - Distance from {0}: {1:n1}; Distance from {3}: {2:n1}", places(place + 1), distFromPlaceAfter, distFromLastPlace, places(vals.GetUpperBound(0)))
          End If
        End If
      End If

    Next

  End If
Next

更新：我能否以某种方式附加列和源网格，以便我可以获得值并获得做出着色决定所需的内容？

4

2 回答 2

1

看看这篇文章。我认为这正是你所需要的。注意带有 MultiBinding 和 CellColorConverter 的 ElementStyle。

于 2013-06-03T06:46:16.233 回答
0

您可以访问 DataGrid 中的单个单元格：http: //msdn.microsoft.com/en-us/library/system.windows.controls.datagrid.cellstyle.aspx

于 2013-06-03T05:57:03.927 回答