Dim da As Integer

Dim db As Integer

Dim dc As Integer

Dim de As Integer

Dim df As DataRow = e.DataRow

Dim dt As DataTable =DataTables("工程项目")

Select Case e.DataCol.Name

    Case "姓名"

        If df.IsNull("姓名") Then

            df("持证次数") = Nothing

        Else

            da = dt .Compute("Count(项目经理身份证号)" , "项目经理身份证号 = \'" & df("身份证号") & "\'" )

            db = dt .Compute("Count(项目安全员身份证号)" , "项目安全员身份证号 = \'" & df("身份证号") & "\'" )

            dc = dt.Compute("Count(项目总工身份证号)" , "项目总工身份证号 = \'" & df("身份证号") & "\'" )

            de = dt .Compute("Count(项目质检员身份证号)" , "项目质检员身份证号 = \'" & df("身份证号") & "\'" )

            df("持证次数") = da + db + dc + de

            \'dr("次数") = dt.Compute("Count(项目经理身份证号)" , "项目经理身份证号 = \'" & dr("身份证号") & "\'" )

        End If

End Select