在窗口AfterLoad事件中如下代码：
DataTables("车辆状态管理_Table1").Styles("空闲").ForeColor = Color.Green
DataTables("车辆状态管理_Table1").Styles("中转").ForeColor = Color.Blue
DataTables("车辆状态管理_Table1").Styles("配送").ForeColor = Color.plum
DataTables("车辆状态管理_Table1").Styles("维修").ForeColor = Color.Red
DataTables("车辆状态管理_Table1").Styles("预报空闲").ForeColor = Color.Orange
DataTables("车辆状态管理_Table1").Styles("已计划").ForeColor = Color.Aqua
DrawCell 事件中如下代码:
If e.Col.Name = "状态" Then
If e.Row.IsNull("状态") = False
If e.Row("状态") = "空闲" Then
e.Style = "空闲"
else If e.Row(e.Col.Name) = "中转" Then
e.Style = "中转"
else If e.Row(e.Col.Name) = "配送" Then
e.Style = "配送"
else If e.Row(e.Col.Name) = "维修" Then
e.Style = "维修"
else If e.Row(e.Col.Name) = "预报空闲" Then
e.Style = "预报空闲"
else If e.Row(e.Col.Name) = "已计划" Then
e.Style = "已计划"
End If
End If
End If
以上执行时没有实现字体颜色设置，请指点以上代码哪里有问题，谢谢！
加好友 
发短信
Post By：2009/11/10 17:17:00 [显示全部帖子]
