#Region " C1TrueDBGrid FetchCellStyle "
Private Sub C1TrueDBGrid1_FetchCellStyle(sender As Object, e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles C1TrueDBGrid1.FetchCellStyle
Select Case e.Column.Name
Case "设备领用"
If C1TrueDBGrid1(e.Row, "设备领用单未归还").ToString() <> "" Then
e.CellStyle.BackColor = Color.LightYellow
e.CellStyle.ForeColor = Color.Black
End If
End Select
End Sub
#End Region