主题：[求助]选择非今天日期时，计数代码失效（已解决）

改一下

max = e.DataTable.Compute("Max(计数)","日期 = #"& rq &"# And 员工ID = '"& ygid &"' And [_Identify] <> " & e.DataRow("_Identify")) '取得最大计数

 请认真测试。

 没有问题啊

你要先输入日期，再输入员工ID号。

代码改成这样

Case "员工ID"
        If e.DataCol.Name = "员工ID" Then
            If e.DataRow.IsNull("员工ID") Then
                e.DataRow("计数") = Nothing
            Else
                If e.DataRow.IsNull("计数") Then
                    Dim max As String '最大计数
                    Dim idx As Integer
                    Dim rq As String = e.DataRow("日期")
                    Dim ygid As String = e.DataRow("员工ID")
                    max = e.DataTable.Compute("Max(计数)","日期 = #"& rq &"# And 员工ID = '"& ygid &"' And [_Identify] <> " & e.DataRow("_Identify")) '取得最大计数
                    If max > "" Then '如果存在最大计数
                        idx = CInt(max) + 1 '获得最大计数,并加1
                    Else
                        idx = 1 '否则计数等于1
                    End If
                    e.DataRow("计数") = idx
                End If
            End If
        End If

如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.foxdb