[求助]根据条件获取最大计数（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：[求助]根据条件获取最大计数（已解决）