vb.net datagridview 中如何增加一列

[wzq855505]

请教一下，DATAGRIDVIEW1 中有列A，B，C,D,E,想插入一列F，列E是一个分数值，在1-100之间，如何实现当E>90时，F列对应的单元格显示绿色，小于90且大于80时显示黄色，小于80时，显示蓝色？谢谢！

[root_]

前几天解答过一个类似问题，在DataBindingComplete事件里处理，参考下面代码
你的需求，把switch用if条件代替，C#自己转VB.NET吧

private void dataGridView1_DataBindingComplete(object sender, DataGridViewBindingCompleteEventArgs e)
{
    foreach (DataGridViewRow dgv in dataGridView1.Rows)
    {
        if (dgv.Cells[0].Value != null)
        {
            switch (dgv.Cells[0].Value.ToString())
            {
                case "1":
                    dgv.Cells[1].Style.BackColor = Color.Red;
                    break;
                case "2":
                    dgv.Cells[1].Style.BackColor = Color.Yellow;
                    break;
                case "3":
                    dgv.Cells[1].Style.BackColor = Color.Blue;
                    break;
                default:
                    dgv.Cells[1].Style.BackColor = Color.Green;
                    break;
            }
        }
    }
}

[yuxuefeng]

楼上回答的是对的，将Switch 语句转化成SELECT CASE语句就可以了

[wzq855507]

好像不对吧，怎么只有第一列可以变色，其它符合条件的都不变？

[root_]

上面用的是列索引，改为列名，这个还要说吗？

dgv.Cells[0].Value 　---> dgv.Cells["E"].Value
dgv.Cells[1].Value 　---> dgv.Cells["F"].Value

[wzq855507]

Dim dgv As DataGridViewRow
For Each dgv In DataGridView1.Rows
If Not dgv.Cells("积分").Value Is Nothing Then
Select Case dgv.Cells("积分").Value.ToString()
Case Is > 90
dgv.Cells("积分").Style.BackColor = Color.Red
Exit For
Case Is < 89
dgv.Cells("积分").Style.BackColor = Color.Yellow
Exit For

End Select
End If
Next
是这样吗？》我是初学者，不好意思

[wzq855505]

能帮我看下不？