求助－分类统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这种没有办法直接统计，只能遍历所有单元格逐个相加处理。具体请上传实例说明

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目13.zip

请重新上传实例说明

1、把需要添加的列，参考下面代码添加到统计表里：

dtb.AddDef("销档", GetType(String), 16)

2、取数据的时候也一样添加需要的列

For Each v As String() In DataTables("表A").GetValues("砼销明细_生产日期0|生产信息_生产信息_生产线|生产信息_生产信息_浇筑方式|砼销明细_销档|砼销明细_生产信息_标号")

Dim dr1 As DataRow = DataTables("统计表1").AddNew()

dr1("销档") = v(0)

dr1("标号") = v(1)

For Each dr2 As DataRow In DataTables("表A").Select("砼销明细_生产日期0 '" & v(0) & "' and ..其它条件自己编程完整.. and 砼销明细_销档 = '" & v(3) & "' and 砼销明细_生产信息_标号 = '" & v(4) & "'")

帮助什么地方看不懂？然后改了什么代码有问题？

说明后台没有符合这个条件的数据："砼销明细_生产日期0 >= '" & qq.text & "' and 砼销明细_生产日期0 <= '" & qz.text & "' and 砼销明细_生产信息_实生 is not null"

调试

……

msgbox("砼销明细_生产日期0 >= '" & qq.text & "' and 砼销明细_生产日期0 <= '" & qz.text & "' and 砼销明细_生产信息_实生 is not null")

Dim Products As List(Of String()) = DataTables("白塔砼销明细").SQLGetValues("砼销明细_生产日期0|砼销明细_生产信息_生产线|砼销明细_销档|砼销明细_生产信息_等级强度|砼销明细_生产信息_浇筑方式", "砼销明细_生产日期0 >= '" & qq.text & "' and 砼销明细_生产日期0 <= '" & qz.text & "' and 砼销明细_生产信息_实生 is not null")

msgbox(Products.count)

For Each v As String() In Products

Dim dr1 As DataRow = DataTables("工作总表_Table161").AddNew()

dr1("日期") = v(0)

dr1("产线") = v(1)

dr1("销档") = v(2)

dr1("标号") = v(3)

dr1("方式") = v(4)

For Each dr2 As DataRow In DataTables("白塔砼销明细").SQLSelect("砼销明细_生产日期0 = '" & v(0) & "' and 砼销明细_生产信息_生产线 = '" & v(1) & "' and 砼销明细_销档 = '" & v(2) & "' and 砼销明细_生产信息_标号 = '" & v(3) & "' and 砼销明细_生产信息_浇筑方式 = '" & v(4) & "' ")

msgbox(1)

dr1("产量") = dr1("产量") + dr2("砼销明细_生产信息_实生")

……

主题：求助－分类统计