主题：[求助]统计

此主题相关图片如下：检测.png

有上面这种表头的表，检测人员下面对应的是数字，我想做成下面这种统计表，能做出来吗，请问下这个需要怎么做？

此主题相关图片如下：111.png

   

请问下，我这个思路可不可以呢，但是黄色部分的提示错误

Dim g As New SQLGroupTableBuilder("月个人统计表", "检测项目")
Dim lsb As DataTable = DataTables("月个人统计表")
Dim dr As Row = Tables("月个人统计表").AddNew
Dim ryz() As String = {"A","B","C","D"}
g.C  ‘定义外部数据，显示不出来’
g.Groups.AddDef("检测时间", DateGroupEnum.Day, "日")
For Each ry As String In ryz
    With DataTables("月个人统计表").DataCols
        .Add("检测性质",Gettype(String))
        .Add("ry",Gettype(Double))
    End With
    Dim jhs() As String = {"首次检测","返修检测"}
    For Each jh As String In jhs
        DataTables("月个人统计表").AddNew()
        dr("检测性质") = jh
    Next
    dr(ry) = lsb.Compute("sum(首次检测_检测量)", Tables("月个人统计表").Cols(ry) & = " Tables("月个人统计表").Cols("检测人员_" &" ry ")" )
Next
g.Subtotal = True
Dim rq1 As Date
Dim rq2 As Date
With RibbonTabs("自定义1")("无损月统计表")
    rq1 = .Items("rq1").Value
    rq2 = .Items("rq2").Value
End With
g.Filter = "[首次检测_检测时间] >= '" & rq1 & "' And [首次检测_检测时间] <= '" & rq2 & "'"
g.Build()
MainTable = Tables("月个人统计表")

我想做到临时表里面，到时候点击一个按钮自动生成表了，就不先做一个表了，可以吗

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

点击浏览该文件:管理项目2.table

此主题相关图片如下：5.png


此主题相关图片如下：4.png

我想通过上面的菜单生成下面的这种类型的表，原来用的是sql Server 数据库，现在需要的样式在原来的基础上更改了下，数据库为了方便上传也弄了个内部数据库，麻烦帮我看看

Dim filter As String = "1=1"
If rq1 <> Nothing Then
    filter &= " and [首次检测_检测日期] >= #" & rq1 & "#"
End If
If rq2 <> Nothing Then
    filter &= " And [首次检测_检测日期] <= #" & rq2 & "#"
End If

  麻烦帮我看看我想要移除合计为空的列和如果第二次返修那行都为空就移除该行，改了下后面就不知道怎么弄了，还有下面这些代码感觉有问题，麻烦帮我看看

Dim lsb As DataTable = DataTables("检测项目")
Dim ryz() As String = {"A","B","C","D"}
Dim dtb As New DataTableBuilder("统计表")
dtb.AddDef("检测性质", Gettype(String), 32)
For Each ry As String In ryz
    dtb.AddDef(ry, Gettype(String), 32)
Next
dtb.AddDef("总计", Gettype(Double))
dtb.Build()
Dim rq As Date
With RibbonTabs("自定义1")("无损日统计表")
    rq = .Items("rq").value
End With
Dim filter As String
If rq <> Nothing Then
    filter &= " [首次检测_检测时间] >= #" & rq & "#"
End If
Dim dr As DataRow = DataTables("统计表").AddNew()
Dim dr1 As DataRow = DataTables("统计表").AddNew()
Dim dr2 As DataRow = DataTables("统计表").AddNew()
Dim dr3 As DataRow = DataTables("统计表").AddNew()
For Each ry As String In ryz
    dr("检测性质") = "首次检测"
    dr(ry) = lsb.Compute("sum(检测人员_" & ry & ")", filter)
    dr1("检测性质") = "返修检测"
    dr1(ry) = lsb.Compute("sum(返修_" & ry & ")", filter)
    dr2("检测性质") = "二次返修检测"
    dr2(ry) = lsb.Compute("sum(二次返修_" & ry & ")", filter)
    dr3("检测性质") = "合计:"
    dr3(ry) = dr(ry) + dr1(ry) + dr2(ry)
    Dim i As Double
    Dim sum As Double
    sum = i + dr(ry)
    dr("总计") = sum
Next
MainTable = Tables("统计表")

好像是求和计算那个位置出现错误，

Dim i As Double
    Dim sum As Double
    sum = i + dr(ry)
    dr("总计") = sum

从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。

 

屏蔽这段代码后提示：

无效的聚合函数 Sum()和类型 String 的用法。

最后删除行的代码错误，列为空已经被删除了，会提示不存在

请问下，如果我用外部数据库连接，这个需要怎么改