共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：可否实现，在SQL Table设置满足条件列的字体颜色？
1楼
baoxyang 发表于：2009/11/10 17:17:00如题，请教各位，代码如何写？
2楼
狐狸爸爸 发表于：2009/11/10 17:19:00DrawCell
3楼
baoxyang 发表于：2009/11/10 17:31:00在窗口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
以上执行时没有实现字体颜色设置，请指点以上代码哪里有问题，谢谢！
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
以上执行时没有实现字体颜色设置，请指点以上代码哪里有问题，谢谢！
4楼
狐狸爸爸 发表于：2009/11/10 17:40:00有增加样式吗？
AddUserStyle
增加自定义样式。
AddUserStyle(Name,BackColor,ForeColor)
Name: 样式名称
BackColor: 背景颜色
ForeColor: 字体颜色
示例：
DataTables("表A").AddUserStyle("a", Color.Red, Color.White)
提示，虽然这是DataTable的一个方法，但是显然样式是针对Table发生作用的，所以此方法只有Table已经生成的情况下执行，才能发生作用。
AddUserStyle
增加自定义样式。
AddUserStyle(Name,BackColor,ForeColor)
Name: 样式名称
BackColor: 背景颜色
ForeColor: 字体颜色
示例：
DataTables("表A").AddUserStyle("a", Color.Red, Color.White)
提示，虽然这是DataTable的一个方法，但是显然样式是针对Table发生作用的，所以此方法只有Table已经生成的情况下执行，才能发生作用。
5楼
baoxyang 发表于：2009/11/10 18:02:00OK! 原以为DataTables("表A").AddUserStyle("a", Color.Red, Color.White)只针对行字体设置，误解！搬用DataTables("表A").Styles("a").ForeColor 造成设置不成功。
共5 条记录, 每页显示 10 条, 页签:
[1]