主题：[求助]统计

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

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

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

类似的参考

 

http://www.foxtable.com/webhelp/scr/0681.htm

 

 

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

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

   

不会做，请上传实例。

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

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("月个人统计表")

做好一个统计表，然后用下面代码

 

Dim lsb As DataTable = DataTables("检测项目")
Dim ryz() As String = {"A","B","C","D"}
Dim jhs() As String = {"首次检测","返修检测"}
DataTables("统计表").datarows.Clear
For Each jh As String In jhs
    Dim dr As DataRow = DataTables("统计表").AddNew()
    dr("检测性质") = jh
    For Each ry As String In ryz
        dr(ry) = lsb.Compute("sum(" & jh & "人员_" & ry & ")", "")
    Next
Next

 

不会做，请上传具体实例。

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

 动态生成表，参考

 

http://www.foxtable.com/webhelp/scr/0679.htm

 

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

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

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


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

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

Dim lsb As DataTable = DataTables("表B")
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.Build()

Dim rq1 As Date
Dim rq2 As Date
With RibbonTabs("功能区1").Groups("功能组1")
    rq1 = .Items("开始日期").Value
    rq2 = .Items("结束日期").Value
End With
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 dr As DataRow = DataTables("统计表").AddNew()
dr("检测性质") = "首次检测"
For Each ry As String In ryz
    dr(ry) = lsb.Compute("sum(首次检测人员_" & ry & ")", filter)
Next
MainTable = Tables("统计表")