以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]人员数量统计及如何根据条件判断是否名字重复?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26872)

--  作者:wangcza
--  发布时间:2012/12/16 14:21:00
--  [求助]人员数量统计及如何根据条件判断是否名字重复?
我在“加班通知单”表中,添加了另一个误餐审批单模板,这模板需要统计加班人员的人数,我只会写e.Book.Marks("人数") = Tables("加班通知单.加班人员表").Rows.Count

当要打印一张单的时候,前行的人数能统计出来,但打印多张单的时候,后面的加班人员的数量就统计不了啦。。。

还有个问题,在“加班通知单.加班人员表”表中,怎么根据“时间_日期”和“时间_开始时间”来判断输入的加班人员姓名是否重复,如果重复就提示”该人员已存在“,
例如:
20121101001   2012年11月1日,12:30-14:30   加班人员: 夏星、王小利、符东
20121101002   2012年11月1日,12:30-14:30   加班人员:刘星、周智、符东(此时输入符东的时候就提示”该人员已存在“)
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:加班管理16.rar


--  作者:wangcza
--  发布时间:2012/12/16 22:33:00
--  
求老师关注。。。。
--  作者:sloyy
--  发布时间:2012/12/17 0:56:00
--  

人员数量统计解决方法

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=18173&skin=0


--  作者:wangcza
--  发布时间:2012/12/17 8:05:00
--  
人员统计问题已解决,在父表增加一个表达式用来统计子表的记录数,这样在打印模板就能做出来了
在“加班通知单.加班人员表”表中,怎么根据“时间_日期”和“时间_开始时间”来判断输入的加班人员姓名是否重复,如果重复就提示”该人员已存在“,
例如:
20121101001   2012年11月1日,12:30-14:30   加班人员: 夏星、王小利、符东
20121101002   2012年11月1日,12:30-14:30   加班人员:刘星、周智、符东(此时输入符东的时候就提示”该人员已存在“)
还请高手指教

--  作者:lin_hailun
--  发布时间:2012/12/17 9:07:00
--  
 编写datacolchanging事件。

Select Case e.DataCol.Name
    Case "加班人员"
        Dim dr As DataRow = e.DataRow.GetParentRow("加班通知单")
        Dim num As String = Left(dr("加班编号"), 8)
        Dim fdr As DataRow = e.DataTable.Find("加班编号 like \'" & num & "*\' And 加班人员 = \'" & e.NewValue & "\'")
        If fdr IsNot Nothing Then
            If fdr.GetParentRow("加班通知单")("时间_开始时间") = dr("时间_开始时间") Then
                msgbox("重复")
                e.NewValue = Nothing
            End If
        End If
End Select