以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口_Table1颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59300)
--  作者：Lc
--  发布时间：2014/11/1 17:59:00
--  窗口_Table1颜色

核载人数 应为“车辆信息”表 “核载人数”列
窗口_Table1； 
一号车核载人数< 80%为绿色，>=80%-<100%为黄色，>=100%为红色
二号车核载人数< 80%为绿色，>=80%-<100%为黄色，>=100%为红色
求代码？谢谢
[此贴子已经被作者于2014-11-1 18:01:30编辑过]
--  作者：y2287958
--  发布时间：2014/11/1 18:01:00
--  
例子呢
--  作者：Lc
--  发布时间：2014/11/1 18:04:00
--  
可能网速问题上传不了
--  作者：czy
--  发布时间：2014/11/1 19:07:00
--  

http://www.foxtable.com/help/topics/0656.htm

 
--  作者：Lc
--  发布时间：2014/11/1 20:12:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.zip
--  作者：czy
--  发布时间：2014/11/1 20:58:00
--  

临时表不行吧。
--  作者：Lc
--  发布时间：2014/11/1 21:36:00
--  

 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

这段代码结果是

 
此主题相关图片如下：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编辑过]
--  作者：y2287958
--  发布时间：2014/11/1 22:01:00
--  
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
    End If
End If
[此贴子已经被作者于2014-11-1 22:01:56编辑过]
--  作者：Lc
--  发布时间：2014/11/1 22:05:00
--  

谢谢!
--  作者：Lc
--  发布时间：2014/11/1 22:18:00
--  

能否把 15 引用"车辆信息"核载人数*80%

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