使用 LINQ 从 DataView 检索行索引

Question

我的 DataView 的 Table 属性分配给我的 DataTables 之一。然后将 DataView 设置为我的 DataGridView 的 DataSource。像这样：

View.Table = DataSet1.Tables("dtArticles")
dgvArticles.DataSource = View

我的目标是对某些给定的行执行一些格式化。不幸的是，我发现这样做的唯一方法是使用 CellFormatting 事件。这很长，因为它必须遍历每一行并验证该行是否需要某种格式（粗体、背景色）。

单元格格式化

Private Sub dgvArticles_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvArticles.CellFormatting
    Dim drv As DataRowView
    If e.RowIndex >= 0 Then
        If e.RowIndex <= DataSet1.Tables("dtArticles").Rows.Count - 1 Then
            drv = View.Item(e.RowIndex)
            Dim c As Color

            'Bolds if it is standard, makes it regular if it's not standard and already bold
            If drv.Item("Standard").ToString = "Yes" Then
                dgvArticles.Rows(e.RowIndex).DefaultCellStyle.Font = New Font("Microsoft Sans Sherif", 8, FontStyle.Bold)
            End If

            'Test if Standard is "No" and if the row is currently bold, if it is, put it back to regular
            If drv.Item("Standard").ToString = "No" And Not dgvArticles.Rows(e.RowIndex).DefaultCellStyle.Font Is Nothing Then
                If dgvArticles.Rows(e.RowIndex).DefaultCellStyle.Font.Bold Then
                    dgvArticles.Rows(e.RowIndex).DefaultCellStyle.Font = New Font("Microsoft Sans Sherif", 8, FontStyle.Regular)
                End If
            End If

            'Puts a red color to the rows who are not available
            If drv.Item("Available").ToString = "No" Then
                'Change back color
                c = Color.LightSalmon
                e.CellStyle.BackColor = c
            End If
        End If
    End If
End Sub

这是对添加到 DataGridView 中的每一行的单元格做的；它检查我的Standard 列的当前值是否等于是或否。根据结果，它将加粗/取消加粗该行。我的Available 专栏也是如此。如果可用值等于“否”，那么我将浅红色的背景颜色添加到该行。此事件被多次引发（10,000 篇文章，DataTable 大约有 10 列）。

平均约 2.2-2.7 秒

---

遍历 DataView

Dim i As Integer = 0
For Each dt As BillMat.dtArticlesRow In View.Table.Rows
    If dt.Standard = "Oui" Then dgvArticles.Rows(i).DefaultCellStyle.Font = New Font("Microsoft Sans Sherif", 8, FontStyle.Bold)
    If dt.Available = "Non" Then dgvArticles.Rows(i).DefaultCellStyle.BackColor = Color.LightSalmon
    i += 1
Next

平均约 1.5-1.7 秒

---

是否可以使用 LINQ 选择 Standard 列等于“是”而 Available 列等于“否”的 RowIndex ？如果是的话，使用索引来应用格式不是比遍历整个 10,000 篇文章要快得多吗？

Answer 1

我不知道使用 Link 是否是解决您问题的最佳方法。

您应该首先尝试简化DataGridView.CellFormatting 事件中的代码。一些可能的方法：

• 创建一个常规和粗体字体的私有实例以避免在方法中创建多个实例
• 我猜如果第一个条件通过了，您就不需要测试第二个条件。所以If End If + If End If 可以替换为If Else End If（不需要测试这两个表达式）
• 使用If x AndAlso y Then 代替If x And y Then：如果第一个表达式为假，则不会测试第二个表达式

• 我不明白这个If e.RowIndex <= DataSet1.Tables("dtArticles").Rows.Count - 1 Then 的目的。如果目标不是测试该行是否为 NewRow（AllowUserToAddRows 属性设置为 True），则更简单

  If DataGridView1.Rows(e.RowIndex).IsNewRow then
  

---

Private _RegularFont As New Font("Microsoft Sans Sherif", 8, FontStyle.Regular)
Private _BoldFont As New Font("Microsoft Sans Sherif", 8, FontStyle.Bold)

Private Sub dgvArticles_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvArticles.CellFormatting
    Dim drv As DataRowView
    If e.RowIndex >= 0 Then
        If Not dgvArticles.Rows(e.RowIndex).IsNewRow Then
            drv = View.Item(e.RowIndex)

            'Bolds if it is standard, makes it regular if it's not standard and already bold
            If drv.Item("Standard").ToString = "Yes" Then
                dgvArticles.Rows(e.RowIndex).DefaultCellStyle.Font = _BoldFont
            Else 'First condition tested, test second 

                'Test if Standard is "No" and if the row is currently bold, if it is, put it back to regular
                If drv.Item("Standard").ToString = "No" AndAlso Not dgvArticles.Rows(e.RowIndex).DefaultCellStyle.Font Is Nothing Then
                    If dgvArticles.Rows(e.RowIndex).DefaultCellStyle.Font.Bold Then
                        dgvArticles.Rows(e.RowIndex).DefaultCellStyle.Font = _RegularFont
                    End If
                End If
            End If

            'Puts a red color to the rows who are not available
            If drv.Item("Available").ToString = "No" Then
                'Change back color
                Dim c As Color
                c = Color.LightSalmon
                e.CellStyle.BackColor = c
            End If
        End If
    End If
 End Sub

---

使用链接，你可以做这样的事情（为了你的目的，你不应该迭代到 DataView.Rows 来检索索引，而是直接在 DataGridView.Rows 中）：

Dim _BoldFont As New Font("Microsoft Sans Sherif", 8, FontStyle.Regular)

Dim q = From r In Me.DataGridView1.Rows 
        Where CType(r, DataGridViewRow).Cells("Standard").Value.ToString = "Oui" 
        Select r
For Each item In q
        CType(item, DataGridViewRow).DefaultCellStyle.Font = _BoldFont
Next

Dim q = From r In Me.DataGridView1.Rows 
        Where CType(r, DataGridViewRow).Cells("Available").Value.ToString = "Non" 
        Select r
For Each item In q
        CType(item, DataGridViewRow).DefaultCellStyle.BackColor = Color.LightSalmon
Next