窗口_Table1颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

核载人数应为“车辆信息”表 “核载人数”列

窗口_Table1；

一号车核载人数< 80%为绿色，>=80%-<100%为黄色，>=100%为红色

二号车核载人数< 80%为绿色，>=80%-<100%为黄色，>=100%为红色

求代码？谢谢

[此贴子已经被作者于2014-11-1 18:01:30编辑过]

可能网速问题上传不了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目6.zip

临时表不行吧。

If e.Col.IsNumeric AndAlso e.Col.Name <> "合计" Then
    If e.Row.IsNull(e.Col.Name) = False
        If e.Row(e.Col.Name) < 15 Then
            DataTables("窗口1_Table1").AddUserStyle("绿牌",Color.FromARGB(0, 192, 0), Color.DarkSlateGray)
            e.Style = "绿牌"
        Else If e.Row(e.Col.Name) >= 15 AndAlso e.Row(e.Col.Name) <= 20 Then
            DataTables("窗口1_Table1").AddUserStyle("黄牌", Color.Yellow, Color.DarkSlateGray)
            e.Style = "黄牌"
        Else If e.Row(e.Col.Name) > 20 Then
            DataTables("窗口1_Table1").AddUserStyle("红牌", Color.Red, Color.DarkSlateGray)
            e.Style = "红牌"
        End If
    End If

这段代码结果是

dvubb 此主题相关图片如下：qq截图20141101213943.png

怎样把这段代码

If e.Col.IsNumeric AndAlso e.Col.Name <> "合计" Then

改成 :

窗口1_Table1 列"一号车(第1车)"截短成"一号车"

这段代码错在哪?If e.Col.IsNumeric AndAlso e.Col.Name.SubString(0,3) = "一号车" Then

[此贴子已经被作者于2014-11-1 21:47:57编辑过]

If e.Col.IsNumeric AndAlso e.Col.Caption.StartsWith("一号车")

If e.Row.IsNull(e.Col.Name) = False

If e.Row(e.Col.Name) < 15 Then

e.Table.DataTable.AddUserStyle("绿牌",Color.FromARGB(0, 192, 0), Color.DarkSlateGray)

e.Style = "绿牌"

Else If e.Row(e.Col.Name) >= 15 AndAlso e.Row(e.Col.Name) <= 20 Then

e.Table.DataTable.AddUserStyle("黄牌", Color.Yellow, Color.DarkSlateGray)

e.Style = "黄牌"

Else If e.Row(e.Col.Name) > 20 Then

e.Table.DataTable.AddUserStyle("红牌", Color.Red, Color.DarkSlateGray)

e.Style = "红牌"

End If

[此贴子已经被作者于2014-11-1 22:01:56编辑过]

liming730323	小大 4楼 \| QQ \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：三尾狐帖子：705 积分：5411 威望：0 精华：0 注册：2014/3/15 23:14:00	Post By：2014/11/1 18:37:00 [只看该作者] 用户已被锁定

主题：窗口_Table1颜色