此主题相关图片如下：检测.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

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