Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
      Handles DataGridView1.CellFormatting
        Me.DataGridView_FormatCellValue(Me.DataGridView1, "id1_ds1", e, _
        Color.Coral, Color.Aquamarine)
    End Sub
 
    Private Sub DataGridView_FormatCellValue(ByVal dg As _
      System.Windows.Forms.DataGridView, ByVal ColumnName As String, ByVal e As _
      System.Windows.Forms.DataGridViewCellFormattingEventArgs, ByVal BackColor _
      As Color, ByVal SelectionColor As Color)
        With dg
            For Each Row As Data.DataRow In MainForm.DataSet1.Tables(0).Rows
                If e.Value.ToString = Row.Item("id1_ds2").ToString Then
                    dg.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Green
                End If
            Next
        End With
    End Sub

--
Wann und wo ? Denn, Dort....!

VB.NET 2005 EE / MySQL / MSSQL EE