窗口_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编辑过]

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

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

Dim sql As String = "Select a.年度,a.车次,核载人数,Count(乘坐人) As 乘坐人数,核载人数-乘坐人数 As 空座数 From {车辆信息} a Inner JOIN {车辆安排} b ON a.年度 = b.年度 And a.车次 = b.车次 GROUP BY a.年度,a.车次,核载人数"
       Dim b1 As New CrossTableBuilder("统计表1",sql)
       b1.HGroups.AddDef("年度")
       b1.VGroups.AddDef("车次")
       b1.Totals.AddDef("核载人数")
       b1.Totals.AddDef("乘坐人数")
       b1.Totals.AddDef("空座数")
       b1.Build()
       b1.HorizontalTotal = True
       Tables("窗口1_Table1").DataSource = b1.BuildDataSource()

如果:核载人数-乘坐人数 = 空座数是负数,那么为0。怎样改代码？请指点，谢谢

主题：窗口_Table1颜色