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

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

 

 

 

贴出代码

 

上传例子测试

主要问题是有些能够正常显示相同时间、有些就无法显示正常时间、而是显示00：00！！！

 

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

 

DataTables("装机工单清单表").LoadFIlter =  "派单日期 >= '"& dt1.AddDays(-1) & "' "
DataTables("装机工单清单表").Load

For Each r As Row In Tables("匹配服开新工单数据表").Rows
    Dim dr As DataRow = DataTables("装机工单清单表").Find("工单号 = '" & r("工单号") & "' ")
    If dr Is Nothing  And r.Isnull("工单号") = Nothing  Then
        Dim nd As DataRow = DataTables("装机工单清单表").AddNew
       
        nd("装维人员姓名") = r("装维人员姓名")
        nd("服务厅") = r("服务厅")
        nd("客户姓名") = r("客户姓名")
        nd("客户联系方式") = r("客户联系方式")
        nd("宽带帐号") = r("宽带帐号")
        nd("客户地址") = r("客户地址")
        nd("工单号") = r("工单号")
        nd("派单日期") = r("派单日期")
        nd("归档时间") = r("归档时间")
             
        
    Else
    End  If
Next

 

DataTables("装机工单清单表").LoadFIlter =  "派单日期 >= '"& dt1.AddDays(-1) & "' "
DataTables("装机工单清单表").Load

For Each r As Row In Tables("匹配服开新工单数据表").Rows
    Dim dr As DataRow = DataTables("装机工单清单表").Find("工单号 = '" & r("工单号") & "' ")
    If dr Is Nothing Then
        dr = DataTables("装机工单清单表").AddNew
    End If
    dr("装维人员姓名") = r("装维人员姓名")
    dr("服务厅") = r("服务厅")
    dr("客户姓名") = r("客户姓名")
    dr("客户联系方式") = r("客户联系方式")
    dr("宽带帐号") = r("宽带帐号")
    dr("客户地址") = r("客户地址")
    dr("工单号") = r("工单号")
    dr("派单日期") = r("派单日期")
    dr("归档时间") = r("归档时间")
Next

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

想要实现上图【统计表】的效果；我一下命令该怎么修改？

 

    Dim g1 As New GroupTableBuilder("统计表", DataTables("数据表"))
    g1.Groups.AddDef("装维人员姓名")
    g1.Build()
   
    Dim t1 As Table = Tables("统计窗口_Table1")
    t1.DataSource = g1.BuildDataSource() '生成表
    t1.DataTable.DataCols.Add("重复工单数量", Gettype(Double))
    t1.DataTable.DataCols.Add("重复次数", Gettype(Double))
    t1.SetColVisibleWidth("装维人员姓名|100|重复工单数量|70|重复次数|70")
   
   
    For Each r1 As Row In t1.Rows

        Dim c_gt1 As Integer = DataTables("数据表").compute("count(装维人员姓名)", "  装维人员姓名 = '" & r1("装维人员姓名") & "' and   ***  ")
        r1("重复工单数量") = c_gt1
        Dim c_gt2 As Integer = DataTables("数据表").compute("count(装维人员姓名)", "  装维人员姓名 = '" & r1("装维人员姓名") & "' and   ***  ")
        r1("重复次数") = c_gt2
          
    Next

For Each r1 As Row In t1.Rows
    Dim i1 As Double = 0
    Dim i2 As Double = 0
    For Each gd As String In DataTables("数据表").GetValues("宽带账号","装维人员姓名 = '" & r1("装维人员姓名") & "'")
        i1 += 1
        i2 += DataTables("数据表").Compute("sum(装维人员姓名)","装维人员姓名 = '" & r1("装维人员姓名") & "' and 宽带账号 = '" & gd & "'")
    Next
    r1("重复工单数量") = i2
    r1("重复次数") = i1
Next

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

For Each r1 As Row In t1.Rows
    Dim i1 As Double = 0
    Dim i2 As Double = 0
    For Each gd As String In DataTables("数据表").GetValues("宽带账号","装维人员姓名 = '" & r1("装维人员姓名") & "'")
        i1 += 1
        i2 += DataTables("数据表").Compute("count(装维人员姓名)","装维人员姓名 = '" & r1("装维人员姓名") & "' and 宽带账号 = '" & gd & "'")
    Next
    r1("重复工单数量") = i2
    r1("重复次数") = i1
Next

命令的结果不是我想要的，想要的是下图红色字体的数值

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

 

张三 

宽带帐号      重复数量     重复次数

391001          4               1

391004          3               1

391006          3               1

合计               10             3

 

李四

宽带帐号      重复数量     重复次数

391005          6               1

391006          2               1

合计               8               2

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb