Foxtable(狐表)用户栏目专家坐堂 → 横向统计字符


  共有3789人关注过本帖树形打印复制链接

主题:横向统计字符

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110783 积分:563847 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/11 9:05:00 [显示全部帖子]

datacolchanged事件

If e.DataCol.Name.StartsWith("D")
    Dim x,y As Integer
    For Each c As DataCol In e.DataTable.DataCols
        If c.Name.StartsWith("D")
            If e.DataRow(c.Name) = "1" Then
                y += 1
            ElseIf e.DataRow(c.Name) = "休班" Then
                x += 1
            End If
        End If
    Next
    e.DataRow("休班天数") = IIF(x > 0,x,Nothing)
    e.DataRow("一班天数") = IIF(y > 0,y,Nothing)
End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110783 积分:563847 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/13 19:58:00 [显示全部帖子]

1楼的项目我测试没有问题。如果自己的项目改了列类型,重新截图看看表结构和数据,或者根据列类型自己相应改改代码。如果不会改,上传有问题的项目说明

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110783 积分:563847 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/13 23:15:00 [显示全部帖子]

按什么规则计算?正确的结果应该是怎么样的,手工填入正确结果,截图看看

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110783 积分:563847 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/14 10:05:00 [显示全部帖子]

逻辑列使用判断合计即可,比如

dim sum as integer
if e.datarow("逻辑列1") = true then sum = sum +1
if e.datarow("逻辑列2") = true then sum = sum +1
e.datarow("合计列") = sum

至于打印,上传模板或者截图说明要什么效果


 回到顶部