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

那就是上面LoadFilter和Load影响了表的数据的加载。

加载表A数据时；只加载 【表A】 中 【宽带帐号】列不重复的内容

 

DataTables("表A").LoadFIlter = "****"
DataTables("表A").Load

 

比如：

宽带帐号

123

234

123

3456

2345

123

234

 

加载的结果是

123

234

3456

2345

比如

 

DataTables("表A").LoadFilter = "[_Identify] in (select max([_Identify]) fr om {表A} group by 第二列)"
DataTables("表A").Load

 做了一个统计表，其中以下3项统计没法实现；请问该怎么处理？

 

1、c_gt2 中的【归档时间】格式为：2017-03-12 11:00:00  【数据日期】的格式为：2017-03-12  想实现统计【归档时间】的日期与【数据日期】的日期相同的数量。

 

2、c_gt3的意思跟c_gt2一样

 

3、要根据【处理时长】计算每单工单的平均处理时长；但是弹出【表达式包含未定义的函数调用 Average()】错误。

 

  Dim g As New GroupTableBuilder("装机工单数据统计表", DataTables("装机工单清单表"))
    g.Groups.AddDef("区域")
    g.Groups.AddDef("工作站名称")
    g.Groups.AddDef("网格名称")
    g.Groups.AddDef("装维人员姓名")
    g.Build()
   
    Dim t As Table = Tables("数据统计窗口_Table1")
    t.DataSource = g.BuildDataSource() '生成表
    t.SetColVisibleWidth("区域|80|工作站名称|80|网格名称|80|装维人员姓名|80|当天受理|120|当天开通|150|当天退单|150|受理数|120|开通数|100|开通率|100|已撤单|待撤单|150|撤单率|150|在途数|120|在途率|100|剔除待撤单在途数|100|待归档|100|剔除待撤单/待归档在途数|100|超48小时装机数|100|48小时装机率|100|72小时装机数|100|72小时装机率|100|开通平均时长|100")
    t.DataTable.DataCols.Add("当天受理", Gettype(Double))
    t.DataTable.DataCols.Add("当天开通", Gettype(Double))
    t.DataTable.DataCols.Add("当天退单", Gettype(Double))
    t.DataTable.DataCols.Add("开通平均时长", Gettype(Double))
   
    For Each r As Row In t.Rows
        Dim c_gt1 As Integer = DataTables("装机工单清单表").compute("count(工单号)", "区域 = '" & r("区域") & "' and 工作站名称 = '" & r("工作站名称") & "' and 网格名称 = '" & r("网格名称") & "' and 装维人员姓名 = '" & r("装维人员姓名") & "'  and 日期 = '" & e.Form.Controls("数据日期").Text & "'  ")
        r("当天受理") = c_gt1
        Dim c_gt2 As Integer = DataTables("装机工单清单表").compute("count(工单号)", "区域 = '" & r("区域") & "' and 工作站名称 = '" & r("工作站名称") & "' and 网格名称 = '" & r("网格名称") & "' and 装维人员姓名 = '" & r("装维人员姓名") & "'  and 归档时间 = '" & e.Form.Controls("数据日期").Text & "'  ")
        r("当天开通") = c_gt2
        Dim c_gt3 As Integer = DataTables("装机工单清单表").compute("count(工单号)", "区域 = '" & r("区域") & "' and 工作站名称 = '" & r("工作站名称") & "' and 网格名称 = '" & r("网格名称") & "' and 装维人员姓名 = '" & r("装维人员姓名") & "'  and 退单时间 = '" & e.Form.Controls("数据日期").Text & "'  ")
        r("当天退单") = c_gt3
              Dim c_gt12 As Integer = DataTables("装机工单清单表").compute("Average(处理时长)", "区域 = '" & r("区域") & "' and 工作站名称 = '" & r("工作站名称") & "' and 网格名称 = '" & r("网格名称") & "' and 装维人员姓名 = '" & r("装维人员姓名") & "' and  (归档时间 is not null )  ")
        r("开通平均时长") = c_gt12
      
            Next

 

 

Dim c_gt12 As Integer = DataTables("装机工单清单表").compute("Avg(处理时长)", "区域 = '" & r("区域") & "' and 工作站名称 = '" & r("工作站名称") & "' and 网格名称 = '" & r("网格名称") & "' and 装维人员姓名 = '" & r("装维人员姓名") & "' and  (归档时间 is not null )  ")
 r("开通平均时长") = c_gt12

 

 

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

处理时长必须是数值型的列。有见过字符求平均值的么

 出来的结果是整数；如果想实现带2位小数点数字（00.00）；该怎么修改？     

t.DataTable.DataCols.Add("开通平均时长", Gettype(Double))

 

 Dim c_gt12 As Integer = DataTables("装机工单清单表").compute("Avg(处理时长)", "区域 = '" & r("区域") & "' and 工作站名称 = '" & r("工作站名称") & "' and 网格名称 = '" & r("网格名称") & "' and 装维人员姓名 = '" & r("装维人员姓名") & "' and  (归档时间 is not null )  ")
        r("开通平均时长") = c_gt12

Dim c_gt12 As Double = DataTables("装机工单清单表").compute("Avg(处理时长)", "区域 = '" & r("区域") & "' and 工作站名称 = '" & r("工作站名称") & "' and 网格名称 = '" & r("网格名称") & "' and 装维人员姓名 = '" & r("装维人员姓名") & "' and  (归档时间 is not null )  ")

r("开通平均时长") = format(c_gt12, "0.00")