自动选择日期，根据日期自动统计另外一个表“分类”总和以及占比； - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

自动选择日期，根据日期自动统计另外一个表“分类”总和以及占比；
先解决手动选择日期。（后期就每周或每天自动统计信息，发送到钉钉）

图片点击可在新窗口打开查看

此主题相关图片如下：001.jpg

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

谢谢。
已购买高开，但还没有使用。
用内部数据库后以后将要用 SQL 数据库；对于本表有什么区别。请一并指出。谢谢各位老师。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试005.zip

例如，表B，datacolchanged事件

Select Case e.DataCol.Name

Case "起点时间","结束时间"

If e.DataRow.IsNull("起点时间") OrElse e.DataRow.IsNull("结束时间") Then

e.DataRow("A组总收入") = Nothing

e.DataRow("B组总收入") = Nothing

Else

e.DataRow("A组总收入") = DataTables("表A基础数据").Compute("sum(收入)","立项时间 >= '" & e.DataRow("起点时间") & "' And 立项时间 <='" & e.DataRow("结束时间") & "' and 组别='A组'")

e.DataRow("B组总收入") = DataTables("表A基础数据").Compute("sum(收入)","立项时间 >= '" & e.DataRow("起点时间") & "' And 立项时间 <='" & e.DataRow("结束时间") & "' and 组别='B组'")

End If

Case "B组总收入","A组总收入","C组总收入","D组总收入"

Dim sum As Double = e.DataRow("A组总收入") + e.DataRow("B组总收入") + e.DataRow("C组总收入") + e.DataRow("D组总收入")

If sum > 0 Then

e.DataRow("A组收入占比") = e.DataRow("A组总收入")/sum

Else

e.DataRow("A组收入占比") =0

End If

End Select

老师，有错误，是不是引号哪里错了。。太复杂。

会不会是起点时间，结束时间不是在“表A基础数据”的列；而是表B 的列？？？

目前用的是内部数据源，等调试好了，我再转成 SQL。

图片点击可在新窗口打开查看此主题相关图片如下：333.png

[此贴子已经被作者于2019/6/4 19:48:11编辑过]

把收入列改为双精度列

主题：自动选择日期，根据日期自动统计另外一个表“分类”总和以及占比；