1、代码
If e.Row.Index > = e.Table.TopPosition AndAlso e.Row.Index < = e.Table.BottomPosition Then
If e.Row("IsCheckOut") = True Then
e.Table.DataTable.AddUserStyle("BillSelect1", Color.RoyalBlue, Color.white)
e.Table.DataTable.Styles("BillSelect1").FontStrikeout = True
e.Style = "BillSelect1"
Else
e.Table.DataTable.AddUserStyle("BillSelect2", Color.RoyalBlue, Color.white)
e.Style = "BillSelect2"
End If
Else
e.Table.DataTable.AddUserStyle("BillIsCheckOut", Color.White, Color.Black)
e.Table.DataTable.Styles("BillIsCheckOut").FontStrikeout = True
If e.Row("IsCheckOut") = True Then
e.Style = "BillIsCheckOut"
End If
End If
2、要把风格去掉才行
标题区和选定区的背景颜色设置,只有在表属性中的“使用界面风格”设置为False的时候,才会生效。