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

Case "日期"

改成

Case "日期", "作业ID", "工位机ID"

Select Case e.DataCol.Name
    '序号和计数
    Case "日期", "作业ID", "工位机ID"
        If e.DataCol.Name = "日期" Then
            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 If
End Select

只要填入了对应的值就有变化啊

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

你加了列名判断，同时也对序号进行了判断

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