VB datagrid指定行着色

有图有真相：

关键点：使用datagrid的FetchRowStyle委托。

（Form界面的datagrid名称：dgv）

使用FetchRowStyle委托，要先打开开关：

dgv.FetchRowStyles = True

然后可以在FetchRowStyle委托里面更改datagrid每一行的单元格格式：

Private Sub dgv_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles dgv.FetchRowStyle
        If dgv.Columns("HighLighte").CellValue(e.Row) = 1 Then
            e.CellStyle.BackColor = Color.Yellow
        End If

        If dgv.Columns("HighLighte").CellValue(e.Row) = 2 Then
            e.CellStyle.BackColor = Color.YellowGreen
        End If
    End Sub

本例子是按照Lot No相同的record进行着色，在数据表里面增加一个着色标志：HighLighte，处理数据如下样子：

columns：Lot No      ......   HighLighte

data：

　　　　　BLI0011    ......          0

　　　　　BLI0012    ......          0

　　　　   BLI0016    ......          1

　　　　　BLI0016    ......          1

　　　　   BLI0016    ......          1

　　　　   BLI0016    ......          1

　　　　   BLI0017    ......          2

　　　　   BLI0017    ......          2

　　　　　　   .　　　 ......　　　  .

  　　　　　　 .　　　 ......　　　  .

然后在FetchRowStyle委托里面根据着色标志HighLighte进行着色。

为了处理成上面的结果，本人循环了两次，第一次处理的数据结果：

columns：Lot No      ......   HighLighte

data：

　　　　　BLI0011    ......          0

　　　　　BLI0012    ......          0

　　　　   BLI0016    ......          1

　　　　　BLI0016    ......          2

　　　　   BLI0016    ......          3

　　　　   BLI0016    ......          4

　　　　   BLI0017    ......          1

　　　　   BLI0017    ......          2

　　　　　　   .　　　 ......　　　  .

  　　　　　　 .　　　 ......　　　  .

code：

Private Sub dgvHighLighte(ByRef dgvData As DataTable)
        Dim cstord As String = ""
        Dim count As Integer = 0
        Dim colorFlg As Integer = 0
        For i As Integer = 0 To dgvData.Rows.Count - 1
            If dgvData.Rows(i).Item("cstord") <> cstord Then
                cstord = dgvData.Rows(i).Item("cstord")
                count = 0
                colorFlg = 0
            Else
                count += 1
                colorFlg += 1
            End If
            If count > 0 Then
                dgvData.Rows(i - 1).Item("HighLighte") = colorFlg
                dgvData.Rows(i).Item("HighLighte") = colorFlg + 1
            End If
        Next
        dgvData.AcceptChanges()
    End Sub

第二次处理数据的code：

Private Sub getNullColumns(ByRef dgvData As DataTable)
        Dim colorFlg As Integer = 2
        For Each row As DataRow In dgvData.Rows
            If row.Item("HighLighte") = 1 Then
                If colorFlg = 1 Then
                    colorFlg = 2
                Else
                    colorFlg = 1
                End If
            End If
            If row.Item("HighLighte") >= 1 Then
                row.Item("HighLighte") = colorFlg
            End If
        Next
        dgvData.AcceptChanges()
    End Sub

对每行的HighLighte进行判断，如果HighLighte=1就更改着色标志值，这样就可以令相同LotNo的record有相同的着色标志，相邻的不同lotNo的record有不同的着色标志。

这个处理过程进行了两次循环，诸位有更好的方法，承蒙赐教。