-1

我想知道如何删除这些行以使它们变为绿色

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    'test
    Dim examplea As String = "PAID"
    If DataGridView1.Rows.Count > 0 Then
        For i = 0 To DataGridView1.Rows.Count - 1
            If examplea = DataGridView1.Rows(i).Cells("PROJECT").Value.ToString Then
                ' MessageBox.Show("record already exist")
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.green
                'DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
            Else
                ''MsgBox("N-E")
                'Exit For
            End If
        Next
    End If
    'test
End Sub
4

1 回答 1

0

不确定我是否完全理解您需要什么,除非您想删除一行...

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    'test
    Dim examplea As String = "PAID"
    If DataGridView1.Rows.Count > 0 Then
       For i = DataGridView1.Rows.Count - 1 To 0 Step -1
            If examplea = DataGridView1.Rows(i).Cells("PROJECT").Value.ToString Then
                ' MessageBox.Show("record already exist")
                'DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.green
                DataGridView1.Rows.RemoveAt(i)
            Else
                ''MsgBox("N-E")
                'Exit For
            End If
        Next
    End If
    'test
End Sub
于 2015-09-02T15:29:57.847 回答