主题：[求助]统计

类似的参考

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

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

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

不会做，请上传实例。

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

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

如果循环用sqlCompute，效率会很低的。

建议你重新把表数据全部加载进来，再统计，效率会高一些。