日期:2014-05-18 浏览次数:21071 次
Private Sub AdvBandedGridView1_FocusedRowChanged(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles AdvBandedGridView1.FocusedRowChanged AdvBandedGridView1.SetFocusedRowCellValue(标志列, "1") End Sub Private Sub AdvBandedGridView1_CustomDrawCell(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles AdvBandedGridView1.CustomDrawCell If AdvBandedGridView1.GetRowCellValue(e.RowHandle, 标志列) = "1" Then e.Appearance.ForeColor = Color.Black End If End Sub