主题：[求助]人员数量统计及如何根据条件判断是否名字重复？

我在“加班通知单”表中，添加了另一个误餐审批单模板，这模板需要统计加班人员的人数，我只会写e.Book.Marks("人数") = Tables("加班通知单.加班人员表").Rows.Count

求老师关注。。。。

人员数量统计解决方法

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

 编写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