- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何按月份统计子表数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63747)
-- 发布时间：2015/1/27 23:24:00
-- [求助]如何按月份统计子表数据
q
此主题相关图片如下：yuj.jpg
如何按月份统计子表数据
总课程和总金额都已经设置好了，月份如何设置（按月份统计）
-- 发布时间：2015/1/28 7:58:00
--
http://www.foxtable.com/help/topics/2472.htm
-- 发布时间：2015/1/28 7:59:00
--
用代码的话参考http://www.foxtable.com/help/topics/2235.htm
-- 发布时间：2015/1/28 9:45:00
--
月是统计上课日期的，在父表输入月份自动统计 总课时 总金额
-- 发布时间：2015/1/28 9:45:00
--
看3楼用代码统计.搞不定就上例子,描述清楚统计方式
-- 发布时间：2015/1/28 9:47:00
--
以下是引用anxue在2015-1-28 9:45:00的发言：
月是统计上课日期的，在父表输入月份自动统计 总课时 总金额
月是统计上课日期的，在父表输入月份自动统计 总课时 总金额
子表加入月份列，和父表绑定。
不然，就必须参考楼上，用代码统计
-- 发布时间：2015/1/28 11:02:00
--
啊
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:课时费统计128.rar |
按月 按年 统计出子表 总课时 总金额
如：输入老师姓名和月份 统计出本月总课时 总金额
-- 发布时间：2015/1/28 11:13:00
--
If e.DataCol.name="教师姓名" OrElse e.DataCol.name="月份" Then
If e.DataRow.IsNull("教师姓名")=False AndAlso e.DataRow.IsNull("月份")=False Then
Dim y As Integer = e.DataRow("月份").Substring(0,4) \'指定年份
Dim m As Integer = e.DataRow("月份").split("年")(1).trim("月")
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) \'获取该月的最后一天
e.DataRow("总课时")=DataTables("报名课程").Compute("sum(课时)","教师姓名=\'" & e.DataRow("教师姓名") & "\' and 上课日期 >= #" & dt1 & "# And 上课日期 <= #" & dt2 & "#")
e.DataRow("总金额")=DataTables("报名课程").Compute("sum(金额)","教师姓名=\'" & e.DataRow("教师姓名") & "\' and 上课日期 >= #" & dt1 & "# And 上课日期 <= #" & dt2 & "#")
End If
End If
-- 发布时间：2015/1/28 11:13:00
--
DataColChanged事件
-- 发布时间：2015/1/28 11:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:课时费统计128.foxdb |