Dim table As DataTable = New DataTable() table.Columns.Add("C1", GetType(String)) table.Columns.Add("C2", GetType(String)) table.Columns.Add("C3", GetType(String)) table.Rows.Add("aaa", "あああ", "123") table.Rows.Add("bbb", "いいい", "456") table.Rows.Add("ccc", "ううう", "789") table.Rows.Add("ddd", "えええ", "012") table.Rows.Add("eee", "おおお", "345") table.Rows.Add("fff", "かかか", "678") DataGridView1.DataSource = table
DataGridView1(0, 2).Style.ForeColor = Color.Red
Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting Dim dec As Decimal If Decimal.TryParse(e.Value, dec) AndAlso dec < 0 Then e.CellStyle.ForeColor = Color.Red End If End Sub