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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口_Table1颜色

共有3495人关注过本帖树形打印复制链接主题：窗口_Table1颜色

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：176 积分：1353 威望：0 精华：0 注册：2014/3/27 14:28:00

Post By：2014/11/1 22:18:00 [只看该作者]

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

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

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：176 积分：1353 威望：0 精华：0 注册：2014/3/27 14:28:00

Post By：2014/11/3 18:04:00 [只看该作者]

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。怎样改代码？请指点，谢谢

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/3 19:12:00 [只看该作者]

以下是引用Lc在2014-11-1 22:18:00的发言：

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

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

统计参考 http://www.foxtable.com/help/topics/0393.htm

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/3 19:13:00 [只看该作者]

Dim sql As String = "Select a.年度,a.车次,核载人数,Count(乘坐人) As 乘坐人数,iif(核载人数-乘坐人数<0,0,核载人数-乘坐人数) As 空座数 From {车辆信息} a Inner JOIN {车辆安排} b ON a.年度 = b.年度 And a.车次 = b.车次 GROUP BY a.年度,a.车次,核载人数"

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：176 积分：1353 威望：0 精华：0 注册：2014/3/27 14:28:00

Post By：2014/11/4 12:01:00 [只看该作者]

谢谢

下一主题 >> << 上一主题

总数 15 上一页 1 2

主题：窗口_Table1颜色