主题：[求助] 统计数据表问题

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84696&skin=0

 

我想要的是下图这样的效果

 

 

此主题相关图片如下：360截图20160509154857101.jpg

 必须重新生成一次chart图表

以下命令结果如下图；如果我想再增加一行 合计。命令该怎么改？

 

 

 

 

Dim g5 As New GroupTableBuilder("回访统计表", DataTables("宽带帐号割接回访表"))
g5.Groups.AddDef("工单责任人")
'g5.Groups.AddDef("客户负责人","割接批次")
'g1.Totals.AddDef("客户负责人", AggregateEnum.Count, "割接批次") '统计"回访_结果"列 填写到"统计"列
g5.Filter = "关停情况 <> ''" '筛选统计内容
g5.Build()
Dim t5 As Table = Tables("割接情况统计窗口_Table6")
t5.DataSource = g5.BuildDataSource() '生成表
't5.SetColVisibleWidth("工单责任人|100|工单总数|40|已割接数量|40|收到信息自动割接|80|主动关停后自行割接|80|回访后自行割接|80|上门处理后割接|80")
t5.DataTable.DataCols.Add("工单总数", Gettype(Double))
t5.DataTable.DataCols.Add("已割接数量", Gettype(Double))
t5.DataTable.DataCols.Add("收到信息自动割接", Gettype(Double))
t5.DataTable.DataCols.Add("主动关停后自行割接", Gettype(Double))
t5.DataTable.DataCols.Add("回访后自行割接", Gettype(Double))
t5.DataTable.DataCols.Add("上门处理后割接", Gettype(Double))

 

For Each r5 As Row In t5.Rows
    Dim c_gt1 As Integer = DataTables("宽带帐号割接回访表").compute("count(割接情况)", "工单责任人 = '" & r5("工单责任人") & "' ")
    r5("工单总数") = c_gt1
    Dim c_gt2 As Integer = DataTables("宽带帐号割接回访表").compute("count(割接情况)", "工单责任人 = '" & r5("工单责任人") & "' and 割接情况 = '已割接' ")
    r5("已割接数量") = c_gt2
    Dim c_gt3 As Integer = DataTables("宽带帐号割接回访表").compute("count(割接情况)", "工单责任人 = '" & r5("工单责任人") & "' And 割接情况 = '已割接'  and 回访_结果 = '待回访'   and ( 确定已经割接日期 < 关停时间 or (确定已经割接日期 is not null  and  关停时间 is null) )")
    r5("收到信息自动割接") = c_gt3
    Dim c_gt4 As Integer = DataTables("宽带帐号割接回访表").compute("count(割接情况)", "工单责任人 = '" & r5("工单责任人") & "' and 割接情况 = '已割接'  and 回访_结果 = '待回访'   and 确定已经割接日期 >= 关停时间 ")
    r5("主动关停后自行割接") = c_gt4
   
    Dim c_gt5 As Integer = DataTables("宽带帐号割接回访表").compute("count(割接情况)", "工单责任人 = '" & r5("工单责任人") & "' and 割接情况 = '已割接'  and ( 回访_结果 <> '待回访' and 回访_结果 <> '成功回访(需预约上门处理)' )    ")
    r5("回访后自行割接") = c_gt5
    Dim c_gt6 As Integer = DataTables("宽带帐号割接回访表").compute("count(割接情况)", "工单责任人 = '" & r5("工单责任人") & "' and 割接情况 = '已割接'  and 回访_结果 = '成功回访(需预约上门处理)'    ")
    r5("上门处理后割接") = c_gt6
     
   
Next

此主题相关图片如下：360截图20160509162716288.jpg

 用合计模式或者汇总模式

 

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

 

筛选 【表A】 中 【日期】 列 不重复内容；命令该怎么写？

 

我有一个表A、统计出来的数据结果如下；会显示出几条相同的信息；我希望每天只显示一条信息；命令该怎么写？

2016/5/13 0:00:00 9 0 4 0 5 0
2016/5/13 0:00:00 9 0 4 0 5 0
2016/5/13 0:00:00 9 0 4 0 5 0
2016/5/14 0:00:00 26 0 6 0 20 0
2016/5/14 0:00:00 26 0 6 0 20 0
2016/5/15 0:00:00 20 0 4 111 16 0
2016/5/15 0:00:00 20 0 4 111 16 0
2016/5/16 0:00:00 30 3 8 77 22 0
2016/5/16 0:00:00 30 3 8 77 22 0
2016/5/16 0:00:00 30 3 8 77 22 0

参考

 

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

 

以下命令为什么会执行到 msgbox(2) 就直接跳到执行  msgbox(5) ；而没有执行msgbox(2) -msgbox(5) 中间的那些命令？

 

 

    Dim cmd As New SQLCommand
    Dim dt1 As Date
    cmd.C
    cmd.CommandText = "Select GetDate()"
    dt1 = cmd.ExecuteScalar()
   
    DataTables("已割接用户数据表").LoadFIlter = "确定已经割接日期 =  '" & dt1.Date & "' "
'DataTables("已割接用户数据表").LoadFIlter = ""
    DataTables("已割接用户数据表").Load
    Tables("已割接用户数据表").Sort = "确定已经割接日期"
   
    DataTables("宽带帐号割接回访表").LoadFIlter = ""
    DataTables("宽带帐号割接回访表").Load
    Tables("宽带帐号割接回访表").Sort = ""
    msgbox(1)
    For Each r As Row In Tables("已割接用户数据表").Rows
        Dim dr As DataRow = DataTables("宽带帐号割接回访表").Find("移动宽带帐号 = '" & r("移动宽带帐号") & "'and  确定已经割接日期 Is Null ")
        If dr IsNot Nothing Then
            'For Each s As String In "宽带帐号".Split("|")
            dr("确定已经割接日期") = r("确定已经割接日期")
        End If
    Next
   msgbox(2)
    For Each r1 As Row In Tables("已割接用户数据表").Rows
msgbox(3)
        Dim dr1 As DataRow = DataTables("宽带帐号割接回访表").Find("移动宽带帐号 = '" & r1("移动宽带帐号") & "'and  确定已经割接时间 Is Null ")
        If dr1 IsNot Nothing Then
msgbox(4)
            dr1("确定已经割接时间") = r1("导入数据时间")
        End If
    Next
   msgbox(5)
    DataTables("宽带帐号割接回访表").Save()
    MessageBox.show("完成对【宽带帐号割接回访表】的[确定已经割接日期]填写操作!!!", "非常关键提醒")
   
Else
End If

说明你表里面没有数据

 

弹出msgbox(Tables("已割接用户数据表").Rows.Count)

有的、如果我把msgbox(2) -msgbox(5) 中间的以下这些命令单独写在另外一个按钮中单独执行，是有结果输出的

 

  For Each r1 As Row In Tables("已割接用户数据表").Rows
msgbox(3)
        Dim dr1 As DataRow = DataTables("宽带帐号割接回访表").Find("移动宽带帐号 = '" & r1("移动宽带帐号") & "'and  确定已经割接时间 Is Null ")
        If dr1 IsNot Nothing Then
msgbox(4)
            dr1("确定已经割接时间") = r1("导入数据时间")
        End If
    Next