以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29144)
--  作者：良才
--  发布时间：2013/2/28 17:04:00
--  函数

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

请大侠帮我指点，午餐人数列代码应该怎样写？

谢谢！
--  作者：czy
--  发布时间：2013/2/28 17:41:00
--  

将午餐人数列改成数据列

 

DataColChanged事件代码
Select Case e.DataCol.name
    Case "学期","班级"
        e.DataRow("午餐人数") = DataTables("在籍学生信息").Compute("count(午餐)","学期 = \'" & e.DataRow("学期") & "\' and 班级 = \'" & e.DataRow("班级") & "\' And 午餐 = \'√\'")
End Select
--  作者：良才
--  发布时间：2013/3/1 11:49:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


将午餐人数列改成数据列

DataColChanged事件代码
Select Case e.DataCol.name
Case "学期","班级"
e.DataRow("午餐人数") = DataTables("在籍学生信息").Compute("count(午餐)","学期 = \'" & e.DataRow("学期") & "\' and 班级 = \'" & e.DataRow("班级") & "\' And 午餐 = \'√\'")
End Select

 

这样午餐人数没有数据
--  作者：czy
--  发布时间：2013/3/1 11:58:00
--  

设置代码后，选中学期或班级列，点击菜单的重置列数据就会出来了。