我有这样一个统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我有这样一个统计

共有2273人关注过本帖树形打印复制链接主题：我有这样一个统计

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/20 11:30:00 [显示全部帖子]

e.DataRow(cns(i)) = DataTables("客户数据").compute("count(片区)", "固定时间='" & cns(i) & "' and 片区='" & e.datarow("片区") & "'")

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/20 11:52:00 [显示全部帖子]

dim cp as integer = DataTables("客户数据").compute("count(片区)", filter)

e.DataRow("片区客户数") = IIF(cp=0,nothing,cp)

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/20 13:45:00 [显示全部帖子]

我这个就是大红袍的代码. 我上面的代码不也是一样的道理么

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/20 14:11:00 [显示全部帖子]

If e.DataCol.Name = "片区" Then
    Dim cns() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期日"}
    If e.NewValue = Nothing Then
        For Each cn As String In cns
            e.DataRow(cn) = Nothing
        Next
        e.DataRow("片区客户数") = Nothing
    Else
        Dim filter As String = "(片区 = '" & e.DataRow("片区") & "' or 片区 like '%," & e.DataRow("片区") & "' or 片区 like '%," & e.DataRow("片区") & ",%' or 片区 like '" & e.DataRow("片区") & ",%')"
        For i As Integer = 0 To cns.Length - 1

dim c as integer = DataTables("客户数据").compute("count(片区)", filter & " and 固定时间 = '" & cns(i) & "'")
            e.DataRow(cns(i)) = IIF(c=0,nothing,c)
        Next
  dim cp as integer = DataTables("客户数据").compute("count(片区)", filter)

e.DataRow("片区客户数") = IIF(cp=0,nothing,cp)

End If
End If

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

主题：我有这样一个统计