以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  主表和关联表数据统计问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158514)

--  作者:夜点蚊香
--  发布时间:2020/11/22 21:24:00
--  主表和关联表数据统计问题
主表(课程档案表)  关联表(学生签到明细表)

更新[学生签到明细表]字段(签到状态) 签到 未到 请假 体验课
当签到状态改变以后,主表(课程档案表) 字段(签到人数),根据  关联表对应字段的 签到 未到状态 合计数量
请指教.
用事件代码方法.
[此贴子已经被作者于2020/11/22 21:24:44编辑过]

--  作者:有点蓝
--  发布时间:2020/11/22 21:49:00
--  
参考:http://www.foxtable.com/webhelp/topics/1472.htm
--  作者:夜点蚊香
--  发布时间:2020/11/23 12:48:00
--  帮忙看一下代码
关联表设置的代码 ,关联表 签到状态 字段变动以后 主表自动统计
If e.DataCol.Name = "签到状态" Then
    Dim pr As DataRow
    pr = DataTables("课程档案DAY").Find("课程档案编号 = \'" & e.DataRow("课程档案编号") & "\' and 签到状态 = \'签到\'")
    If pr IsNot Nothing Then
        pr("签到人数")= count(e.DataRow("签到状态"))
    End If
End If
保存代码时候代码报错 没有定义count

--  作者:有点蓝
--  发布时间:2020/11/23 13:47:00
--  
If e.DataCol.Name = "签到状态" Then
    Dim pr As DataRow
    pr = DataTables("课程档案DAY").Find("课程档案编号 = \'" & e.DataRow("课程档案编号") & "\'")
    If pr IsNot Nothing Then
        pr("签到人数") = e.datatable.compute("count(课程档案编号)","课程档案编号 = \'" & e.DataRow("课程档案编号") & "\' and 签到状态 = \'签到\'")
    End If
End If